Changeset 6070 for LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

Timestamp:

Feb 6, 2026, 10:58:17 AM (3 weeks ago)

Author:

evignon

Message:

reorganisation de la routine ocean_forced_mod pour gerer les nouvelles
options pour le traitement de la banquise en force.
Travail issu des echanges avec G. Gastineau en vu des prochains stages de master

File:

• LMDZ6/trunk/libf/phylmd/conf_phys_m.f90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -199 +199 @@
     INTEGER, SAVE :: iflag_cycle_diurne_omp
     LOGICAL, SAVE :: soil_model_omp,liqice_in_radocond_omp
-    !GG
     INTEGER,SAVE :: iflag_seaice_omp, iflag_seaice_alb_omp
     INTEGER,SAVE :: iflag_leads_omp
@@ -208 +207 @@
     REAL,SAVE :: si_pen_frac_omp,si_pen_ext_omp
     REAL,SAVE :: fseaN_omp, fseaS_omp
-    !GG
+    REAL,SAVE :: sic_hice_fixed_omp
     LOGICAL, SAVE :: ok_limitvrai_omp
     INTEGER, SAVE :: nbapp_rad_omp, iflag_con_omp
@@ -902 +901 @@
     CALL getin('iflag_seaice_alb',iflag_seaice_alb_omp)
 
+    !Config  Key  = sic_hice_fixed
+    !Config  Desc = imposed sea-ice thickness [m]
+    !Config  Def  = 
+    sic_hice_fixed_omp = 1.0
+    CALL getin('sic_hice_fixed',sic_hice_fixed_omp)
+
+
     !Config  Key  = iflag_seaice_alb
     !Config  Desc = Flag de sea ice leads
@@ -2179 +2185 @@
     soil_model = soil_model_omp
     liqice_in_radocond = liqice_in_radocond_omp
-! GG
+    sic_hice_fixed = sic_hice_fixed_omp
     sice_cond = sice_cond_omp
     sisno_cond = sisno_cond_omp
@@ -2710 +2716 @@
     WRITE(lunout,*) ' var_fco2_land_cor = ', var_fco2_land_cor
     WRITE(lunout,*) ' dms_cycle_cpl = ', dms_cycle_cpl
-    !GG
     WRITE(lunout,*) ' iflag_seaice = ', iflag_seaice
     WRITE(lunout,*) ' iflag_seaice_alb = ', iflag_seaice_alb
     WRITE(lunout,*) ' iflag_leads = ', iflag_leads
+    WRITE(lunout,*) ' sic_hice_fixed = ', sic_hice_fixed
     WRITE(lunout,*) ' sice_cond = ', sice_cond 
     WRITE(lunout,*) ' sisno_cond = ', sisno_cond 
@@ -2730 +2736 @@
     WRITE(lunout,*) ' fseaN = ', fseaN
     WRITE(lunout,*) ' fseaS = ', fseaS
-!GG
+    
     WRITE(lunout,*) ' n2o_cycle_cpl = ', n2o_cycle_cpl
     WRITE(lunout,*) ' ndp_cycle_cpl = ', ndp_cycle_cpl