Changeset 1650 for trunk/LMDZ.COMMON/libf/dyn3d_common/comconst_mod.F90

Timestamp:

Jan 25, 2017, 4:02:54 PM (8 years ago)

Author:

emillour

Message:

Dynamical core: Further adaptations to stick with LMDZ5 (up to rev r2750)

• libf
• makelmdz[_fcm] : added Earth-specific "dust" and "strataer" cases and

-arch_path option

• bld.cfg : added dust and strataer cases

• dyn3d[par]
• conf_gcm.F90 : added read_orop parameter (Earth-related) for

loading subgrid orography parameters.

• guide[_p]_mod.F90: added output of nudging coefficients for winds

and temperature

• temps_mod.F90 : cosmetics/comments
• logic_mod.F90 : cosmetics/comments

• dyn3d_common
• comconst_mod.F90 : cosmetics/comments + added year_day module variable
• conf_planete.F90 : added year_day from comconst_mod as done in LMDZ5
• comvert_mod.F90 : cosmetics/comments
• infotrac.F90 : added "startAer" case to follow up with LMDZ5

• misc
• wxios.F90 : follow up on changes in LMDZ5

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/comconst_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/comconst_mod.F90

@@ -12 +12 @@
       REAL r ! Reduced Gas constant r=R/mu
              ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
-      REAL cpp   ! Cp
-      REAL kappa ! kappa=R/Cp 
+      REAL cpp   ! Specific heat Cp (J.kg-1.K-1)
+      REAL kappa ! kappa=r/Cp 
       REAL cotot
       REAL unsim ! = 1./iim
@@ -23 +23 @@
       REAL dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta
       REAL dissip_pupstart
-      INTEGER iflag_top_bound,mode_top_bound
+! top_bound sponge:
+      INTEGER iflag_top_bound ! sponge type
       INTEGER ngroup ! parameter to group points (along longitude) near poles
-      REAL tau_top_bound
+      INTEGER mode_top_bound  ! sponge mode
+      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
       REAL daylen ! length of solar day, in 'standard' day length
+      REAL year_day ! Number of standard days in a year
       REAL molmass ! (g/mol) molar mass of the atmosphere