Ignore:
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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2127 r2130  
    7676      zhl(:,:) = pt(:,:) / zpopsk(:,:)
    7777     
    78       zqt(:,:) = pq(:,:,igcm_h2o_vap)
    79      
    8078!===============================================================================
    8179! Condensation and latent heat release
    … …  
    8381     
    8482      IF (water) THEN
     83         
     84         zqt(:,:) = pq(:,:,igcm_h2o_vap)
    8585         
    8686         DO l=1,nlay
    … …  
    101101      ELSE
    102102         
     103         zqt(:,:) = 0.
     104         zql(:,:) = 0.
    103105         zt(:,:) = pt(:,:)
    104          ztv(:,:) = pt(:,:) / zpopsk(:,:)
     106         ztv(:,:) = zhl(:,:)
    105107         
    106108      ENDIF
Note: See TracChangeset for help on using the changeset viewer.