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