Changeset 2220 for LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90
- Timestamp:
- Mar 3, 2015, 2:41:13 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2188-2195,2197-2202,2204-2210,2213-2216
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90
r2160 r2220 8 8 frac_impa, frac_nucl, beta, & 9 9 prfl, psfl, rhcl, zqta, fraca, & 10 ztv, zpspsk, ztla, zthl, iflag_cld con, &10 ztv, zpspsk, ztla, zthl, iflag_cldth, & 11 11 iflag_ice_thermo) 12 12 … … 82 82 INTEGER ninter ! sous-intervals pour la precipitation 83 83 INTEGER ncoreczq 84 INTEGER iflag_cld con84 INTEGER iflag_cldth 85 85 INTEGER iflag_ice_thermo 86 86 PARAMETER (ninter=5) … … 545 545 enddo 546 546 547 if (iflag_cld con>=5) then547 if (iflag_cldth>=5) then 548 548 549 549 call cloudth(klon,klev,k,ztv, & … … 559 559 endif 560 560 561 if (iflag_cld con<= 4) then561 if (iflag_cldth <= 4) then 562 562 lognormale = .true. 563 elseif (iflag_cld con>= 6) then563 elseif (iflag_cldth >= 6) then 564 564 ! lognormale en l'absence des thermiques 565 565 lognormale = fraca(:,k) < 1e-10 566 566 else 567 ! Dans le cas iflag_cld con=5, on prend systématiquement la567 ! Dans le cas iflag_cldth=5, on prend systématiquement la 568 568 ! bi-gaussienne 569 569 lognormale = .false.
Note: See TracChangeset
for help on using the changeset viewer.