Changeset 3393

Timestamp:

Sep 18, 2018, 9:08:13 AM (6 years ago)

Author:

oboucher

Message:

Adding RMCO2 to the list of constants

Location:

LMDZ6/trunk/libf/phylmd

Files:

• YOMCST.h (modified) (2 diffs)
• suphel.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/YOMCST.h

@@ -20 +20 @@
       REAL RSIGMA
 ! A1.4 Thermodynamic gas phase
-      REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
+      REAL R,RMD,RMO3,RMCO2,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
       REAL RKAPPA,RETV
 ! A1.5,6 Thermodynamic liquid,solid phases
@@ -35 +35 @@
      &      ,RA    ,RG    ,R1SA                                         &
      &      ,RSIGMA                                                     &
-     &      ,R     ,RMD   ,RMO3  ,RMV   ,RD    ,RV    ,RCPD             &
+     &      ,R     ,RMD   ,RMO3  ,RMCO2, RMV   ,RD    ,RV    ,RCPD      &
      &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV                           &
      &      ,RCW   ,RCS                                                 &

LMDZ6/trunk/libf/phylmd/suphel.F90

@@ -117 +117 @@
   rmd = 28.9644
   rmo3 = 47.9942
+  rmco2 = 44.011
   rmv = 18.0153
   rd = 1000.*r/rmd
@@ -130 +131 @@
   WRITE (UNIT=6, FMT='('' Dry air mass = '',e13.7)') rmd
   WRITE (UNIT=6, FMT='('' Ozone   mass = '',e13.7)') rmo3
+  WRITE (UNIT=6, FMT='('' CO2     mass = '',e13.7)') rmco2
   WRITE (UNIT=6, FMT='('' Vapour  mass = '',e13.7)') rmv
   WRITE (UNIT=6, FMT='('' Dry air cst. = '',e13.7)') rd