Changeset 43 for LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F
- Timestamp:
- Feb 9, 2000, 11:28:54 AM (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F
r27 r43 56 56 PARAMETER (ct=1./1800.) 57 57 REAL cl ! seuil de precipitation 58 PARAMETER (cl=2.0e-4) 58 PARAMETER (cl=2.6e-4) 59 ccc PARAMETER (cl=2.3e-4) 60 ccc PARAMETER (cl=2.0e-4) 59 61 INTEGER ninter ! sous-intervals pour la precipitation 60 62 PARAMETER (ninter=5) … … 65 67 LOGICAL calcrat ! calculer ratqs au lieu de fixer sa valeur 66 68 REAL ratqs ! determine la largeur de distribution de vapeur 67 PARAMETER (calcrat=. FALSE.)69 PARAMETER (calcrat=.TRUE.) 68 70 REAL zx_min, rat_max 69 71 PARAMETER (zx_min=1.0, rat_max=0.01) … … 114 116 #include "YOETHF.h" 115 117 #include "FCTTRE.h" 116 fallv (zzz) = 3.29 * ((zzz)**0.16) 118 fallv (zzz) = 3.29/2.0 * ((zzz)**0.16) 119 ccc fallv (zzz) = 3.29/3.0 * ((zzz)**0.16) 120 ccc fallv (zzz) = 3.29 * ((zzz)**0.16) 117 121 c 118 122 DATA appel1er /.TRUE./ … … 282 286 zx = zx * zx * zx 283 287 ratqs = zx * (rat_max-rat_min) + rat_min 284 IF (.NOT.calcrat) ratqs=0. 2288 IF (.NOT.calcrat) ratqs=0.05 285 289 c 286 290 zdelq = ratqs * zq(i)
Note: See TracChangeset
for help on using the changeset viewer.