Changeset 2236 for LMDZ5/trunk/libf/phylmd/fisrtilp.F90
- Timestamp:
- Mar 17, 2015, 12:04:12 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/fisrtilp.F90
r2223 r2236 8 8 frac_impa, frac_nucl, beta, & 9 9 prfl, psfl, rhcl, zqta, fraca, & 10 ztv, zpspsk, ztla, zthl, iflag_cld th, &10 ztv, zpspsk, ztla, zthl, iflag_cld_th, & 11 11 iflag_ice_thermo) 12 12 … … 82 82 INTEGER ninter ! sous-intervals pour la precipitation 83 83 INTEGER ncoreczq 84 INTEGER iflag_cld th84 INTEGER iflag_cld_th 85 85 INTEGER iflag_ice_thermo 86 86 PARAMETER (ninter=5) … … 545 545 enddo 546 546 547 if (iflag_cld th>=5) then547 if (iflag_cld_th>=5) then 548 548 549 549 call cloudth(klon,klev,k,ztv, & … … 559 559 endif 560 560 561 if (iflag_cld th <= 4) then561 if (iflag_cld_th <= 4) then 562 562 lognormale = .true. 563 elseif (iflag_cld th >= 6) then563 elseif (iflag_cld_th >= 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 th=5, on prend systématiquement la567 ! Dans le cas iflag_cld_th=5, on prend systématiquement la 568 568 ! bi-gaussienne 569 569 lognormale = .false.
Note: See TracChangeset
for help on using the changeset viewer.