Changeset 2230 for trunk/LMDZ.GENERIC/libf/phystd/thermcell_env.F90
- Timestamp:
- Jan 30, 2020, 10:13:09 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/thermcell_env.F90
r2177 r2230 78 78 zhl(:,:) = pt(:,:) / zpopsk(:,:) 79 79 80 zqt(:,:) = pq(:,:,igcm_h2o_vap)80 zqt(:,:) = 0. 81 81 zql(:,:) = 0. 82 82 … … 86 86 87 87 IF (water) THEN 88 89 zqt(:,:) = pq(:,:,igcm_h2o_vap) 88 90 89 91 DO k=1,nlay
Note: See TracChangeset
for help on using the changeset viewer.