mod_alpha_pars.F90 372 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10


module mod_alpha_pars
   real, parameter :: pi=3.1415927
   real, parameter :: psi= 47.0*pi/180.0   ! latitude=47 degrees
   real, parameter :: RR = 1365.0      !  Helges solar constant (W/m**2)
   real, parameter :: kk=0.10
   real, parameter :: cc=0.12
   real, parameter :: alphalph=0.04    !  Helge propose 0.025
   real, parameter :: Q=2.0
end module mod_alpha_pars