source: codes/icosagcm/trunk/src/earth_const.f90 @ 131

Last change on this file since 131 was 131, checked in by ymipsl, 11 years ago

Some operations must be only done by the mpi master task.

YM
File size: 823 bytes
Line 
1MODULE earth_const
2  USE prec
3  USE math_const
4 
5  REAL(rstd),SAVE :: radius=6.37122E6
6  REAL(rstd),SAVE :: g=9.80616
7  REAL(rstd),PARAMETER :: daysec=86400
8  REAL(rstd),SAVE :: omega=7.292E-5
9  REAL(rstd),SAVE :: kappa=0.2857143
10  REAL(rstd),SAVE :: cpp=1004.70885
11  REAL(rstd),SAVE :: preff=101325.
12  REAL(rstd),SAVE :: pa=50000.
13  REAL(rstd),SAVE :: scale_factor=1.
14
15CONTAINS
16 
17  SUBROUTINE init_earth_const
18  USE ioipsl
19  IMPLICIT NONE
20  REAL(rstd) :: X=1
21 
22    CALL getin("radius",radius)
23    CALL getin("g",g)
24    CALL getin("scale_factor",scale_factor)
25    CALL getin("omega",omega) 
26    CALL getin("kappa",kappa) 
27    CALL getin("cpp",cpp) 
28    CALL getin("preff",preff) 
29   
30    radius=radius/scale_factor
31    omega=omega*scale_factor
32   
33  END SUBROUTINE init_earth_const
34 
35 
36END MODULE earth_const
37 
Note: See TracBrowser for help on using the repository browser.