mom_safe_alloc Module Reference

Data Types
interface	safe_alloc_alloc
interface	safe_alloc_ptr

Functions/Subroutines
subroutine	safe_alloc_ptr_1d (ptr, i1, i2)
subroutine	safe_alloc_ptr_2d_2arg (ptr, ni, nj)
subroutine	safe_alloc_ptr_3d_2arg (ptr, ni, nj, nk)
subroutine	safe_alloc_ptr_2d (ptr, is, ie, js, je)
subroutine	safe_alloc_ptr_3d (ptr, is, ie, js, je, nk)
subroutine	safe_alloc_allocatable_2d (ptr, is, ie, js, je)
subroutine	safe_alloc_allocatable_3d (ptr, is, ie, js, je, nk)

Function/Subroutine Documentation

safe_alloc_allocatable_2d()

subroutine mom_safe_alloc::safe_alloc_allocatable_2d ( real, dimension(:,:), allocatable  ptr, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je  )

private

Definition at line 106 of file MOM_safe_alloc.F90.

  real, allocatable :: ptr(:,:)
  integer, intent(in) :: is, ie, js, je
  if (.not.ALLOCATED(ptr)) then
    allocate(ptr(is:ie,js:je))
    ptr(:,:) = 0.0
  endif

safe_alloc_allocatable_3d()

subroutine mom_safe_alloc::safe_alloc_allocatable_3d ( real, dimension(:,:,:), allocatable  ptr, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je, integer, intent(in)  nk  )

private

Definition at line 115 of file MOM_safe_alloc.F90.

  real, allocatable :: ptr(:,:,:)
  integer, intent(in) :: is, ie, js, je, nk
  if (.not.ALLOCATED(ptr)) then
    allocate(ptr(is:ie,js:je,nk))
    ptr(:,:,:) = 0.0
  endif

safe_alloc_ptr_1d()

subroutine mom_safe_alloc::safe_alloc_ptr_1d ( real, dimension(:), pointer  ptr, integer, intent(in)  i1, integer, intent(in), optional  i2  )

private

Definition at line 56 of file MOM_safe_alloc.F90.

  real, pointer :: ptr(:)
  integer, intent(in) :: i1
  integer, optional, intent(in) :: i2
  if (.not.ASSOCIATED(ptr)) then
    if (present(i2)) then
      allocate(ptr(i1:i2))
    else
      allocate(ptr(i1))
    endif
    ptr(:) = 0.0
  endif

safe_alloc_ptr_2d()

subroutine mom_safe_alloc::safe_alloc_ptr_2d ( real, dimension(:,:), pointer  ptr, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je  )

private

Definition at line 88 of file MOM_safe_alloc.F90.

  real, pointer :: ptr(:,:)
  integer, intent(in) :: is, ie, js, je
  if (.not.ASSOCIATED(ptr)) then
    allocate(ptr(is:ie,js:je))
    ptr(:,:) = 0.0
  endif

safe_alloc_ptr_2d_2arg()

subroutine mom_safe_alloc::safe_alloc_ptr_2d_2arg ( real, dimension(:,:), pointer  ptr, integer, intent(in)  ni, integer, intent(in)  nj  )

private

Definition at line 70 of file MOM_safe_alloc.F90.

  real, pointer :: ptr(:,:)
  integer, intent(in) :: ni, nj
  if (.not.ASSOCIATED(ptr)) then
    allocate(ptr(ni,nj))
    ptr(:,:) = 0.0
  endif

safe_alloc_ptr_3d()

subroutine mom_safe_alloc::safe_alloc_ptr_3d ( real, dimension(:,:,:), pointer  ptr, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je, integer, intent(in)  nk  )

private

Definition at line 97 of file MOM_safe_alloc.F90.

  real, pointer :: ptr(:,:,:)
  integer, intent(in) :: is, ie, js, je, nk
  if (.not.ASSOCIATED(ptr)) then
    allocate(ptr(is:ie,js:je,nk))
    ptr(:,:,:) = 0.0
  endif

safe_alloc_ptr_3d_2arg()

subroutine mom_safe_alloc::safe_alloc_ptr_3d_2arg ( real, dimension(:,:,:), pointer  ptr, integer, intent(in)  ni, integer, intent(in)  nj, integer, intent(in)  nk  )

private

Definition at line 79 of file MOM_safe_alloc.F90.

  real, pointer :: ptr(:,:,:)
  integer, intent(in) :: ni, nj, nk
  if (.not.ASSOCIATED(ptr)) then
    allocate(ptr(ni,nj,nk))
    ptr(:,:,:) = 0.0
  endif