1 |
|
|
2 |
SUBROUTINE cv3_prelim(len,nd,ndp1,t,q,p,ph & |
SUBROUTINE cv3_prelim(len,nd,ndp1,t,q,p,ph & |
3 |
,lv,cpn,tv,gz,h,hm,th) |
,lv,cpn,tv,gz,h,hm,th) |
4 |
use cvparam3 |
use cv3_param_m |
5 |
use cvthermo |
use cvthermo |
6 |
implicit none |
implicit none |
7 |
|
|
13 |
|
|
14 |
! inputs: |
! inputs: |
15 |
integer len, nd, ndp1 |
integer len, nd, ndp1 |
16 |
real t(len,nd), q(len,nd), p(len,nd), ph(len,ndp1) |
real, intent(in):: t(len,nd) |
17 |
|
real, intent(in):: q(len,nd) |
18 |
|
real p(len,nd), ph(len,ndp1) |
19 |
|
|
20 |
! outputs: |
! outputs: |
21 |
real lv(len,nd), cpn(len,nd), tv(len,nd) |
real lv(len,nd), cpn(len,nd), tv(len,nd) |