Changeset 2579


Ignore:
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

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r2578 r2579  
    35073507First stage of implementing Open_MP in the physic.
    35083508So far it can initialyse physic and run with all routines at .FALSE.
     3509
     3510== 29/10/2021 == LR
     3511Fixing missing case for hdo_ice in inichim_newstart
     3512Should fix issue #25 on gitlab

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

    r2568 r2579  
    291291           count = count + 1
    292292        end if
     293        if (noms(iq) == "hdo_ice") then
     294           igcm_hdo_vap = iq
     295           mmol(igcm_hdo_ice) = 19.
     296           count = count + 1
     297        end if
    293298        if (noms(iq) == "od") then
    294299           igcm_od = iq
Note: See TracChangeset for help on using the changeset viewer.