Changeset 6053 for LMDZ6/trunk/libf/phylmd/surf_seaice_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/surf_seaice_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90

@@ -19 +19 @@
        ps, u1, v1, gustiness, pctsrf, &
        snow, qsurf, qsol, agesno, tsoil, &
-       z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, &  
+       z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, icesub, icemelt, fluxsens, fluxlat, &  
        tsurf_new, dflux_s, dflux_l, &
 !GG       flux_u1, flux_v1)
@@ -105 +105 @@
 !albedo SB <<<
     REAL, DIMENSION(knon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(knon), INTENT(OUT)       :: icesub, icemelt ! sublimation and melting fluxes of ice over iced surfaces [kg/m2/s]
     REAL, DIMENSION(knon), INTENT(OUT)       :: tsurf_new
     REAL, DIMENSION(knon), INTENT(OUT)       :: dflux_s, dflux_l      
@@ -184 +185 @@
             AcoefH, AcoefQ, BcoefH, BcoefQ, &
             AcoefU, AcoefV, BcoefU, BcoefV, &
-!GG            ps, u1, v1, gustiness, &
             ps, u1, v1, gustiness,pctsrf, &
-!GG
             radsol, snow, qsol, agesno, tsoil, &
             qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
-!GG            tsurf_new, dflux_s, dflux_l, rhoa)
+            icesub, icemelt, &
             tsurf_new, dflux_s, dflux_l,rhoa,swnet,hice, tice, bilg_cumul, &
             fcds, fcdi, dh_basal_growth, dh_basal_melt, dh_top_melt, dh_snow2sic, &