Changeset 5489 for LMDZ6/branches/contrails/libf/phylmd/surf_land_bucket_mod.F90

Timestamp:

Jan 17, 2025, 6:16:25 PM (13 days ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_land_bucket_mod.F90 (modified) (2 diffs)

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

@@ -102 +102 @@
     REAL, DIMENSION(klon) :: soilcap, soilflux
     REAL, DIMENSION(klon) :: cal, beta, dif_grnd, capsol
-    REAL, DIMENSION(klon) :: alb_neig, alb_lim
+    REAL, DIMENSION(klon) :: alb_neig, alb_lim, icesub
     REAL, DIMENSION(klon) :: zfra
     REAL, DIMENSION(klon) :: radsol       ! total net radiance at surface
@@ -239 +239 @@
     CALL fonte_neige( knon, is_ter, knindex, dtime, &
          tsurf, precip_rain, precip_snow, &
-         snow, qsol, tsurf_new, evap &
+         snow, qsol, tsurf_new, evap, icesub &
 #ifdef ISO    
      & ,fq_fonte_diag,fqfonte_diag,snow_evap_diag,fqcalving_diag   &