Changeset 4133 for LMDZ6/trunk/libf/phylmd/thermcell_main.F90

Timestamp:

Apr 20, 2022, 11:44:24 PM (2 years ago)

Author:

fhourdin

Message:

Corrections thermiques pour replay

File:

• LMDZ6/trunk/libf/phylmd/thermcell_main.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_main.F90

@@ -61 +61 @@
 !    15 and 17 correspond to the activation of the stratocumulus "bidouille"
 !
+! Using
+!    abort_physic 
+!    iso_verif_aberrant_encadre
+!    iso_verif_egalite
+!    test_ltherm
+!    thermcell_closure
+!    thermcell_dq
+!    thermcell_dry
+!    thermcell_dv2
+!    thermcell_env
+!    thermcell_flux2
+!    thermcell_height
+!    thermcell_plume
+!    thermcell_plume_5B
+!    thermcell_plume_6A
+!
 !=======================================================================
 
@@ -75 +91 @@
       real, intent(in), dimension(ngrid,nlay)    :: pt,pu,pv,po,pplay,pphi,zpspsk
       real, intent(in), dimension(ngrid,nlay+1)  :: pplev
+      integer, intent(out), dimension(ngrid) :: lmax
       real, intent(out), dimension(ngrid,nlay)   :: pdtadj,pduadj,pdvadj,pdoadj,entr0,detr0
       real, intent(out), dimension(ngrid,nlay)   :: ztla,zqla,zqta,zqsatth,zthl
       real, intent(out), dimension(ngrid,nlay+1) :: fm0,zw2,fraca
-      real, intent(out), dimension(ngrid) :: zmax0,f0
+      real, intent(inout), dimension(ngrid) :: zmax0,f0
       real, intent(out), dimension(ngrid,nlay) :: ztva,ztv
       logical, intent(in) :: debut
+      real,intent(out), dimension(ngrid,nlay) :: ratqscth,ratqsdiff
 
       real, intent(out), dimension(ngrid) :: pcon
@@ -105 +123 @@
       logical sorties
       real, dimension(ngrid) :: linter,zmix, zmax_sec
-      integer,dimension(ngrid) :: lmax,lmin,lmix,lmix_bis,nivcon
+      integer,dimension(ngrid) :: lmin,lmix,lmix_bis,nivcon
       real, dimension(ngrid,nlay) :: ztva_est
       real, dimension(ngrid,nlay) :: deltaz,zlay,zh,zdthladj,zu,zv,zo,zl,zva,zua,zoa
       real, dimension(ngrid,nlay) :: zta,zha,q2,wq,wthl,wthv,thetath2,wth2
-      real, dimension(ngrid,nlay) :: ratqscth,ratqsdiff,rho,masse
+      real, dimension(ngrid,nlay) :: rho,masse
       real, dimension(ngrid,nlay+1) :: zw_est,zlev
       real, dimension(ngrid) :: wmax,wmax_tmp
@@ -136 +154 @@
 !   ---------------
 !
-
    fm=0. ; entr=0. ; detr=0.
 
@@ -706 +723 @@
       real seuil
       character*21 comment
+
       seuil=0.25