Changeset 4074 for trunk/LMDZ.COMMON/libf/evolution/soil.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/soil.F90 (modified) (1 diff)

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

@@ -92 +92 @@
 if (.not. allocated(inertiedat_PCM)) allocate(inertiedat_PCM(ngrid,nsoil_PCM))
 if (.not. allocated(TI_PCM)) allocate(TI_PCM(ngrid,nsoil_PCM,nslope))
+inertiedat_PCM(:,:) = 0._dp
+TI_PCM(:,:,:) = 0._dp
 
 END SUBROUTINE ini_soil