Changeset 6078 for LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Feb 16, 2026, 6:01:58 PM (5 days ago)

Author:

evignon

Message:

harmonisation des lectures de z0 dans les .def afin de pouvoir forcer les cas 1D au format standard
en z0m et z0h sur tout type de sous-surface

File:

• LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -46 +46 @@
 #endif
 #endif
-    USE clesphys_mod_h, ONLY: nsw, ok_bs, f_z0qh_oce, iflag_albedo, iflag_cycle_diurne, fmagic, pmagic, iflag_z0_oce, z0min 
+    USE clesphys_mod_h, ONLY: nsw, ok_bs, f_z0qh_oce, iflag_albedo, iflag_cycle_diurne, fmagic, pmagic
+    USE clesphys_mod_h, ONLY:  iflag_z0_oce, z0m_ocean, z0h_ocean 
     USE yomcst_mod_h, ONLY: rd, retv, rg, rlvtt
     USE limit_read_mod, ONLY: limit_read_rug_alb
@@ -369 +370 @@
 
     !******************************************************************************
-    ! Calculate the rugosity
+    ! Calculate the roughness lengths
     !******************************************************************************
     IF (iflag_z0_oce==0) THEN
@@ -390 +391 @@
     ELSE IF (iflag_z0_oce==-1) THEN
        DO i = 1, knon
-          z0m(i) = z0min
-          z0h(i) = z0min
+          z0m(i) = z0m_ocean
+          z0h(i) = z0h_ocean
        ENDDO
     ELSE