Changeset 6078 for LMDZ6/trunk/libf/phylmd/surf_land_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_land_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

@@ -76 +76 @@
 
     USE dimpft_mod_h, ONLY: nvm_lmdz
-    USE clesphys_mod_h, ONLY : nsw, ok_bs
+    USE clesphys_mod_h, ONLY : nsw, ok_bs, z0m_land, z0h_land, iflag_z0_ter
     USE yomcst_mod_h, ONLY: RCPD, RKAPPA
     USE print_control_mod, ONLY: lunout
@@ -336 +336 @@
 #endif           
      &       )
-        z0h(1:knon)=z0m(1:knon) ! En attendant mieux
+
+
+      z0h(1:knon)=z0m(1:knon) ! En attendant mieux
 
       ENDIF ! iflag_hetero_surf
 
+    ! possibility to impose z0m et z0h over land
+
+
     ENDIF ! ok_veget
 
-        ! blowing snow not treated yet over land
-        fluxbs(:)=0.
+    IF (iflag_z0_ter==-1) THEN
+      DO i = 1, knon
+          z0m(i) = z0m_land
+          z0h(i) = z0h_land
+      ENDDO
+    ENDIF
+
+    ! blowing snow not treated yet over land
+    fluxbs(:)=0.