Changeset 3394 for LMDZ6/trunk/libf/phylmd/suphel.F90

Timestamp:

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

Author:

oboucher

Message:

Adding C molar mass

File:

• LMDZ6/trunk/libf/phylmd/suphel.F90 (modified) (2 diffs)

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