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 |
|
) |
| |