Changeset 2109 for trunk/LMDZ.TITAN/libf/muphytitan/mm_haze.f90

Timestamp:

Mar 4, 2019, 4:03:08 PM (6 years ago)

Author:

jvatant

Message:

Fix some problems for the microphysics :
+ Altitude of the last level at 1e7m from physics was certainly source of divergence
+ Sanity check for negative is moved from within mm_microphysic to the end of calmufi avoiding rounding pbs
--JVO

File:

• trunk/LMDZ.TITAN/libf/muphytitan/mm_haze.f90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/muphytitan/mm_haze.f90

@@ -126 +126 @@
     IF (mm_w_haze_prod) THEN
       call mm_haze_production(zdm0as,zdm3as)
-      ! We only produce fractal aerosols
+      ! We only produce spherical aerosols
       dm0a_s=dm0a_s+zdm0as ; dm3a_s=dm3a_s+zdm3as 
     ENDIF