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

Timestamp:

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

Author:

oboucher

Message:

Adding RMCO2 to the list of constants

File:

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

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