4 |
,hp,tv,tvp,ep,clw,cbmf & |
,hp,tv,tvp,ep,clw,cbmf & |
5 |
,m,ment,qent,uent,vent,nent,sij,elij) |
,m,ment,qent,uent,vent,nent,sij,elij) |
6 |
use cvthermo |
use cvthermo |
7 |
use cvparam |
use cv_param |
8 |
implicit none |
implicit none |
9 |
|
|
10 |
|
|
11 |
! inputs: |
! inputs: |
12 |
integer ncum, nd, nloc |
integer, intent(in):: ncum, nd, nloc |
13 |
integer icb(nloc), inb(nloc), inb1(nloc), nk(nloc) |
integer icb(nloc), inb(nloc), inb1(nloc), nk(nloc) |
14 |
real cbmf(nloc), qnk(nloc) |
real cbmf(nloc), qnk(nloc) |
15 |
real ph(nloc,nd+1) |
real ph(nloc,nd+1) |