Changeset 4161 for LMDZ6/trunk/libf
- Timestamp:
- May 20, 2022, 2:54:07 PM (2 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/thermcell_plume.F90
r4093 r4161 63 63 64 64 65 REAL wa_moy(ngrid,nlay+1)66 REAL entr(ngrid,nlay),detr(ngrid,nlay)67 REAL ztv_est(ngrid,nlay)68 REAL zqla_est(ngrid,nlay)69 REAL zta_est(ngrid,nlay)70 REAL ztemp(ngrid),zqsat(ngrid)65 REAL,dimension(ngrid,nlay+1) :: wa_moy 66 REAL,dimension(ngrid,nlay) :: entr,detr 67 REAL,dimension(ngrid,nlay) :: ztv_est 68 REAL,dimension(ngrid,nlay) :: zqla_est 69 REAL,dimension(ngrid,nlay) :: zta_est 70 REAL,dimension(ngrid) :: ztemp,zqsat 71 71 REAL zdw2,zdw2bis 72 72 REAL zw2modif 73 73 REAL zw2fact,zw2factbis 74 REAL zeps(ngrid,nlay)75 76 REAL wmaxa(ngrid)74 REAL,dimension(ngrid,nlay) :: zeps 75 76 REAL,dimension(ngrid) :: wmaxa 77 77 78 78 INTEGER ig,l,k,lt,it,lm,nbpb 79 79 80 real zdz,zbuoy(ngrid,nlay),zalpha,gamma(ngrid,nlay),zdqt(ngrid,nlay),zw2m 81 real zbuoyjam(ngrid,nlay),zdqtjam(ngrid,nlay) 80 real,dimension(ngrid,nlay) :: zbuoy,gamma,zdqt 81 real zdz,zalpha,zw2m 82 real,dimension(ngrid,nlay) :: zbuoyjam,zdqtjam 82 83 real zdz2,zdz3,lmel,entrbis,zdzbis 83 real d_temp(ngrid)84 real,dimension(ngrid) :: d_temp 84 85 real ztv1,ztv2,factinv,zinv,zlmel 85 86 real zlmelup,zlmeldwn,zlt,zltdwn,zltup … … 90 91 real eps 91 92 logical Zsat 92 LOGICAL active(ngrid),activetmp(ngrid)93 LOGICAL,dimension(ngrid) :: active,activetmp 93 94 REAL fact_gamma,fact_gamma2,fact_epsilon2 94 95 95 96 96 REAL c2(ngrid,nlay)97 REAL,dimension(ngrid,nlay) :: c2 97 98 98 99 if (ngrid==1) print*,'THERMCELL PLUME MODIFIE 2014/07/11' … … 443 444 444 445 445 return 446 include "dump_param.h" ! replay automatic include 447 RETURN 446 448 end -
LMDZ6/trunk/libf/phylmd/thermcell_plume_6A.F90
r4095 r4161 55 55 REAL zw2modif 56 56 REAL zw2fact,zw2factbis 57 REAL zeps(ngrid,nlay)58 59 REAL wmaxa(ngrid)57 REAL,dimension(ngrid,nlay) :: zeps 58 59 REAL, dimension(ngrid) :: wmaxa(ngrid) 60 60 61 61 INTEGER ig,l,k,lt,it,lm … … 70 70 real,dimension(ngrid,nlay) :: zta_est 71 71 72 real zdz,zbuoy(ngrid,nlay),zalpha,gamma(ngrid,nlay),zdqt(ngrid,nlay),zw2m 73 real zbuoyjam(ngrid,nlay),zdqtjam(ngrid,nlay) 72 real,dimension(ngrid,nlay) :: zbuoy,gamma,zdqt 73 real zdz,zalpha,zw2m 74 real,dimension(ngrid,nlay) :: zbuoyjam,zdqtjam 74 75 real zbuoybis,zdz2,zdz3,lmel,entrbis,zdzbis 75 real d_temp(ngrid)76 real, dimension(ngrid) :: d_temp 76 77 real ztv1,ztv2,factinv,zinv,zlmel 77 78 real zlmelup,zlmeldwn,zlt,zltdwn,zltup … … 82 83 real eps 83 84 logical Zsat 84 LOGICAL active(ngrid),activetmp(ngrid)85 LOGICAL,dimension(ngrid) :: active,activetmp 85 86 REAL fact_gamma,fact_gamma2,fact_epsilon2 86 87 REAL coefc 87 REAL c2(ngrid,nlay)88 REAL,dimension(ngrid,nlay) :: c2 88 89 89 90 if (ngrid==1) print*,'THERMCELL PLUME MODIFIE 2014/07/11'
Note: See TracChangeset
for help on using the changeset viewer.