Changeset 2386 for trunk

Timestamp:

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

Author:

cmathe

Message:

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

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• co2cloud.F90 (modified) (1 diff)
• improvedco2clouds_mod.F90 (modified) (1 diff)

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

@@ -72 +72 @@
 !       3.1.b. Compute tcond
 !       3.1.c. Compute cloud fraction in cells
-!     3.2. No sub-grid cloud representation (CLFvarying = False)
+!     3.2. No sub-grid cloud representation (CLFvaryingCO2 = False)
 !   4. Microphysics of CO2 cloud formation
 !     4.1. Stepped entry for tendancies: At each micro timestep we add pdt in order to have a stepped entry

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
 !----------------------------------------------------------------------------------------------------------------------!