Changeset 2093 for trunk/LMDZ.GENERIC/libf/phystd/thermcell_alim.F90

Timestamp:

Feb 7, 2019, 12:01:36 PM (6 years ago)

Author:

aboissinot

Message:

d_temp is now taken into acocunt in thermcell_plume to trigger the plume and compute first unstable layer speed.
Modified temperature is computed in thermcell_plume and thermcell_alim get it via its arguments.

File:

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

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

@@ -2 +2 @@
 !
 !
-      SUBROUTINE thermcell_alim(ngrid,klev,ztv,zlev,alim_star,lalim,lmin)
+      SUBROUTINE thermcell_alim(ngrid,klev,ztv2,zlev,alim_star,lalim,lmin)
       
       
@@ -27 +27 @@
       INTEGER, INTENT(IN) :: lmin(ngrid)        ! plume initial level
       
-      REAL, INTENT(IN) :: ztv(ngrid,klev)       ! Large scale virtual potential temperature
-! Virtual potential temperature offset in linf layer
+      REAL, INTENT(IN) :: ztv2(ngrid,klev)      ! Virtual potential temperature
       REAL, INTENT(IN) :: zlev(ngrid,klev+1)    ! levels altitude
       
@@ -44 +43 @@
       
       REAL :: alim_star_tot(ngrid)              ! integrated alimentation
-      REAL :: ztv2(ngrid,klev)                  ! ztv + d_temp
       
 !==============================================================================
@@ -53 +51 @@
       
       alim_star_tot(:) = 0.
-      
-      ztv2(:,:) = ztv(:,:)
-      ztv2(:,linf) = ztv2(:,linf) + d_temp
       
 !==============================================================================