Changeset 266 for codes/icosagcm/trunk/src/earth_const.f90

Timestamp:

08/05/14 15:56:49 (10 years ago)

Author:

ymipsl

Message:

Synchronize trunk and Saturn branch.
Merge modification from Saturn branch to trunk

YM

File:

• codes/icosagcm/trunk/src/earth_const.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/earth_const.f90

@@ -11 +11 @@
   REAL(rstd),SAVE :: preff=101325.
   REAL(rstd),SAVE :: pa=50000.
-  REAL(rstd),SAVE :: scaleheight=8000. ! atmospheric scale height (m)
+  REAL(rstd),SAVE :: scale_height=8000. ! atmospheric scale height (m)
   REAL(rstd),SAVE :: scale_factor=1.
+  REAL(rstd),SAVE :: gas_constant = 8.3144621 
+  REAL(rstd),SAVE :: mu                 ! molar mass of the atmosphere
 
   LOGICAL, SAVE :: boussinesq
@@ -30 +32 @@
     CALL getin("cpp",cpp)  
     CALL getin("preff",preff)  
-    CALL getin("scaleheight",scaleheight)
+    CALL getin("scale_height",scale_height)
     
+    mu=kappa/cpp
     boussinesq=.FALSE.
     CALL getin("boussinesq",boussinesq)