Changeset 2386
- Timestamp:
- Jul 2, 2020, 3:42:31 PM (4 years ago)
- Location:
- trunk/LMDZ.MARS/libf/phymars
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/co2cloud.F90
r2362 r2386 72 72 ! 3.1.b. Compute tcond 73 73 ! 3.1.c. Compute cloud fraction in cells 74 ! 3.2. No sub-grid cloud representation (CLFvarying = False)74 ! 3.2. No sub-grid cloud representation (CLFvaryingCO2 = False) 75 75 ! 4. Microphysics of CO2 cloud formation 76 76 ! 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
r2362 r2386 482 482 end if ! of if co2useh2o 483 483 end if ! of if No > 1e-30 484 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 486 else 487 write(*,*)zq(1,l,igcm_co2_ice), tcond(1,l), zt(1,l), satu 488 stop 484 489 end if ! of is satu > 1 485 490 !----------------------------------------------------------------------------------------------------------------------!
Note: See TracChangeset
for help on using the changeset viewer.