| subroutine wrk_nemo::wrk_alloc::wrk_alloc_4di |
( |
integer, intent(in) |
kidim, |
|
|
integer, intent(in) |
kjdim, |
|
|
integer, intent(in) |
kkdim, |
|
|
integer, intent(in) |
kldim, |
|
|
integer, dimension(:,:,:,:), intent(inout), pointer |
k4d01, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d02, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d03, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d04, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d05, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d06, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d07, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d08, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d09, |
|
|
integer, dimension(:,:,:,:), intent(inout), optional, pointer |
k4d10, |
|
|
integer, intent(in), optional |
kistart, |
|
|
integer, intent(in), optional |
kjstart, |
|
|
integer, intent(in), optional |
kkstart, |
|
|
integer, intent(in), optional |
klstart |
|
) |
| |
|
private |