mom_horizontal_regridding::fill_boundaries Interface Reference

Detailed Description

Fill grid edges.

Definition at line 46 of file MOM_horizontal_regridding.F90.

Private functions
real function, dimension(0:size(m, 1)+1, 0:size(m, 2)+1)	fill_boundaries_real (m, cyclic_x, tripolar_n)
	Fill grid edges for real data. More...
integer function, dimension(0:size(m, 1)+1, 0:size(m, 2)+1)	fill_boundaries_int (m, cyclic_x, tripolar_n)
	Fill grid edges for integer data. More...

Functions and subroutines

fill_boundaries_int()

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

private

Fill grid edges for integer data.

Parameters

[in]	m	input array (ND)
[in]	cyclic_x	True if domain is zonally re-entrant
[in]	tripolar_n	True if domain has an Arctic fold

Definition at line 900 of file MOM_horizontal_regridding.F90.

  integer, dimension(:,:), intent(in)             :: m !< input array (ND)
  logical,                 intent(in)             :: cyclic_x !< True if domain is zonally re-entrant
  logical,                 intent(in)             :: tripolar_n !< True if domain has an Arctic fold
  integer, dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp
 
  real,    dimension(size(m,1),size(m,2))         :: m_real
  real,    dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp_real
 
  m_real = real(m)
 
  mp_real = fill_boundaries_real(m_real,cyclic_x,tripolar_n)
 
  mp = int(mp_real)
 

fill_boundaries_real()

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

private

Fill grid edges for real data.

Parameters

[in]	m	input array (ND)
[in]	cyclic_x	True if domain is zonally re-entrant
[in]	tripolar_n	True if domain has an Arctic fold

Definition at line 918 of file MOM_horizontal_regridding.F90.

  real, dimension(:,:), intent(in)             :: m !< input array (ND)
  logical,              intent(in)             :: cyclic_x !< True if domain is zonally re-entrant
  logical,              intent(in)             :: tripolar_n !< True if domain has an Arctic fold
  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
 

---

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

• /glade/work/altuntas/cesm.sandboxes/cesm2_2_alpha_X_mom/components/mom/MOM6/src/framework/MOM_horizontal_regridding.F90