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

Timestamp:

Feb 17, 2026, 2:45:53 PM (12 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_temp.F90 (modified) (1 diff)

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

@@ -59 +59 @@
 if (.not. allocated(tsoil_PCM)) allocate(tsoil_PCM(ngrid,nsoil_PCM,nslope))
 if (.not. allocated(flux_geo_PCM)) allocate(flux_geo_PCM(ngrid,nslope))
+tsoil_PCM(:,:,:) = 0._dp
+flux_geo_PCM(:,:) = 0._dp
 
 END SUBROUTINE ini_soil_temp