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

Timestamp:

Jan 23, 2026, 1:11:53 PM (2 months 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/pbl_surface_uncompress_pre_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/pbl_surface_uncompress_pre_mod.F90

@@ -48 +48 @@
        cdragh,    cdragm,   zu1,    zv1,              &
        alb_dir_m,    alb_dif_m,  zxsens,   zxevap,  zxsnowerosion,      &
-       icesub_lic, alb3_lic,  runoff,    snowhgt,   qsnow,     to_ice,    sissnow,  &
+       icesub_ice, icemelt_ice, alb3_lic,  runoff,    snowhgt,   qsnow,     to_ice,    sissnow,  &
        zxtsol,    zxfluxlat, zt2m,     qsat2m, zn2mout,                 &
        d_t,       d_q,    d_qbs,    d_u,      d_v, d_t_diss,            &
@@ -238 +238 @@
     REAL, DIMENSION(klon),        INTENT(OUT)       :: zxevap     ! water vapour flux at surface, positiv upwards
     REAL, DIMENSION(klon),        INTENT(OUT)       :: zxsnowerosion     ! blowing snow flux at surface
-    REAL, DIMENSION(klon),        INTENT(OUT)       :: icesub_lic ! ice (no snow!) sublimation over ice sheet 
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: icesub_ice ! ice (no snow!) sublimation flux over iced surfaces [kg/m2/s]
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: icemelt_ice ! ice (no snow!) melting flux over iced surfaces [kg/m2/s]
     REAL, DIMENSION(klon),        INTENT(OUT)       :: zxtsol     ! temperature at surface, mean for each grid point
     REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_t_w      !   !
@@ -559 +560 @@
  zxfluxt(:,:)=0. ; zxfluxq(:,:)=0.; zxfluxqbs(:,:)=0.
  qsnow(:)=0. ; snowhgt(:)=0. ; to_ice(:)=0. ; sissnow(:)=0.
- runoff(:)=0. ; icesub_lic(:)=0.
+ runoff(:)=0. ; icesub_ice(:)=0. ; icemelt_ice(:)=0.
  l_mixmin(:,:,:)=0.
  l_mix(:,:,:) = 0.