Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/surf_seaice_mod.F90

Timestamp:

Jul 28, 2025, 7:23:15 PM (9 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_seaice_mod.F90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/surf_seaice_mod.F90

@@ -21 +21 @@
        z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, &  
        tsurf_new, dflux_s, dflux_l, &
-       flux_u1, flux_v1 &
+!GG       flux_u1, flux_v1)
+       flux_u1, flux_v1, hice, tice,bilg_cumul, &
+       fcds, fcdi, dh_basal_growth, dh_basal_melt, dh_top_melt, dh_snow2sic, &
+       dtice_melt, dtice_snow2sic &
+!GG
 #ifdef ISO
          &      ,xtprecip_rain, xtprecip_snow,xtspechum,Roce, &
@@ -101 +105 @@
     REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
     REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1
+!GG
+    REAL, DIMENSION(klon), INTENT(INOUT)       :: hice, tice, bilg_cumul
+    REAL, DIMENSION(klon), INTENT(INOUT)       :: fcds,fcdi, dh_basal_growth,dh_basal_melt
+    REAL, DIMENSION(klon), INTENT(INOUT)       :: dh_top_melt, dh_snow2sic, dtice_melt, dtice_snow2sic
+!GG
 #ifdef ISO
     REAL, DIMENSION(ntiso,klon), INTENT(OUT) :: xtevap
@@ -169 +178 @@
             AcoefH, AcoefQ, BcoefH, BcoefQ, &
             AcoefU, AcoefV, BcoefU, BcoefV, &
-            ps, u1, v1, gustiness, &
+!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, &
-            tsurf_new, dflux_s, dflux_l, rhoa &
+!GG            tsurf_new, dflux_s, dflux_l, rhoa)
+            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, &
+            dtice_melt, dtice_snow2sic &
+!GG
 #ifdef ISO
             ,xtprecip_rain, xtprecip_snow, xtspechum,Roce, &