Changeset 2393 for trunk/LMDZ.MARS

Timestamp:

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

Author:

cmathe

Message:

improvedco2clouds_mod: 4.3 => add tauscaling(ig) in condition

File:

• trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90 (modified) (3 diffs)

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

@@ -491 +491 @@
 !----------------------------------------------------------------------------------------------------------------------!
       ! we trigger crystal growth
-      if (zq(ig,l,igcm_ccnco2_number) * tauscaling(ig) +threshold >= 1) then
+      if (zq(ig,l,igcm_ccnco2_number) * tauscaling(ig) + threshold >= 1) then
 
         call updaterice_microco2(zq(ig,l,igcm_co2_ice), zq(ig,l,igcm_ccnco2_mass), zq(ig,l,igcm_ccnco2_number), &
@@ -533 +533 @@
 !----------------------------------------------------------------------------------------------------------------------!
         ! On sublime tout
-        if ((zq(ig,l,igcm_co2_ice) <= threshold).or.(zq(ig,l,igcm_ccnco2_number) < 1.)) then
+        if ((zq(ig,l,igcm_co2_ice) <= threshold).or.(zq(ig,l,igcm_ccnco2_number)* tauscaling(ig) < 1.)) then
 
           if (co2useh2o) then
@@ -558 +558 @@
           zq(ig,l,igcm_co2) = zq(ig,l,igcm_co2)  + zq(ig,l,igcm_co2_ice)
 
+          zq(ig,l,igcm_co2_ice) = 0.
           zq(ig,l,igcm_ccnco2_mass) = 0.
-          zq(ig,l,igcm_co2_ice) = 0.
           zq(ig,l,igcm_ccnco2_number) = 0.
           mem_Nccn_co2(ig,l) = 0.