Changeset 4449 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Mar 2, 2023, 4:17:32 PM (15 months ago)

Author:

evignon

Message:

commission du nouveau schema de turbulence developpe
dans le cadre de l'atelier tke

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -82 +82 @@
     USE wake_ini_mod, ONLY : wake_ini
     USE yamada_ini_mod, ONLY : yamada_ini
-
+    USE atke_turbulence_ini_mod, ONLY : atke_ini
     USE thermcell_ini_mod, ONLY : thermcell_ini
     USE lscp_ini_mod, ONLY : lscp_ini
@@ -1748 +1748 @@
        CALL wake_ini(rg,rd,rv,prt_level)
        CALL yamada_ini(klon,lunout,prt_level)
+       CALL atke_ini(prt_level, lunout, RG, RD, RPI)
        CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
    &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)