Changeset 5364 for LMDZ6/trunk/libf

Timestamp:

Dec 3, 2024, 8:37:58 AM (13 days ago)

Author:

evignon

Message:

Valentin Wiener, Etienne Vignon: remplacement de la cle z0h_landice par ratio_z0hz0m_landice
car beaucoup plus pertinent pour le tuning

Location:

LMDZ6/trunk/libf/phylmd

Files:

• clesphys_mod_h.f90 (modified) (3 diffs)
• conf_phys_m.f90 (modified) (3 diffs)
• surf_landice_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/clesphys_mod_h.f90

@@ -14 +14 @@
           , f_cdrag_ter, f_cdrag_oce, f_rugoro, z0min, tau_gl              &
           , min_wind_speed, f_gust_wk, f_gust_bl, f_qsat_oce, f_z0qh_oce   &
-          , z0m_seaice, z0h_seaice, z0m_landice, z0h_landice              &
+          , z0m_seaice, z0h_seaice, z0m_landice, ratio_z0hz0m_landice  &
           , freq_outNMC, freq_calNMC                                   &
           , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
@@ -105 +105 @@
   REAL min_wind_speed, f_gust_wk, f_gust_bl, f_qsat_oce, f_z0qh_oce
   REAL z0m_seaice, z0h_seaice
-  REAL z0m_landice, z0h_landice
+  REAL z0m_landice, ratio_z0hz0m_landice
   INTEGER iflag_gusts, iflag_z0_oce
 
@@ -171 +171 @@
   !$OMP      , f_cdrag_ter, f_cdrag_oce, f_rugoro, z0min, tau_gl              &
   !$OMP      , min_wind_speed, f_gust_wk, f_gust_bl, f_qsat_oce, f_z0qh_oce   &
-  !$OMP      , z0m_seaice, z0h_seaice, z0m_landice, z0h_landice              &
+  !$OMP      , z0m_seaice, z0h_seaice, z0m_landice, ratio_z0hz0m_landice  &
   !$OMP      , freq_outNMC, freq_calNMC                                   &
   !$OMP      , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -133 +133 @@
     REAL, SAVE          :: f_rugoro_omp   , z0min_omp
     REAL, SAVE          :: z0m_seaice_omp,z0h_seaice_omp
-    REAL, SAVE          :: z0m_landice_omp,z0h_landice_omp
+    REAL, SAVE          :: z0m_landice_omp,ratio_z0hz0m_landice_omp
     REAL, SAVE          :: min_wind_speed_omp,f_gust_wk_omp,f_gust_bl_omp,f_qsat_oce_omp, f_z0qh_oce_omp
     INTEGER, SAVE       :: iflag_gusts_omp,iflag_z0_oce_omp
@@ -1947 +1947 @@
 
     z0m_landice_omp = 0.001 ; CALL getin('z0m_landice',z0m_landice_omp)
-    z0h_landice_omp = 0.001 ; CALL getin('z0h_landice',z0h_landice_omp)
+    ratio_z0hz0m_landice_omp = 1. ; CALL getin('ratio_z0hz0m_landice',ratio_z0hz0m_landice_omp)
 
     f_rugoro_omp = 0.
@@ -2504 +2504 @@
     z0h_seaice=z0h_seaice_omp
     z0m_landice=z0m_landice_omp
-    z0h_landice=z0h_landice_omp
+    ratio_z0hz0m_landice=ratio_z0hz0m_landice_omp
 
     f_rugoro=f_rugoro_omp

LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

@@ -448 +448 @@
 if (z0m_landice .GT. 0.) then
     z0m(1:knon) = z0m_landice
-    z0h(1:knon) = z0h_landice
+    z0h(1:knon) = z0m_landice*ratio_z0hz0m_landice
 else
     ! parameterization of z0=f(T) following measurements in Adelie Land by Amory et al 2017