Changeset 4590 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.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_plume_6A.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/thermcell_plume_6A.F90) (4 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.F90

@@ +1 @@
+MODULE lmdz_thermcell_plume_6A
 !
 ! $Id$
 !
+CONTAINS
+
       SUBROUTINE thermcell_plume_6A(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,  &
      &           zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
@@ -12 +15 @@
 !--------------------------------------------------------------------------
 
-       USE thermcell_ini_mod, ONLY: prt_level,fact_thermals_ed_dz,iflag_thermals_ed,RLvCP,RETV,RG
-       USE thermcell_ini_mod, ONLY: fact_epsilon, betalpha, afact, fact_shell
-       USE thermcell_ini_mod, ONLY: detr_min, entr_min, detr_q_coef, detr_q_power
-       USE thermcell_ini_mod, ONLY: mix0, thermals_flag_alim
+       USE lmdz_thermcell_ini, ONLY: prt_level,fact_thermals_ed_dz,iflag_thermals_ed,RLvCP,RETV,RG
+       USE lmdz_thermcell_ini, ONLY: fact_epsilon, betalpha, afact, fact_shell
+       USE lmdz_thermcell_ini, ONLY: detr_min, entr_min, detr_q_coef, detr_q_power
+       USE lmdz_thermcell_ini, ONLY: mix0, thermals_flag_alim
+       USE lmdz_thermcell_alim, ONLY : thermcell_alim
+       USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
+
 
        IMPLICIT NONE
@@ -718 +724 @@
 !--------------------------------------------------------------------------
 
-      USE thermcell_ini_mod, ONLY: prt_level,fact_thermals_ed_dz,iflag_thermals_ed,RLvCP,RETV,RG
+      USE lmdz_thermcell_ini, ONLY: prt_level,fact_thermals_ed_dz,iflag_thermals_ed,RLvCP,RETV,RG
+       USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
       IMPLICIT NONE
 
@@ -1109 +1116 @@
      return 
      end
+END MODULE lmdz_thermcell_plume_6A