Changeset 2387 for trunk

Timestamp:

Jul 2, 2020, 3:42:32 PM (4 years ago)

Author:

cmathe

Message:

mprovedco2clouds_mod: case satu < 1

File:

• trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90

@@ -485 +485 @@
         ! 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
       else
-          write(*,*)zq(1,l,igcm_co2_ice), tcond(1,l), zt(1,l), satu
-        stop
+          if (tcond(ig,l) <= zt(ig,l) .and. zq(ig,l,igcm_co2_ice) >= threshold) then
+            zq(ig,l,igcm_co2) = zq(ig,l,igcm_co2) + zq(ig,l,igcm_co2_ice)
+            zq(ig,l,igcm_co2_ice) = 0.
+          end if
       end if ! of is satu > 1
 !----------------------------------------------------------------------------------------------------------------------!