Changeset 6033 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jan 15, 2026, 5:18:06 PM (7 days ago)

Author:

evignon

Message:

fonte_neige becomes simplehydrol (follow-up on F. Cheruy presentation
in LMDZ training session) and the routines are further commented and indented

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -44 +44 @@
     USE evappot_mod, ONLY: evappot
     USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando, FLOTT_GWD_rando_first
-    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
+    USE simplehydrol_mod, ONLY  : simplehydrol_get_vars
     USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
     USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
@@ -4888 +4888 @@
     ENDIF
 
-    ! Calculer l'hydrologie de la surface
-    !
-    !      CALL hydrol(dtime,pctsrf,rain_fall, snow_fall, zxevap,
-    !     .            agesno, ftsol,fqsurf,fsnow, ruis)
-    !
-
     !
     ! Calculer le bilan du sol et la derive de temperature (couplage)
@@ -5835 +5829 @@
     ! pour ecriture dans histxxx.nc
 
-    ! Get some variables from module fonte_neige_mod
-    CALL fonte_neige_get_vars(pctsrf,  &
+    ! Get some variables from module simplehydrol_mod
+    CALL simplehydrol_get_vars(pctsrf,  &
          zxfqcalving, zxfqfonte, zxffonte, zxrunofflic)