Changeset 5662 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

May 20, 2025, 4:24:41 PM (6 months ago)

Author:

Laurent Fairhead

Message:

Ajout du modèle thermodynamique de glace de mer interactive améliorant les flux échangés à la surface de la banquise (Doctorat de Nicolas Michalezyk, Contact : Nicolas Michaleyk, Guillaume Gastineau)

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90 (modified) (3 diffs)

LMDZ6/trunk/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,  & 
@@ -278 +282 @@
   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