Changeset 5791 for LMDZ6/branches/contrails/libf/dynphy_lonlat/phylmd

Timestamp:

Jul 28, 2025, 7:23:15 PM (4 months ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

@@ -110 +110 @@
   REAL, DIMENSION(SIZE(masque,1),SIZE(masque,2)) :: masque_tmp,phiso
   REAL, DIMENSION(klon)               :: sn, rugmer, run_off_lic_0, fder
+  !GG
+  REAL, DIMENSION(klon)               :: hice, tsic, bilg_cumul
+  !GG
   REAL, DIMENSION(klon,nbsrf)         :: qsurf, snsrf
   REAL, DIMENSION(klon,nsoilmx,nbsrf) :: tsoil
@@ -142 +145 @@
                    iflag_cldcon,                                        &
                    ratqsbas,ratqshaut,tau_ratqs,            &
+             !GG      iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
                    ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, flag_volc_surfstrat,     &
                    aerosol_couple, chemistry_couple, flag_aerosol, flag_aerosol_strat,  & 
@@ -283 +287 @@
   detr_therm       = 0.
   awake_s = 0.
+  !GG
+  hice             = 1.0
+  tsic             = tsol
+  bilg_cumul       = 0.
+  !GG
 
   CALL fonte_neige_init(run_off_lic_0)
-  CALL pbl_surface_init( fder, snsrf, qsurf, tsoil )
+!GG  CALL pbl_surface_init( fder, snsrf, qsurf, tsoil )
+  CALL pbl_surface_init( fder, snsrf, qsurf, tsoil, hice, tsic, bilg_cumul)
+  !GG
 
   IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) then