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

Timestamp:

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

Author:

fhourdin

Message:

Passage des thermiques a la nouvelle norme.

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/thermcell_plume.F90) (3 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.F90

@@ +1 @@
+MODULE lmdz_thermcell_plume
 !
 ! $Id: thermcell_plume.F90 3074 2017-11-15 13:31:44Z fhourdin $
 !
+CONTAINS
+
       SUBROUTINE thermcell_plume(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,  &
      &           zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
@@ -22 +25 @@
 !--------------------------------------------------------------------------
 
-       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
@@ -446 +452 @@
  RETURN
      end
+END MODULE lmdz_thermcell_plume