mod_Hallo Module


Uses

  • module~~mod_hallo~~UsesGraph module~mod_hallo mod_Hallo module~parallel_lmdz parallel_lmdz module~mod_hallo->module~parallel_lmdz module~lmdz_mpi lmdz_mpi module~parallel_lmdz->module~lmdz_mpi module~mod_const_mpi mod_const_mpi module~parallel_lmdz->module~mod_const_mpi IOIPSL IOIPSL module~parallel_lmdz->IOIPSL

Used by

  • module~~mod_hallo~~UsedByGraph module~mod_hallo mod_Hallo proc~write_field_u_gen write_field_u_gen proc~write_field_u_gen->module~mod_hallo proc~caladvtrac_loc caladvtrac_loc proc~caladvtrac_loc->module~mod_hallo proc~dump2du dump2du proc~dump2du->module~mod_hallo proc~dynredem0_loc dynredem0_loc proc~dynredem0_loc->module~mod_hallo module~dynredem_mod~2 dynredem_mod proc~dynredem0_loc->module~dynredem_mod~2 proc~guide_out guide_out proc~guide_out->module~mod_hallo proc~gradiv2_loc gradiv2_loc proc~gradiv2_loc->module~mod_hallo proc~guide_interp guide_interp proc~guide_interp->module~mod_hallo proc~leapfrog_loc leapfrog_loc proc~leapfrog_loc->module~mod_hallo proc~write_field_v_gen write_field_v_gen proc~write_field_v_gen->module~mod_hallo proc~vlspltgen_loc vlspltgen_loc proc~vlspltgen_loc->module~mod_hallo proc~dynredem1_loc dynredem1_loc proc~dynredem1_loc->module~mod_hallo proc~dynredem1_loc->module~dynredem_mod~2 proc~call_dissip call_dissip proc~call_dissip->module~mod_hallo module~dynredem_mod~2->module~mod_hallo proc~fluxstokenc_p fluxstokenc_p proc~fluxstokenc_p->module~mod_hallo program~gcm gcm program~gcm->module~mod_hallo proc~conf_gcm~2 conf_gcm proc~conf_gcm~2->module~mod_hallo proc~call_calfis call_calfis proc~call_calfis->module~mod_hallo proc~advtrac_loc advtrac_loc proc~advtrac_loc->module~mod_hallo proc~divgrad2_loc divgrad2_loc proc~divgrad2_loc->module~mod_hallo proc~bilan_dyn_loc bilan_dyn_loc proc~bilan_dyn_loc->module~mod_hallo proc~nxgraro2_loc nxgraro2_loc proc~nxgraro2_loc->module~mod_hallo proc~dynredem1 dynredem1 proc~dynredem1->module~dynredem_mod~2 proc~dynredem0 dynredem0 proc~dynredem0->module~dynredem_mod~2

Contents

Variables

Interfaces

Derived Types

Subroutines


Variables

Type Visibility Attributes Name Initial
logical, public, save :: use_mpi_alloc
integer, public, parameter :: MaxProc = 512
integer, public, parameter :: DefaultMaxBufferSize = 1024*1024*100
integer, public, SAVE :: MaxBufferSize = 0
integer, public, parameter :: ListSize = 1000
integer, public, save :: MaxBufferSize_Used
real, public, save, pointer, dimension(:) :: Buffer
integer, public, save, dimension(Listsize) :: Buffer_Pos
integer, public, save :: Index_Pos
type(distrib), public, SAVE :: distrib_gather

Interfaces

public interface Register_SwapField_u

  • public subroutine Register_SwapField1d_u(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%ijb_u:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_u:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_u1d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%ijb_u:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_u:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_u(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%ijb_u:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_u:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField1d_u_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%ijb_u:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_u:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_u1d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%ijb_u:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_u:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_u_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%ijb_u:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_u:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

public interface Register_SwapField_v

  • public subroutine Register_SwapField1d_v(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%ijb_v:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_v:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_v1d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%ijb_v:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_v:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_v(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%ijb_v:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_v:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField1d_v_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%ijb_v:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_v:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_v1d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%ijb_v:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_v:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_v_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%ijb_v:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%ijb_v:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

public interface Register_SwapField2d_u

  • public subroutine Register_SwapField1d_u2d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%jjb_u:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_u:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_u2d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%jjb_u:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_u:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_u2d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%jjb_u:,:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_u:,:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField1d_u2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%jjb_u:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_u:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_u2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%jjb_u:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_u:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_u2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%jjb_u:,:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_u:,:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

public interface Register_SwapField2d_v

  • public subroutine Register_SwapField1d_v2d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%jjb_v:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_v:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_v2d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%jjb_v:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_v:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_v2d(FieldS, FieldR, new_dist, a_request, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(current_dist%jjb_v:,:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_v:,:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField1d_v2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%jjb_v:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_v:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField2d_v2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%jjb_v:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_v:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

  • public subroutine Register_SwapField3d_v2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(old_dist%jjb_v:,:,:,:) :: FieldS
    real, intent(out), DIMENSION(new_dist%jjb_v:,:,:,:) :: FieldR
    type(distrib), intent(in) :: new_dist
    type(request), intent(inout) :: a_request
    type(distrib), intent(in) :: old_dist
    integer, intent(in), optional :: up
    integer, intent(in), optional :: down

Derived Types

type, public ::  Hallo

Components

Type Visibility Attributes Name Initial
real, public, dimension(:,:), pointer :: Field
integer, public :: offset
integer, public :: size
integer, public :: NbLevel
integer, public :: Stride

type, public ::  request_SR

Components

Type Visibility Attributes Name Initial
integer, public :: NbRequest = 0
integer, public :: NbRequestMax = 0
integer, public :: BufferSize
integer, public :: Pos
integer, public :: Index
type(Hallo), public, POINTER :: Hallo(:)
integer, public :: MSG_Request

type, public ::  request

Components

Type Visibility Attributes Name Initial
type(request_SR), public, dimension(0:MaxProc-1) :: RequestSend
type(request_SR), public, dimension(0:MaxProc-1) :: RequestRecv
integer, public :: tag = 1

Subroutines

public subroutine Init_mod_hallo()

Arguments

None

public subroutine create_standard_mpi_buffer()

Arguments

None

public subroutine create_global_mpi_buffer()

Arguments

None

public subroutine allocate_buffer(Size, Index, Pos)

Arguments

Type IntentOptional Attributes Name
integer :: Size
integer :: Index
integer :: Pos

public subroutine deallocate_buffer(Index)

Arguments

Type IntentOptional Attributes Name
integer :: Index

public subroutine SetTag(a_request, tag)

Arguments

Type IntentOptional Attributes Name
type(request) :: a_request
integer :: tag

public subroutine New_Hallo(Field, Stride, NbLevel, offset, size, Ptr_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(Stride,NbLevel), target :: Field
integer :: Stride
integer :: NbLevel
integer :: offset
integer :: size
type(request_SR), pointer :: Ptr_request

public subroutine Register_SendField(Field, ij, ll, offset, size, target, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: Field
integer :: ij
integer :: ll
integer :: offset
integer :: size
integer :: target
type(request), target :: a_request

public subroutine Register_RecvField(Field, ij, ll, offset, size, target, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: Field
integer :: ij
integer :: ll
integer :: offset
integer :: size
integer :: target
type(request), target :: a_request

public subroutine Register_SwapField(FieldS, FieldR, ij, ll, jj_Nb_New, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: FieldS
real, dimension(ij,ll) :: FieldR
integer :: ij
integer :: ll
integer, dimension(0:MPI_Size-1) :: jj_Nb_New
type(request) :: a_request

public subroutine Register_SwapFieldHallo(FieldS, FieldR, ij, ll, jj_Nb_New, Up, Down, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: FieldS
real, dimension(ij,ll) :: FieldR
integer :: ij
integer :: ll
integer, dimension(0:MPI_Size-1) :: jj_Nb_New
integer :: Up
integer :: Down
type(request) :: a_request

public subroutine Register_SwapField1d_u(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%ijb_u:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_u:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_u_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%ijb_u:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_u:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_u1d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%ijb_u:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_u:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_u1d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%ijb_u:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_u:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_u(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%ijb_u:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_u:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_u_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%ijb_u:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_u:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_u2d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%jjb_u:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_u:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_u2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%jjb_u:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_u:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_u2d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%jjb_u:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_u:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_u2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%jjb_u:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_u:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_u2d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%jjb_u:,:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_u:,:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_u2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%jjb_u:,:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_u:,:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_v(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%ijb_v:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_v:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_v_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%ijb_v:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_v:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_v1d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%ijb_v:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_v:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_v1d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%ijb_v:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_v:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_v(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%ijb_v:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_v:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_v_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%ijb_v:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%ijb_v:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_v2d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%jjb_v:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_v:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField1d_v2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%jjb_v:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_v:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_v2d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%jjb_v:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_v:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField2d_v2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%jjb_v:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_v:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_v2d(FieldS, FieldR, new_dist, a_request, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(current_dist%jjb_v:,:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_v:,:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField3d_v2d_bis(FieldS, FieldR, new_dist, a_request, old_dist, up, down)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(old_dist%jjb_v:,:,:,:) :: FieldS
real, intent(out), DIMENSION(new_dist%jjb_v:,:,:,:) :: FieldR
type(distrib), intent(in) :: new_dist
type(request), intent(inout) :: a_request
type(distrib), intent(in) :: old_dist
integer, intent(in), optional :: up
integer, intent(in), optional :: down

public subroutine Register_SwapField_gen_u(FieldS, FieldR, ll, old_dist, new_dist, Up, Down, a_request)

Arguments

Type IntentOptional Attributes Name
real, DIMENSION(old_dist%ijb_u:old_dist%ije_u,ll) :: FieldS
real, DIMENSION(new_dist%ijb_u:new_dist%ije_u,ll) :: FieldR
integer :: ll
type(distrib) :: old_dist
type(distrib) :: new_dist
integer :: Up
integer :: Down
type(request) :: a_request

public subroutine Register_SwapField_gen_v(FieldS, FieldR, ll, old_dist, new_dist, Up, Down, a_request)

Arguments

Type IntentOptional Attributes Name
real, DIMENSION(old_dist%ijb_v:old_dist%ije_v,ll) :: FieldS
real, DIMENSION(new_dist%ijb_v:new_dist%ije_v,ll) :: FieldR
integer :: ll
type(distrib) :: old_dist
type(distrib) :: new_dist
integer :: Up
integer :: Down
type(request) :: a_request

public subroutine Register_Hallo(Field, ij, ll, rup, rdown, Sup, Sdown, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: Field
integer :: ij
integer :: ll
integer :: rup
integer :: rdown
integer :: Sup
integer :: Sdown
type(request) :: a_request

public subroutine Register_Hallo_u(Field, ll, rup, rdown, Sup, Sdown, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ijb_u:ije_u,ll) :: Field
integer :: ll
integer :: rup
integer :: rdown
integer :: Sup
integer :: Sdown
type(request) :: a_request

public subroutine Register_Hallo_v(Field, ll, rup, rdown, Sup, Sdown, a_request)

Arguments

Type IntentOptional Attributes Name
real, dimension(ijb_v:ije_v,ll) :: Field
integer :: ll
integer :: rup
integer :: rdown
integer :: Sup
integer :: Sdown
type(request) :: a_request

public subroutine SendRequest(a_request)

Arguments

Type IntentOptional Attributes Name
type(request), target :: a_request

public subroutine WaitRequest(a_request)

Arguments

Type IntentOptional Attributes Name
type(request), target :: a_request

public subroutine WaitSendRequest(a_request)

Arguments

Type IntentOptional Attributes Name
type(request), target :: a_request

public subroutine WaitRecvRequest(a_request)

Arguments

Type IntentOptional Attributes Name
type(request), target :: a_request

public subroutine CopyField(FieldS, FieldR, ij, ll, jj_Nb_New)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: FieldS
real, dimension(ij,ll) :: FieldR
integer :: ij
integer :: ll
integer, dimension(0:MPI_Size-1) :: jj_Nb_New

public subroutine CopyFieldHallo(FieldS, FieldR, ij, ll, jj_Nb_New, Up, Down)

Arguments

Type IntentOptional Attributes Name
real, dimension(ij,ll) :: FieldS
real, dimension(ij,ll) :: FieldR
integer :: ij
integer :: ll
integer, dimension(0:MPI_Size-1) :: jj_Nb_New
integer :: Up
integer :: Down

public subroutine Gather_field_u(field_loc, field_glo, ll)

Arguments

Type IntentOptional Attributes Name
real :: field_loc(ijb_u:ije_u,ll)
real :: field_glo(ip1jmp1,ll)
integer :: ll

public subroutine Gather_field_v(field_loc, field_glo, ll)

Arguments

Type IntentOptional Attributes Name
real :: field_loc(ijb_v:ije_v,ll)
real :: field_glo(ip1jm,ll)
integer :: ll

public subroutine Scatter_field_u(field_glo, field_loc, ll)

Arguments

Type IntentOptional Attributes Name
real :: field_glo(ip1jmp1,ll)
real :: field_loc(ijb_u:ije_u,ll)
integer :: ll

public subroutine Scatter_field_v(field_glo, field_loc, ll)

Arguments

Type IntentOptional Attributes Name
real :: field_glo(ip1jmp1,ll)
real :: field_loc(ijb_v:ije_v,ll)
integer :: ll