Changeset 2390 for trunk

Timestamp:

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

Author:

cmathe

Message:

improvedco2clouds_mod: check

File:

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

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

@@ -491 +491 @@
 !----------------------------------------------------------------------------------------------------------------------!
       ! we trigger crystal growth
+      write(*,*)'ice_growth', zq(ig, l, igcm_ccnco2_number), zq(ig, l, igcm_co2_ice), satu
       if (zq(ig,l,igcm_ccnco2_number) * tauscaling(ig) + threshold >= 1.) then
-        write(*,*)'yes I am in', zq(ig, l, igcm_ccnco2_number), zq(ig, l, igcm_co2_ice), satu
 
         call updaterice_microco2(zq(ig,l,igcm_co2_ice), zq(ig,l,igcm_ccnco2_mass), zq(ig,l,igcm_ccnco2_number), &