Changeset 2387


Ignore:
Timestamp:
Jul 2, 2020, 3:42:32 PM (4 years ago)
Author:
cmathe
Message:

mprovedco2clouds_mod: case satu < 1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90

    r2386 r2387  
    485485        ! WIP: cas où satu < 1 et donc si on a de la glace de co2 et que T > Tcond, alors on relache notre glace en vap
    486486      else
    487           write(*,*)zq(1,l,igcm_co2_ice), tcond(1,l), zt(1,l), satu
    488         stop
     487          if (tcond(ig,l) <= zt(ig,l) .and. zq(ig,l,igcm_co2_ice) >= threshold) then
     488            zq(ig,l,igcm_co2) = zq(ig,l,igcm_co2) + zq(ig,l,igcm_co2_ice)
     489            zq(ig,l,igcm_co2_ice) = 0.
     490          end if
    489491      end if ! of is satu > 1
    490492!----------------------------------------------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.