Changeset 2579 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

Oct 29, 2021, 1:50:16 PM (3 years ago)

Author:

lrossi

Message:

29/10/2021 == LR

MARS GCM
Fixing missing case for hdo_ice in inichim_newstart
Should fix issue #25 on gitlab

File:

• trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90

@@ -291 +291 @@
            count = count + 1
         end if
+        if (noms(iq) == "hdo_ice") then
+           igcm_hdo_vap = iq
+           mmol(igcm_hdo_ice) = 19.
+           count = count + 1
+        end if
         if (noms(iq) == "od") then
            igcm_od = iq