midas_vertmap::fill_boundaries Interface Reference

Detailed Description

Definition at line 58 of file midas_vertmap.F90.

Private functions
real function, dimension(0:size(m, 1)+1, 0:size(m, 2)+1)	fill_boundaries_real (m, cyclic_x, tripolar_n)
integer function, dimension(0:size(m, 1)+1, 0:size(m, 2)+1)	fill_boundaries_int (m, cyclic_x, tripolar_n)

Functions and subroutines

fill_boundaries_int()

integer function, dimension(0:size(m,1)+1,0:size(m,2)+1) midas_vertmap::fill_boundaries::fill_boundaries_int ( integer, dimension(:,:), intent(in)  m, logical, intent(in)  cyclic_x, logical, intent(in)  tripolar_n  )

private

Definition at line 974 of file midas_vertmap.F90.

!
! fill grid edges
!
integer, dimension(:,:), intent(in) :: m
logical, intent(in) :: cyclic_x, tripolar_n
real, dimension(size(m,1),size(m,2)) :: m_real
real, dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp_real
integer, dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp

m_real = real(m)

mp_real = fill_boundaries_real(m_real,cyclic_x,tripolar_n)

mp = int(mp_real)

return

fill_boundaries_real()

real function, dimension(0:size(m,1)+1,0:size(m,2)+1) midas_vertmap::fill_boundaries::fill_boundaries_real ( real, dimension(:,:), intent(in)  m, logical, intent(in)  cyclic_x, logical, intent(in)  tripolar_n  )

private

Definition at line 994 of file midas_vertmap.F90.

!
! fill grid edges
!
real, dimension(:,:), intent(in) :: m
logical, intent(in) :: cyclic_x, tripolar_n
real, dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp

integer :: ni,nj,i,j

ni=size(m,1); nj=size(m,2)

mp(1:ni,1:nj)=m(:,:)

if (cyclic_x) then
  mp(0,1:nj)=m(ni,1:nj)
  mp(ni+1,1:nj)=m(1,1:nj)
else
  mp(0,1:nj)=m(1,1:nj)
  mp(ni+1,1:nj)=m(ni,1:nj)
endif

mp(1:ni,0)=m(1:ni,1)
if (tripolar_n) then
  do i=1,ni
    mp(i,nj+1)=m(ni-i+1,nj)
  enddo
else
  mp(1:ni,nj+1)=m(1:ni,nj)
endif

return

---

The documentation for this interface was generated from the following file:

• /home/adcroft/GitHub/workspace/Gaea-stats-MOM6-examples/MOM6-examples/src/MOM6/src/initialization/midas_vertmap.F90