Changeset 2130 for trunk/LMDZ.GENERIC/libf

Timestamp:

Apr 29, 2019, 1:55:57 PM (6 years ago)

Author:

aboissinot

Message:

More satisfiying initialisations in thermcell_env.F90
Add new informations about some variables in thermcell_plume.F90

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• thermcell_env.F90 (modified) (3 diffs)
• thermcell_plume.F90 (modified) (2 diffs)

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

@@ -76 +76 @@
       zhl(:,:) = pt(:,:) / zpopsk(:,:)
       
-      zqt(:,:) = pq(:,:,igcm_h2o_vap)
-      
 !===============================================================================
 ! Condensation and latent heat release
@@ -83 +81 @@
       
       IF (water) THEN
+         
+         zqt(:,:) = pq(:,:,igcm_h2o_vap)
          
          DO l=1,nlay
@@ -101 +101 @@
       ELSE
          
+         zqt(:,:) = 0.
+         zql(:,:) = 0.
          zt(:,:) = pt(:,:)
-         ztv(:,:) = pt(:,:) / zpopsk(:,:)
+         ztv(:,:) = zhl(:,:)
          
       ENDIF

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

@@ -62 +62 @@
       
       REAL ztva(ngrid,nlay)                     ! TRPV plume (after mixing)
-      REAL zhla(ngrid,nlay)                     ! TP   plume ?
+      REAL zhla(ngrid,nlay)                     ! TP   plume (after mixing)
       REAL zqla(ngrid,nlay)                     ! ql   plume (after mixing)
-      REAL zqta(ngrid,nlay)                     ! qt   plume ?
+      REAL zqta(ngrid,nlay)                     ! qt   plume (after mixing)
       REAL zqsa(ngrid,nlay)                     ! qsat plume (after mixing)
-      REAL zw2(ngrid,nlay+1)                    ! w    plume (after mixing)
+      REAL zw2(ngrid,nlay+1)                    ! w2   plume (after mixing)
       
 !     Local:
@@ -77 +77 @@
       REAL zta_est(ngrid,nlay)                  ! TR   plume (before mixing)
       REAL zqsa_est(ngrid)                      ! qsat plume (before mixing)
-      REAL zw2_est(ngrid,nlay+1)                ! w    plume (before mixing)
+      REAL zw2_est(ngrid,nlay+1)                ! w2   plume (before mixing)
       
       REAL zta(ngrid,nlay)                      ! TR   plume (after mixing)