/[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 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 297 by guez, Thu Jul 26 16:02:11 2018 UTC
# Line 1  Line 1 
1  module comconst  module comconst
2    
3    use nr_util, only: pi    use nr_util, only: twopi
4    
5    implicit none    implicit none
6    
7    real, parameter:: daysec = 86400. ! number of seconds per day    real, parameter:: daysec = 86400. ! number of seconds per day
8    
9    REAL dtvr ! time step for dynamics, in s    REAL, protected:: dtvr ! time step for dynamics, in s
10    REAL dtphys ! time step for physics, in s    REAL, protected:: dtphys ! time step for physics, in s
11    
12    real, parameter:: rad = 6371229. ! radius of the Earth (in m)    real, parameter:: rad = 6371229. ! radius of the Earth (in m)
13    
# Line 21  module comconst Line 21  module comconst
21    
22    real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)    real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)
23    
24    real, parameter:: omeg = 2 * pi / daysec    real, parameter:: omeg = twopi / daysec
25    ! angular speed of rotation of the Earth (in rad s-1)    ! angular speed of rotation of the Earth (in rad s-1)
26    
27    private pi    private twopi
28    
29  contains  contains
30    
Legend:
Removed from v.254  
changed lines
  Added in v.297
  ViewVC Help
Powered by ViewVC 1.1.21