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

Diff of /trunk/dyn3d/comconst.f90

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

trunk/libf/dyn3d/comconst.f90 revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC trunk/dyn3d/comconst.f90 revision 76 by guez, Fri Nov 15 18:45:49 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    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.26  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21