5 |
use cvthermo |
use cvthermo |
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 |
! |
! |