Changeset 5778 for LMDZ6/trunk/libf

Timestamp:

Jul 16, 2025, 1:17:02 PM (5 days ago)

Author:

evignon

Message:

deplacement de l'initialisation des parametres tkeoro dans physiq_mod

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1837 +1837 @@
        CALL iniradia(klon,klev,paprs(1,1:klev+1))
 
+       
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        CALL surf_wind_ini(klon,lunout)
        CALL getin_p('nsurfwind',nsurfwind)
        allocate(surf_wind_value(klon,nsurfwind),surf_wind_proba(klon,nsurfwind))
-    
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       ! initialisation des variables tkeoro
+       addtkeoro=0
+       CALL getin_p('addtkeoro',addtkeoro)
+
+       alphatkeoro=1.
+       CALL getin_p('alphatkeoro',alphatkeoro)
+       alphatkeoro=min(max(0.,alphatkeoro),1.)
+
+       smallscales_tkeoro=.FALSE.
+       CALL getin_p('smallscales_tkeoro',smallscales_tkeoro)
+       
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        CALL wake_ini(rg,rd,rv,prt_level)
@@ -5175 +5187 @@
 !            Additional tendency of TKE due to orography
 !===============================================================
-!
-! Inititialization
-!------------------
-
-       addtkeoro=0
-       CALL getin_p('addtkeoro',addtkeoro)
-
-       IF (prt_level.ge.5) &
-            print*,'addtkeoro', addtkeoro
-
-       alphatkeoro=1.
-       CALL getin_p('alphatkeoro',alphatkeoro)
-       alphatkeoro=min(max(0.,alphatkeoro),1.)
-
-       smallscales_tkeoro=.FALSE.
-       CALL getin_p('smallscales_tkeoro',smallscales_tkeoro)
-
 
        dtadd(:,:)=0.