Changeset 2481 for LMDZ5/trunk/libf/phylmd/concvl.F90
- Timestamp:
- Mar 29, 2016, 3:39:55 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/concvl.F90
r2346 r2481 16 16 evap, ep, epmlmMm, eplaMm, & ! RomP 17 17 wdtrainA, wdtrainM, wght, qtc, sigt, & 18 tau_cld_cv, coefw_cld_cv )! RomP+RL, AJ18 tau_cld_cv, coefw_cld_cv, & ! RomP+RL, AJ 19 19 !RomP <<< 20 epmax_diag) ! epmax_cape 20 21 ! ************************************************************** 21 22 ! * … … 148 149 REAL zx_t, zdelta, zx_qs, zcor 149 150 REAL tau_cld_cv, coefw_cld_cv 151 REAL epmax_diag(klon) ! epmax_cape 150 152 151 153 ! INTEGER iflag_mix … … 388 390 da, phi, mp, phi2, d1a, dam, sij, clw, elij, & !RomP 389 391 evap, ep, epmlmMm, eplaMm, & !RomP 390 wdtrainA, wdtrainM) !RomP 392 wdtrainA, wdtrainM, & !RomP 393 epmax_diag) ! epmax_cape 391 394 ! print *, 'cv_driver ->' !jyg 392 395 … … 425 428 clw, elij, evap, ep, epmlmMm, eplaMm, & ! RomP+RL 426 429 wdtrainA, wdtrainM, qtc, sigt, & 427 tau_cld_cv, coefw_cld_cv )! RomP,AJ430 tau_cld_cv, coefw_cld_cv, & ! RomP,AJ 428 431 !AC!+!RomP+jyg 432 epmax_diag) ! epmax_cape 429 433 END IF 430 434 ! ------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.