Changeset 4545 for LMDZ6/trunk/libf/phylmd/atke_turbulence_ini_mod.F90

Timestamp:

May 22, 2023, 9:42:23 AM (17 months ago)

Author:

evignon

Message:

modifications suite au dernier atelier TKE. Ajout de la routine
call_atke_mod et test d'une prediction explicit du cisaillement pour calculer
les Km et Kh

File:

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

LMDZ6/trunk/libf/phylmd/atke_turbulence_ini_mod.F90

@@ -5 +5 @@
 save
 
-  integer :: iflag_atke
-  !$OMP THREADPRIVATE(iflag_atke)
+integer :: iflag_atke, iflag_num_atke
+!$OMP THREADPRIVATE(iflag_atke, iflag_num_atke)
   real :: kappa = 0.4 ! Von Karman constant
   !$OMP THREADPRIVATE(kappa)
@@ -45 +45 @@
   CALL getin_p('iflag_atke',iflag_atke)
 
+  ! flag that controls the numerical treatment of diffusion coeffiient calculation
+  iflag_num_atke=0
+  CALL getin_p('iflag_num_atke',iflag_num_atke)
+
   ! asymptotic mixing length [m]
   l0=150.0