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

Timestamp:

Jan 15, 2026, 5:18:06 PM (9 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/surf_landice_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

@@ -72 +72 @@
     USE geometry_mod,     ONLY : longitude,latitude
     USE surface_data,     ONLY : type_ocean, calice, calsno, landice_opt, iflag_albcalc
-    USE fonte_neige_mod,  ONLY : fonte_neige,run_off_lic,fqcalving_global,ffonte_global,fqfonte_global,runofflic_global
+    USE simplehydrol_mod,  ONLY : simplehydrol,run_off_lic,fqcalving_global,ffonte_global,fqfonte_global,runofflic_global
     USE cpl_mod,          ONLY : cpl_send_landice_fields
     USE calcul_fluxs_mod
@@ -642 +642 @@
     
  
-    CALL fonte_neige(knon, is_lic, knindex, dtime, &
+    CALL simplehydrol(knon, is_lic, knindex, dtime, &
          tsurf, precip_rain, precip_totsnow, &
          snow, qsol, tsurf_new, evap_totsnow, icesub_lic &
@@ -671 +671 @@
      &   ) 
 
-!        call fonte_neige_export_xtrun_off_lic_0(knon,xtrun_off_lic_0_diag)
+!        call simplehydrol_export_xtrun_off_lic_0(knon,xtrun_off_lic_0_diag)
 
 #endif
@@ -684 +684 @@
 !****************************************************************************************
 ! Send run-off on land-ice to coupler if coupled ocean.
-! run_off_lic has been calculated in fonte_neige or surf_inlandsis
+! run_off_lic has been calculated in simple_hydrol or surf_inlandsis
 ! If landice_opt>=2, corresponding call is done from surf_land_orchidee
 !****************************************************************************************