subroutine cnvc90::cnvc90_run |
( |
real(kind=kind_phys), intent(in) |
CLSTP, |
|
|
integer, intent(in) |
IM, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
RN, |
|
|
integer, dimension(:), intent(in) |
KBOT, |
|
|
integer, dimension(:), intent(in) |
KTOP, |
|
|
integer, intent(in) |
KM, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
PRSI, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ACV, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ACVB, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ACVT, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
CV, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
CVB, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
CVT, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |