Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/suphel.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/suphel.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/suphel.F90

@@ -118 +118 @@
   rmo3 = 47.9942
   rmco2 = 44.011
+  rmch4 = 16.043
+  rmn2o = 44.013
+  rmcfc11 = 137.3686
+  rmcfc12 = 120.9140
   rmc   = 12.0107
   rmv = 18.0153
@@ -134 +138 @@
   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='('' C       mass = '',e13.7)') rmc
+  WRITE (UNIT=6, FMT='('' CH4     mass = '',e13.7)') rmch4
+  WRITE (UNIT=6, FMT='('' N2O     mass = '',e13.7)') rmn2o
+  WRITE (UNIT=6, FMT='('' CFC11   mass = '',e13.7)') rmcfc11
+  WRITE (UNIT=6, FMT='('' CFC12   mass = '',e13.7)') rmcfc12
   WRITE (UNIT=6, FMT='('' Vapour  mass = '',e13.7)') rmv
   WRITE (UNIT=6, FMT='('' Dry air cst. = '',e13.7)') rd