/[lmdze]/trunk/dyn3d/comconst.f
ViewVC logotype

Diff of /trunk/dyn3d/comconst.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 1  Line 1 
1  module comconst  module comconst
2    
3    use dimens_m, only: jjm    use dimens_m, only: jjm
4      use nr_util, only: pi
5    
6    implicit none    implicit none
7    
# Line 9  module comconst Line 10  module comconst
10    integer lllmm1, lllmp1, lcl    integer lllmm1, lllmp1, lcl
11    REAL dtvr ! time step for dynamics (in s)    REAL dtvr ! time step for dynamics (in s)
12    real, parameter:: daysec = 86400. ! number of seconds per day    real, parameter:: daysec = 86400. ! number of seconds per day
13    REAL pi, dtphys    REAL dtphys
14    real, parameter:: rad = 6371229. ! radius of the Earth (in m)    real, parameter:: rad = 6371229. ! radius of the Earth (in m)
15    real r    real r
16    real, parameter:: cpp = 1004.70885, kappa = 0.2857143    real, parameter:: cpp = 1004.70885, kappa = 0.2857143
17    REAL cotot, unsim    REAL cotot, unsim
18    real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)    real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)
   real omeg ! angular speed of rotation of the Earth (in rad s-1)  
19    
20    private jjm    real, parameter:: omeg = 2 * pi / daysec
21      ! angular speed of rotation of the Earth (in rad s-1)
22    
23  contains    private jjm, pi
   
   subroutine initialize  
   
     print *, "Call sequence information: initialize"  
     pi     =  Acos(-1.)  
     omeg   = 2 * pi / daysec  
   
   end subroutine initialize  
24    
25  end module comconst  end module comconst
Legend:
Removed from v.26  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21