Changeset 3525 for trunk/LMDZ.COMMON/libf/evolution/compute_soiltemp_mod.F90

Timestamp:

Nov 19, 2024, 5:44:27 PM (2 days ago)

Author:

jbclement

Message:

PEM:
Computation of <soil thermal intertia> and <H2O mass subsurface/surface exchange> according to the presence of subsurface ice provided by the (Norbert's) dynamic method + few cleanings.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/compute_soiltemp_mod.F90 (modified) (3 diffs)

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

@@ -90 +90 @@
 endif ! of if (firstcall)
 
-IF (.not. firstcall) THEN
+if (.not. firstcall) THEN
 ! 2. Compute soil temperatures
 ! First layer:
@@ -120 +120 @@
 END SUBROUTINE compute_tsoil_pem
 
-
+!=======================================================================
 
 SUBROUTINE ini_tsoil_pem(ngrid,nsoil,therm_i,tsurf,tsoil)
@@ -221 +221 @@
 END SUBROUTINE ini_tsoil_pem
 
-
-
 END MODULE compute_soiltemp_mod