1 |
|
|
2 |
SUBROUTINE cv3_feed(len,nd,t,q,qs,p,ph,hm,gz & |
SUBROUTINE cv3_feed(len,nd,t,q,qs,p,ph,hm,gz & |
3 |
,nk,icb,icbmax,iflag,tnk,qnk,gznk,plcl) |
,nk,icb,icbmax,iflag,tnk,qnk,gznk,plcl) |
4 |
use cvparam3 |
use cv3_param_m |
5 |
implicit none |
implicit none |
6 |
|
|
7 |
!================================================================ |
!================================================================ |
21 |
|
|
22 |
! inputs: |
! inputs: |
23 |
integer len, nd |
integer len, nd |
24 |
real t(len,nd), q(len,nd), qs(len,nd), p(len,nd) |
real, intent(in):: t(len,nd) |
25 |
|
real q(len,nd), qs(len,nd), p(len,nd) |
26 |
real hm(len,nd), gz(len,nd) |
real hm(len,nd), gz(len,nd) |
27 |
real ph(len,nd+1) |
real ph(len,nd+1) |
28 |
|
|