Changeset 3394

Timestamp:

Sep 18, 2018, 2:40:51 PM (6 years ago)

Author:

oboucher

Message:

Adding C molar mass

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,RMCO2,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
+      REAL R,RMD,RMO3,RMCO2,RMC,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  ,RMCO2, RMV   ,RD    ,RV    ,RCPD      &
+     &      ,R     ,RMD   ,RMO3  ,RMCO2, RMC, RMV   ,RD    ,RV    ,RCPD &
      &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV                           &
      &      ,RCW   ,RCS                                                 &

LMDZ6/trunk/libf/phylmd/suphel.F90

@@ -118 +118 @@
   rmo3 = 47.9942
   rmco2 = 44.011
+  rmc   = 12.0107
   rmv = 18.0153
   rd = 1000.*r/rmd
@@ -132 +133 @@
   WRITE (UNIT=6, FMT='('' Ozone   mass = '',e13.7)') rmo3
   WRITE (UNIT=6, FMT='('' CO2     mass = '',e13.7)') rmco2
+  WRITE (UNIT=6, FMT='('' CO2     mass = '',e13.7)') rmc
   WRITE (UNIT=6, FMT='('' Vapour  mass = '',e13.7)') rmv
   WRITE (UNIT=6, FMT='('' Dry air cst. = '',e13.7)') rd