33 |
include "cvparam3.h" |
include "cvparam3.h" |
34 |
|
|
35 |
integer nd |
integer nd |
36 |
real delt ! timestep (seconds) |
real, intent(in):: delt ! timestep (seconds) |
37 |
|
|
38 |
c noff: integer limit for convection (nd-noff) |
c noff: integer limit for convection (nd-noff) |
39 |
c minorig: First level of convection |
c minorig: First level of convection |
1835 |
c inputs: |
c inputs: |
1836 |
integer ncum, nd, na, ntra, nloc |
integer ncum, nd, na, ntra, nloc |
1837 |
integer icb(nloc), inb(nloc) |
integer icb(nloc), inb(nloc) |
1838 |
real delt, plcl(nloc) |
real, intent(in):: delt |
1839 |
|
real plcl(nloc) |
1840 |
real t(nloc,nd), rr(nloc,nd), rs(nloc,nd) |
real t(nloc,nd), rr(nloc,nd), rs(nloc,nd) |
1841 |
real u(nloc,nd), v(nloc,nd) |
real u(nloc,nd), v(nloc,nd) |
1842 |
real tra(nloc,nd,ntra) |
real tra(nloc,nd,ntra) |
2178 |
c inputs: |
c inputs: |
2179 |
integer ncum,nd,na,ntra,nloc |
integer ncum,nd,na,ntra,nloc |
2180 |
integer icb(nloc), inb(nloc) |
integer icb(nloc), inb(nloc) |
2181 |
real delt |
real, intent(in):: delt |
2182 |
real t(nloc,nd), rr(nloc,nd), u(nloc,nd), v(nloc,nd) |
real t(nloc,nd), rr(nloc,nd), u(nloc,nd), v(nloc,nd) |
2183 |
real tra(nloc,nd,ntra), sig(nloc,nd) |
real tra(nloc,nd,ntra), sig(nloc,nd) |
2184 |
real gz(nloc,na), ph(nloc,nd+1), h(nloc,na), hp(nloc,na) |
real gz(nloc,na), ph(nloc,nd+1), h(nloc,na), hp(nloc,na) |