Changeset 4096 for trunk/LMDZ.PLUTO/libf

Timestamp:

Mar 3, 2026, 2:25:27 PM (2 weeks ago)

Author:

debatzbr

Message:

Pluto PCM: ccn moment first layer correction (from revision 4084 - Titan PCM, CP).
BBT

File:

• trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_clouds.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_clouds.F90

@@ -951 +951 @@
         matrix = 0._mm_wp
         nz     = SIZE(rad)
-        zsurf  = mm_zlev(nz)
+        zsurf  = mm_zlev(nz+1)
         ALLOCATE(puit(nz))