Changeset 4590 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90

Timestamp:

Jun 29, 2023, 3:03:15 AM (11 months ago)

Author:

fhourdin

Message:

Passage des thermiques a la nouvelle norme.

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/thermcell_main.F90) (6 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90

@@ +1 @@
+MODULE lmdz_thermcell_main
 ! $Id$
 !
+CONTAINS
+
       subroutine thermcell_main(itap,ngrid,nlay,ptimestep  &
      &                  ,pplay,pplev,pphi,debut  &
@@ -16 +19 @@
 
 
-      USE thermcell_ini_mod, ONLY: thermcell_ini,dqimpl,dvdq,prt_level,lunout,prt_level
-      USE thermcell_ini_mod, ONLY: iflag_thermals_closure,iflag_thermals_ed,tau_thermals,r_aspect_thermals
-      USE thermcell_ini_mod, ONLY: iflag_thermals_down, fact_thermals_down
-      USE thermcell_ini_mod, ONLY: RD,RG
+      USE lmdz_thermcell_ini, ONLY: thermcell_ini,dqimpl,dvdq,prt_level,lunout,prt_level
+      USE lmdz_thermcell_ini, ONLY: iflag_thermals_closure,iflag_thermals_ed,tau_thermals,r_aspect_thermals
+      USE lmdz_thermcell_ini, ONLY: iflag_thermals_down,fact_thermals_down
+      USE lmdz_thermcell_ini, ONLY: RD,RG
+
+      USE lmdz_thermcell_down, ONLY: thermcell_updown_dq
+      USE lmdz_thermcell_closure, ONLY: thermcell_closure
+      USE lmdz_thermcell_dq, ONLY: thermcell_dq
+      USE lmdz_thermcell_dry, ONLY: thermcell_dry
+      USE lmdz_thermcell_dv2, ONLY: thermcell_dv2
+      USE lmdz_thermcell_env, ONLY: thermcell_env
+      USE lmdz_thermcell_flux2, ONLY: thermcell_flux2
+      USE lmdz_thermcell_height, ONLY: thermcell_height
+      USE lmdz_thermcell_plume, ONLY: thermcell_plume
+      USE lmdz_thermcell_plume_6A, ONLY: thermcell_plume_6A,thermcell_plume_5B
 
 #ifdef ISO
@@ -89 +103 @@
       integer, intent(in) :: itap,ngrid,nlay
       real, intent(in) ::  ptimestep
-      real, intent(in), dimension(ngrid,nlay)    :: pt,pu,pv,po,pplay,pphi,zpspsk
+      real, intent(in), dimension(ngrid,nlay)    :: pt,pu,pv,pplay,pphi
+! ATTENTION : po et zpspsk sont inout et out mais c'est pas forcement pour de bonnes raisons (FH, 2023)
+      real, intent(inout), dimension(ngrid,nlay)    :: po
+      real, intent(out), dimension(ngrid,nlay)    :: zpspsk
       real, intent(in), dimension(ngrid,nlay+1)  :: pplev
       integer, intent(out), dimension(ngrid) :: lmax
@@ -727 +744 @@
     &            zqla,f_star,zw2,comment)                          ! in
 !=============================================================================
-      USE thermcell_ini_mod, ONLY: prt_level
+      USE lmdz_thermcell_ini, ONLY: prt_level
       IMPLICIT NONE
 
@@ -771 +788 @@
      &     ngrid,nlay,ptimestep,fm0,entr0,rg,pplev,  &   ! in
      &     therm_tke_max)                                ! out
-      USE thermcell_ini_mod, ONLY: prt_level
+      USE lmdz_thermcell_ini, ONLY: prt_level
       implicit none
 
@@ -885 +902 @@
      end
 
+END MODULE lmdz_thermcell_main