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

Timestamp:

Jan 23, 2026, 1:11:53 PM (6 days ago)

Author:

evignon

Message:

corrections dans la routine simplehydrol et ajout de diagnostiques
pour quantifier les flux d'eau liés à la fonte de la neige sur les surfaces
englacees

File:

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

LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

@@ -57 +57 @@
        ps, u1, v1, gustiness, rugoro, pctsrf, &
        snow, qsurf, qsol, qbs1, agesno, &
-       tsoil, z0m, z0h, SFRWL, alb_dir, alb_dif, evap, icesub_lic, fluxsens, fluxlat, fluxbs, &
+       tsoil, z0m, z0h, SFRWL, alb_dir, alb_dif, evap, icesub, icemelt, fluxsens, fluxlat, fluxbs, &
        tsurf_new, dflux_s, dflux_l, &
        alt, slope, cloudf, &
@@ -161 +161 @@
     REAL, DIMENSION(knon,nsw), INTENT(OUT)        :: alb_dir,alb_dif
 !albedo SB <<<
-    REAL, DIMENSION(knon), INTENT(OUT)            :: evap, fluxsens, fluxlat, icesub_lic
+    REAL, DIMENSION(knon), INTENT(OUT)            :: evap, fluxsens, fluxlat, icesub, icemelt
     REAL, DIMENSION(knon), INTENT(OUT)            :: fluxbs
     REAL, DIMENSION(knon), INTENT(OUT)            :: tsurf_new
@@ -644 +644 @@
     CALL simplehydrol(knon, is_lic, knindex, dtime, &
          tsurf, precip_rain, precip_totsnow, &
-         snow, qsol, tsurf_new, evap_totsnow, icesub_lic &
+         snow, qsol, tsurf_new, evap_totsnow, icesub, icemelt &
 #ifdef ISO    
      &  ,fq_fonte_diag,fqfonte_diag,snow_evap_diag,fqcalving_diag     &