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

Timestamp:

06/08/16 18:18:08 (8 years ago)

Author:

dubos

Message:

Towards moist dynamics - tested with DCMIP41

File:

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

codes/icosagcm/trunk/src/earth_const.f90

@@ -9 +9 @@
   REAL(rstd),SAVE :: kappa=0.2857143
   REAL(rstd),SAVE :: cpp=1004.70885
-  REAL(rstd),SAVE :: cppv=1004.70885 ! FIXME
+  REAL(rstd),SAVE :: cppv=1860.
   REAL(rstd),SAVE :: Rv=461.5
   REAL(rstd),SAVE :: Treff=273.
@@ -39 +39 @@
     CALL getin("kappa",kappa)  
     CALL getin("cpp",cpp)  
+    CALL getin("cppv",cppv)
+    CALL getin("Rv",Rv)
     CALL getin("preff",preff)  
     CALL getin("Treff",Treff)