Changeset 4089 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Mar 10, 2022, 7:23:47 PM (2 years ago)

Author:

fhourdin

Message:

Reecriture des thermiques

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -78 +78 @@
     USE write_field_phy
     USE lscp_mod, ONLY : lscp
+    USE thermcell_ini_mod, ONLY : thermcell_ini
 
     !USE cmp_seri_mod
@@ -421 +422 @@
     include "dimsoil.h"
     include "clesphys.h"
-    include "thermcell.h"
+    include "alpale.h"
     include "dimpft.h"
     !======================================================================
@@ -1868 +1869 @@
 
        CALL iniradia(klon,klev,paprs(1,1:klev+1))
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
+   &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
        !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!