Parent Directory
| 
Revision Log
| 
Patch
| revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC | revision 190 by guez, Thu Apr 14 15:15:56 2016 UTC | |
|---|---|---|
| # | Line 2 | Line 2 |
| 2 | SUBROUTINE cv30_undilute1(len,nd,t,q,qs,gz,plcl,p,nk,icb & | SUBROUTINE cv30_undilute1(len,nd,t,q,qs,gz,plcl,p,nk,icb & |
| 3 | ,tp,tvp,clw,icbs) | ,tp,tvp,clw,icbs) |
| 4 | use cv30_param_m | use cv30_param_m |
| 5 | use cvthermo | use cv_thermo_m |
| 6 | implicit none | implicit none |
| 7 | ||
| 8 | ! UNDILUTE (ADIABATIC) UPDRAFT / 1st part | |
| 9 | ! (up through ICB for convect4, up through ICB + 1 for convect3) | |
| 10 | ! Calculates the lifted parcel virtual temperature at nk, the | |
| 11 | ! actual temperature, and the adiabatic liquid water content. | |
| 12 | ||
| 13 | !---------------------------------------------------------------- | !---------------------------------------------------------------- |
| 14 | ! Equivalent de TLIFT entre NK et ICB+1 inclus | ! Equivalent de TLIFT entre NK et ICB+1 inclus |
| 15 | ! | ! |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |