Changeset 4074 for trunk/LMDZ.COMMON/libf/evolution/surf_temp.F90

Timestamp:

Feb 17, 2026, 2:45:53 PM (13 days ago)

Author:

jbclement

Message:

PEM:

• Correct management of H2O ice tendency in 1D when there is not enough ice anymore.
• Clean initialization of allocatable module arrays (especially needed when no slope)
• One more renaming for consistency + few small updates thoughout the code.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/surf_temp.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/surf_temp.F90

@@ -56 +56 @@
 ! ----
 if (.not. allocated(tsurf_PCM)) allocate(tsurf_PCM(ngrid,nslope))
+tsurf_PCM(:,:) = 0._dp
 
 END SUBROUTINE ini_surf_temp