Changeset 4472

Timestamp:

Mar 15, 2023, 10:02:55 AM (21 months ago)

Author:

Laurent Fairhead

Message:

Missing parameter initialisation from r4448

File:

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

LMDZ6/trunk/libf/phylmd/yamada_ini_mod.F90

@@ -13 +13 @@
   LOGICAL :: hboville=.TRUE.
   REAL :: viscom,viscoh,pbl_lmixmin_alpha
-  !$OMP THREADPRIVATE( hboville,viscom,viscoh)
+  !$OMP THREADPRIVATE( hboville,viscom,viscoh,pbl_lmixmin_alpha)
   real :: ric, yun,ydeux,lmixmin,b1,kap,kapb
   !$OMP THREADPRIVATE(ric, yun,ydeux,lmixmin,b1,kap,kapb)
@@ -80 +80 @@
     CALL getin_p('yamada4_hboville',hboville)
     CALL getin_p('yamada4_num',yamada4_num)
+    pbl_lmixmin_alpha=0.0
+    CALL getin_p('pbl_lmixmin_alpha',pbl_lmixmin_alpha)