Changeset 2386 for trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90

Timestamp:

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

Author:

cmathe

Message:

co2cloud: typo
improvedco2clouds_mod: start debug, case satu < 1

File:

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

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

@@ -482 +482 @@
           end if ! of if co2useh2o
         end if ! of if No > 1e-30
+
+        ! 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
       end if ! of is satu > 1
 !----------------------------------------------------------------------------------------------------------------------!