NEMO4.0.4-DOMAINcfg
Data Types | Public Member Functions | Private Member Functions | Private Attributes | List of all members
wrk_nemo Module Reference
Collaboration diagram for wrk_nemo:
Collaboration graph

Data Types

type  branch
 
type  leaf
 
interface  wrk_alloc
 
interface  wrk_dealloc
 

Public Member Functions

subroutine, public wrk_list
 

Private Member Functions

recursive subroutine listage (ptr)
 
subroutine wrk_alloc_1dr (kidim, p1d01, p1d02, p1d03, p1d04, p1d05, p1d06, p1d07, p1d08, p1d09, p1d10, kistart)
 
subroutine wrk_alloc_1di (kidim, k1d01, k1d02, k1d03, k1d04, k1d05, k1d06, k1d07, k1d08, k1d09, k1d10, kistart)
 
subroutine wrk_alloc_2dr (kidim, kjdim, p2d01, p2d02, p2d03, p2d04, p2d05, p2d06, p2d07, p2d08, p2d09, p2d10, kistart, kjstart)
 
subroutine wrk_alloc_2di (kidim, kjdim, k2d01, k2d02, k2d03, k2d04, k2d05, k2d06, k2d07, k2d08, k2d09, k2d10, kistart, kjstart)
 
subroutine wrk_alloc_3dr (kidim, kjdim, kkdim, p3d01, p3d02, p3d03, p3d04, p3d05, p3d06, p3d07, p3d08, p3d09, p3d10, kistart, kjstart, kkstart)
 
subroutine wrk_alloc_3di (kidim, kjdim, kkdim, k3d01, k3d02, k3d03, k3d04, k3d05, k3d06, k3d07, k3d08, k3d09, k3d10, kistart, kjstart, kkstart)
 
subroutine wrk_alloc_4dr (kidim, kjdim, kkdim, kldim, p4d01, p4d02, p4d03, p4d04, p4d05, p4d06, p4d07, p4d08, p4d09, p4d10, kistart, kjstart, kkstart, klstart)
 
subroutine wrk_alloc_4di (kidim, kjdim, kkdim, kldim, k4d01, k4d02, k4d03, k4d04, k4d05, k4d06, k4d07, k4d08, k4d09, k4d10, kistart, kjstart, kkstart, klstart)
 
subroutine wrk_dealloc_1dr (kidim, p1d01, p1d02, p1d03, p1d04, p1d05, p1d06, p1d07, p1d08, p1d09, p1d10, kistart)
 
subroutine wrk_dealloc_1di (kidim, k1d01, k1d02, k1d03, k1d04, k1d05, k1d06, k1d07, k1d08, k1d09, k1d10, kistart)
 
subroutine wrk_dealloc_2dr (kidim, kjdim, p2d01, p2d02, p2d03, p2d04, p2d05, p2d06, p2d07, p2d08, p2d09, p2d10, kistart, kjstart)
 
subroutine wrk_dealloc_2di (kidim, kjdim, k2d01, k2d02, k2d03, k2d04, k2d05, k2d06, k2d07, k2d08, k2d09, k2d10, kistart, kjstart)
 
subroutine wrk_dealloc_3dr (kidim, kjdim, kkdim, p3d01, p3d02, p3d03, p3d04, p3d05, p3d06, p3d07, p3d08, p3d09, p3d10, kistart, kjstart, kkstart)
 
subroutine wrk_dealloc_3di (kidim, kjdim, kkdim, k3d01, k3d02, k3d03, k3d04, k3d05, k3d06, k3d07, k3d08, k3d09, k3d10, kistart, kjstart, kkstart)
 
subroutine wrk_dealloc_4dr (kidim, kjdim, kkdim, kldim, p4d01, p4d02, p4d03, p4d04, p4d05, p4d06, p4d07, p4d08, p4d09, p4d10, kistart, kjstart, kkstart, klstart)
 
subroutine wrk_dealloc_4di (kidim, kjdim, kkdim, kldim, k4d01, k4d02, k4d03, k4d04, k4d05, k4d06, k4d07, k4d08, k4d09, k4d10, kistart, kjstart, kkstart, klstart)
 
subroutine wrk_alloc_xd (kidim, kjdim, kkdim, kldim, kisrt, kjsrt, kksrt, klsrt, k1d01, k1d02, k1d03, k1d04, k1d05, k1d06, k1d07, k1d08, k1d09, k1d10, k2d01, k2d02, k2d03, k2d04, k2d05, k2d06, k2d07, k2d08, k2d09, k2d10, k3d01, k3d02, k3d03, k3d04, k3d05, k3d06, k3d07, k3d08, k3d09, k3d10, k4d01, k4d02, k4d03, k4d04, k4d05, k4d06, k4d07, k4d08, k4d09, k4d10, p1d01, p1d02, p1d03, p1d04, p1d05, p1d06, p1d07, p1d08, p1d09, p1d10, p2d01, p2d02, p2d03, p2d04, p2d05, p2d06, p2d07, p2d08, p2d09, p2d10, p3d01, p3d02, p3d03, p3d04, p3d05, p3d06, p3d07, p3d08, p3d09, p3d10, p4d01, p4d02, p4d03, p4d04, p4d05, p4d06, p4d07, p4d08, p4d09, p4d10)
 
subroutine wrk_allocbase (kidim, kjdim, kkdim, kldim, kisrt, kjsrt, kksrt, klsrt, kwrk1d, kwrk2d, kwrk3d, kwrk4d, pwrk1d, pwrk2d, pwrk3d, pwrk4d)
 
subroutine wrk_deallocbase (ktype, kidim, kjdim, kkdim, kldim, kisrt, kjsrt, kksrt, klsrt)
 
subroutine wrk_stop (cmsg)
 

Private Attributes

integer, parameter jparray = 1000
 
integer, parameter jpmaxdim = 4
 
integer, parameter jpnotdefined = 0
 
integer, parameter jpinteger = 1
 
integer, parameter jpreal = 2
 
type(branch), dimension(jparray),
save 		tree
 
logical linit = .FALSE.
 
logical ldebug = .FALSE.
 

Member Function/Subroutine Documentation

recursive subroutine wrk_nemo::listage ( type(leaf), intent(in), pointer  ptr)
private
subroutine wrk_nemo::wrk_alloc_1di ( integer, intent(in)  kidim,
integer, dimension(:), intent(inout), pointer  k1d01,
integer, dimension(:), intent(inout), optional, pointer  k1d02,
integer, dimension(:), intent(inout), optional, pointer  k1d03,
integer, dimension(:), intent(inout), optional, pointer  k1d04,
integer, dimension(:), intent(inout), optional, pointer  k1d05,
integer, dimension(:), intent(inout), optional, pointer  k1d06,
integer, dimension(:), intent(inout), optional, pointer  k1d07,
integer, dimension(:), intent(inout), optional, pointer  k1d08,
integer, dimension(:), intent(inout), optional, pointer  k1d09,
integer, dimension(:), intent(inout), optional, pointer  k1d10,
integer, intent(in), optional  kistart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_1dr ( integer, intent(in)  kidim,
real(wp), dimension(:), intent(inout), pointer  p1d01,
real(wp), dimension(:), intent(inout), optional, pointer  p1d02,
real(wp), dimension(:), intent(inout), optional, pointer  p1d03,
real(wp), dimension(:), intent(inout), optional, pointer  p1d04,
real(wp), dimension(:), intent(inout), optional, pointer  p1d05,
real(wp), dimension(:), intent(inout), optional, pointer  p1d06,
real(wp), dimension(:), intent(inout), optional, pointer  p1d07,
real(wp), dimension(:), intent(inout), optional, pointer  p1d08,
real(wp), dimension(:), intent(inout), optional, pointer  p1d09,
real(wp), dimension(:), intent(inout), optional, pointer  p1d10,
integer, intent(in), optional  kistart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_2di ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, dimension(:,:), intent(inout), pointer  k2d01,
integer, dimension(:,:), intent(inout), optional, pointer  k2d02,
integer, dimension(:,:), intent(inout), optional, pointer  k2d03,
integer, dimension(:,:), intent(inout), optional, pointer  k2d04,
integer, dimension(:,:), intent(inout), optional, pointer  k2d05,
integer, dimension(:,:), intent(inout), optional, pointer  k2d06,
integer, dimension(:,:), intent(inout), optional, pointer  k2d07,
integer, dimension(:,:), intent(inout), optional, pointer  k2d08,
integer, dimension(:,:), intent(inout), optional, pointer  k2d09,
integer, dimension(:,:), intent(inout), optional, pointer  k2d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_2dr ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
real(wp), dimension(:,:), intent(inout), pointer  p2d01,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d02,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d03,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d04,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d05,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d06,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d07,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d08,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d09,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_3di ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, dimension(:,:,:), intent(inout), pointer  k3d01,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d02,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d03,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d04,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d05,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d06,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d07,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d08,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d09,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart,
integer, intent(in), optional  kkstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_3dr ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
real(wp), dimension(:,:,:), intent(inout), pointer  p3d01,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d02,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d03,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d04,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d05,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d06,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d07,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d08,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d09,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart,
integer, intent(in), optional  kkstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::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

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_4dr ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, intent(in)  kldim,
real(wp), dimension(:,:,:,:), intent(inout), pointer  p4d01,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d02,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d03,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d04,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d05,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d06,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d07,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d08,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d09,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart,
integer, intent(in), optional  kkstart,
integer, intent(in), optional  klstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_alloc_xd ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, intent(in)  kldim,
integer, intent(in), optional  kisrt,
integer, intent(in), optional  kjsrt,
integer, intent(in), optional  kksrt,
integer, intent(in), optional  klsrt,
integer, dimension(: ), intent(inout), optional, pointer  k1d01,
integer, dimension(: ), intent(inout), optional, pointer  k1d02,
integer, dimension(: ), intent(inout), optional, pointer  k1d03,
integer, dimension(: ), intent(inout), optional, pointer  k1d04,
integer, dimension(: ), intent(inout), optional, pointer  k1d05,
integer, dimension(: ), intent(inout), optional, pointer  k1d06,
integer, dimension(: ), intent(inout), optional, pointer  k1d07,
integer, dimension(: ), intent(inout), optional, pointer  k1d08,
integer, dimension(: ), intent(inout), optional, pointer  k1d09,
integer, dimension(: ), intent(inout), optional, pointer  k1d10,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d01,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d02,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d03,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d04,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d05,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d06,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d07,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d08,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d09,
integer, dimension(:,: ), intent(inout), optional, pointer  k2d10,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d01,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d02,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d03,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d04,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d05,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d06,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d07,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d08,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d09,
integer, dimension(:,:,: ), intent(inout), optional, pointer  k3d10,
integer, dimension(:,:,:,:), intent(inout), optional, 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,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d01,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d02,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d03,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d04,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d05,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d06,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d07,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d08,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d09,
real(wp), dimension(: ), intent(inout), optional, pointer  p1d10,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d01,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d02,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d03,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d04,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d05,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d06,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d07,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d08,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d09,
real(wp), dimension(:,: ), intent(inout), optional, pointer  p2d10,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d01,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d02,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d03,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d04,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d05,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d06,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d07,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d08,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d09,
real(wp), dimension(:,:,: ), intent(inout), optional, pointer  p3d10,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d01,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d02,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d03,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d04,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d05,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d06,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d07,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d08,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d09,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d10 
)
private

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine wrk_nemo::wrk_allocbase ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, intent(in)  kldim,
integer, intent(in)  kisrt,
integer, intent(in)  kjsrt,
integer, intent(in)  kksrt,
integer, intent(in)  klsrt,
integer, dimension(:), intent(inout), optional, pointer  kwrk1d,
integer, dimension(:,:), intent(inout), optional, pointer  kwrk2d,
integer, dimension(:,:,:), intent(inout), optional, pointer  kwrk3d,
integer, dimension(:,:,:,:), intent(inout), optional, pointer  kwrk4d,
real(wp), dimension(:), intent(inout), optional, pointer  pwrk1d,
real(wp), dimension(:,:), intent(inout), optional, pointer  pwrk2d,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  pwrk3d,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  pwrk4d 
)
private

Here is the caller graph for this function:

subroutine wrk_nemo::wrk_dealloc_1di ( integer, intent(in)  kidim,
integer, dimension(:), intent(inout), pointer  k1d01,
integer, dimension(:), intent(inout), optional, pointer  k1d02,
integer, dimension(:), intent(inout), optional, pointer  k1d03,
integer, dimension(:), intent(inout), optional, pointer  k1d04,
integer, dimension(:), intent(inout), optional, pointer  k1d05,
integer, dimension(:), intent(inout), optional, pointer  k1d06,
integer, dimension(:), intent(inout), optional, pointer  k1d07,
integer, dimension(:), intent(inout), optional, pointer  k1d08,
integer, dimension(:), intent(inout), optional, pointer  k1d09,
integer, dimension(:), intent(inout), optional, pointer  k1d10,
integer, intent(in), optional  kistart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_1dr ( integer, intent(in)  kidim,
real(wp), dimension(:), intent(inout), pointer  p1d01,
real(wp), dimension(:), intent(inout), optional, pointer  p1d02,
real(wp), dimension(:), intent(inout), optional, pointer  p1d03,
real(wp), dimension(:), intent(inout), optional, pointer  p1d04,
real(wp), dimension(:), intent(inout), optional, pointer  p1d05,
real(wp), dimension(:), intent(inout), optional, pointer  p1d06,
real(wp), dimension(:), intent(inout), optional, pointer  p1d07,
real(wp), dimension(:), intent(inout), optional, pointer  p1d08,
real(wp), dimension(:), intent(inout), optional, pointer  p1d09,
real(wp), dimension(:), intent(inout), optional, pointer  p1d10,
integer, intent(in), optional  kistart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_2di ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, dimension(:,:), intent(inout), pointer  k2d01,
integer, dimension(:,:), intent(inout), optional, pointer  k2d02,
integer, dimension(:,:), intent(inout), optional, pointer  k2d03,
integer, dimension(:,:), intent(inout), optional, pointer  k2d04,
integer, dimension(:,:), intent(inout), optional, pointer  k2d05,
integer, dimension(:,:), intent(inout), optional, pointer  k2d06,
integer, dimension(:,:), intent(inout), optional, pointer  k2d07,
integer, dimension(:,:), intent(inout), optional, pointer  k2d08,
integer, dimension(:,:), intent(inout), optional, pointer  k2d09,
integer, dimension(:,:), intent(inout), optional, pointer  k2d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_2dr ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
real(wp), dimension(:,:), intent(inout), pointer  p2d01,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d02,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d03,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d04,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d05,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d06,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d07,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d08,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d09,
real(wp), dimension(:,:), intent(inout), optional, pointer  p2d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_3di ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, dimension(:,:,:), intent(inout), pointer  k3d01,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d02,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d03,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d04,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d05,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d06,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d07,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d08,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d09,
integer, dimension(:,:,:), intent(inout), optional, pointer  k3d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart,
integer, intent(in), optional  kkstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_3dr ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
real(wp), dimension(:,:,:), intent(inout), pointer  p3d01,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d02,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d03,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d04,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d05,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d06,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d07,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d08,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d09,
real(wp), dimension(:,:,:), intent(inout), optional, pointer  p3d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart,
integer, intent(in), optional  kkstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_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

Here is the call graph for this function:

subroutine wrk_nemo::wrk_dealloc_4dr ( integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, intent(in)  kldim,
real(wp), dimension(:,:,:,:), intent(inout), pointer  p4d01,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d02,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d03,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d04,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d05,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d06,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d07,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d08,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d09,
real(wp), dimension(:,:,:,:), intent(inout), optional, pointer  p4d10,
integer, intent(in), optional  kistart,
integer, intent(in), optional  kjstart,
integer, intent(in), optional  kkstart,
integer, intent(in), optional  klstart 
)
private

Here is the call graph for this function:

subroutine wrk_nemo::wrk_deallocbase ( integer, intent(in)  ktype,
integer, intent(in)  kidim,
integer, intent(in)  kjdim,
integer, intent(in)  kkdim,
integer, intent(in)  kldim,
integer, intent(in), optional  kisrt,
integer, intent(in), optional  kjsrt,
integer, intent(in), optional  kksrt,
integer, intent(in), optional  klsrt 
)
private

Here is the caller graph for this function:

subroutine, public wrk_nemo::wrk_list ( )
subroutine wrk_nemo::wrk_stop ( character(len=*), intent(in)  cmsg)
private

Member Data Documentation

integer, parameter wrk_nemo::jparray = 1000
private
integer, parameter wrk_nemo::jpinteger = 1
private
integer, parameter wrk_nemo::jpmaxdim = 4
private
integer, parameter wrk_nemo::jpnotdefined = 0
private
integer, parameter wrk_nemo::jpreal = 2
private
logical wrk_nemo::ldebug = .FALSE.
private
logical wrk_nemo::linit = .FALSE.
private
type(branch), dimension(jparray), save wrk_nemo::tree
private
The documentation for this module was generated from the following file:
Generated by   doxygen 1.8.5