/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 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, dtdiss    REAL dtphys ! time step of integration
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 ! J K-1 kg-1
17      real, parameter:: kappa = 0.2857143
18    REAL cotot, unsim    REAL cotot, unsim
19    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)  
20    
21    private jjm    real, parameter:: omeg = 2 * pi / daysec
22      ! angular speed of rotation of the Earth (in rad s-1)
23    
24  contains    private jjm, pi
   
   subroutine initialize  
   
     print *, "Call sequence information: initialize"  
     pi     =  Acos(-1.)  
     omeg   = 2 * pi / daysec  
   
   end subroutine initialize  
25    
26  end module comconst  end module comconst
Legend:
Removed from v.3  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21