Changeset 2129 for trunk/LMDZ.GENERIC/libf

Timestamp:

Apr 29, 2019, 10:28:35 AM (6 years ago)

Author:

aboissinot

Message:

cf. revision 2127

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -16 +16 @@
       use radinc_h, only : L_NSPECTI,L_NSPECTV,naerkind
       use watercommon_h, only : RLVTT, Psat_water,epsi,su_watercycle, RV, T_h2o_ice_liq
-      use thermcell_mod, only: nbsrf, init_thermcell_mod
+      use thermcell_mod, only: init_thermcell_mod
       use gases_h, only: gnom, gfrac
       use radcommon_h, only: sigma, glat, grav, BWNV
@@ -258 +258 @@
       INTEGER lmax(ngrid)                 ! Maximal level reached by the plume
       
-! AB : Integers used only in alp for diagnoses
-      INTEGER lalim_conv(ngrid)
-      INTEGER zlcl(ngrid)
-      
       real,allocatable,save :: f0(:)      ! Mass flux norm
       real dqevap(ngrid,nlayer,nq)        ! water tracer mass mixing ratio variations due to evaporation
@@ -281 +277 @@
       real ratqscth(ngrid, nlayer)        ! 
       real ratqsdiff(ngrid, nlayer)       ! 
-      
-! AB : Reals only used in alp for diagnoses
-      real Ale_bl(ngrid), Alp_bl(ngrid)
-      real therm_tke_max0(ngrid), env_tke_max0(ngrid)
-      real n2(ngrid), s2(ngrid)
-      real ale_bl_stat(ngrid)
-      real therm_tke_max(ngrid, nlayer), env_tke_max(ngrid, nlayer)
-      real alp_bl_det(ngrid), alp_bl_fluct_m(ngrid), alp_bl_fluct_tke(ngrid), alp_bl_conv(ngrid), alp_bl_stat(ngrid)
-      real wght_th(ngrid, nlayer)
-      real pbl_tke(ngrid,nlayer+1,nbsrf)
-      real pctsrf(ngrid, nbsrf)
-! AB : omega already defined, do we have to fusion them ?
-      real omega_therm(ngrid, nlayer)
-      real airephy(ngrid)
-      real w0(ngrid)
-      real w_conv(ngrid)
-      real fraca0(ngrid)
-      
+            
 ! AB : variables used for outputs
       REAL pmax(ngrid)                       ! Maximal pressure reached by the plume
@@ -338 +317 @@
       real zdqdif(ngrid,nlayer,nq)    ! Turbdiff/vdifc routines.
       real zdqevap(ngrid,nlayer)      ! Turbdiff routine.
-      real zdotherm(ngrid,nlayer)     ! Calltherm routine.
+      real zdqtherm(ngrid,nlayer,nq)  ! Calltherm routine.
       real zdqsed(ngrid,nlayer,nq)    ! Callsedim routine.
       real zdqmr(ngrid,nlayer,nq)     ! Mass_redistribution routine.