Changeset 4822 for LMDZ6/trunk/libf/phylmd/yamada_ini_mod.F90

Timestamp:

Feb 15, 2024, 7:35:57 PM (4 months ago)

Author:

fhourdin

Message:

Transport de la TKE par les thermiques

File:

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

LMDZ6/trunk/libf/phylmd/yamada_ini_mod.F90

@@ -16 +16 @@
   real :: ric, yun,ydeux,lmixmin,b1,kap,kapb
   !$OMP THREADPRIVATE(ric, yun,ydeux,lmixmin,b1,kap,kapb)
+  integer :: iflag_vdif_q2
+  !$OMP THREADPRIVATE(iflag_vdif_q2)
 
   real, dimension(:), allocatable, save :: l0
@@ -45 +47 @@
    new_yamada4=.false.
    CALL getin_p('new_yamada4',new_yamada4)
+
+   iflag_vdif_q2=1
+   CALL getin_p('iflag_vdif_q2',iflag_vdif_q2)