1 |
|
|
2 |
SUBROUTINE cv3_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 cv3_param_m |
use cv30_param_m |
5 |
use cvthermo |
use cvthermo |
6 |
implicit none |
implicit none |
7 |
|
|
196 |
! |
! |
197 |
! * the routine above computes tvp from minorig to icbs (included). |
! * the routine above computes tvp from minorig to icbs (included). |
198 |
! |
! |
199 |
! * to compute buoybase (in cv3_trigger.F), both tvp(icb) and tvp(icb+1) |
! * to compute buoybase (in cv30_trigger.F), both tvp(icb) and tvp(icb+1) |
200 |
! must be known. This is the case if icbs=icb+1, but not if icbs=icb. |
! must be known. This is the case if icbs=icb+1, but not if icbs=icb. |
201 |
! |
! |
202 |
! * therefore, in the case icbs=icb, we compute tvp at level icb+1 |
! * therefore, in the case icbs=icb, we compute tvp at level icb+1 |
203 |
! (tvp at other levels will be computed in cv3_undilute2.F) |
! (tvp at other levels will be computed in cv30_undilute2.F) |
204 |
! |
! |
205 |
|
|
206 |
do i=1,len |
do i=1,len |