Changeset 714 for codes/icosagcm/devel/src/base/earth_const.f90

Timestamp:

08/03/18 16:53:37 (6 years ago)

Author:

dubos

Message:

devel : backported from trunk commits r607,r648,r649,r667,r668,r669,r706

File:

• codes/icosagcm/devel/src/base/earth_const.f90 (modified) (1 diff)

codes/icosagcm/devel/src/base/earth_const.f90

@@ -13 +13 @@
   REAL(rstd),SAVE :: Treff=273.
   REAL(rstd),SAVE :: preff=101325.
-  REAL(rstd),SAVE :: pa=50000.
+  REAL(rstd),SAVE :: pa=50000. ! default value set to preff/2 by disvert_std
   REAL(rstd),SAVE :: scale_height=8000. ! atmospheric scale height (m)
   REAL(rstd),SAVE :: scale_factor=1.