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

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

dynamico tree creation

YM
File size: 514 bytes
Line 
1MODULE earth_const
2  USE prec
3  USE math_const
4 
5  REAL(rstd),PARAMETER :: radius=6.37122E6
6!  REAL(rstd),PARAMETER :: radius=1.
7  REAL(rstd),PARAMETER :: g=9.80616
8  REAL(rstd),PARAMETER :: daysec=86400
9!  REAL(rstd),PARAMETER :: omega=2*Pi/daysec
10  REAL(rstd),PARAMETER :: omega=7.292E-5
11!  REAL(rstd),PARAMETER :: omega=0
12  REAL(rstd),PARAMETER :: kappa=0.2857143
13  REAL(rstd),PARAMETER :: cpp=1004.70885
14  REAL(rstd),PARAMETER :: preff=101325.
15  REAL(rstd),PARAMETER :: pa=50000. 
16
17END MODULE earth_const
18 
Note: See TracBrowser for help on using the repository browser.