Fill grid edges.
Definition at line 22 of file midas_vertmap.F90.
|
real function, dimension(0:size(m, 1)+1, 0:size(m, 2)+1) | fill_boundaries_real (m, cyclic_x, tripolar_n) |
| fill grid edges 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. More...
|
|
◆ 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 |
Fill grid edges.
- Parameters
-
[in] | m | input array |
[in] | cyclic_x | zonal cyclic condition |
[in] | tripolar_n | northern fold condition |
- Returns
- output filled array
Definition at line 782 of file midas_vertmap.F90.
782 integer,
dimension(:,:),
intent(in) :: m
783 logical,
intent(in) :: cyclic_x
784 logical,
intent(in) :: tripolar_n
785 integer,
dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp
787 real,
dimension(size(m,1),size(m,2)) :: m_real
788 real,
dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp_real
792 mp_real = fill_boundaries_real(m_real,cyclic_x,tripolar_n)
◆ 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 |
fill grid edges
- Parameters
-
[in] | m | input array |
[in] | cyclic_x | zonal cyclic condition |
[in] | tripolar_n | northern fold condition |
- Returns
- output filled array
Definition at line 802 of file midas_vertmap.F90.
802 real,
dimension(:,:),
intent(in) :: m
803 logical,
intent(in) :: cyclic_x
804 logical,
intent(in) :: tripolar_n
805 real,
dimension(0:size(m,1)+1,0:size(m,2)+1) :: mp
809 ni=
size(m,1); nj=
size(m,2)
814 mp(0,1:nj)=m(ni,1:nj)
815 mp(ni+1,1:nj)=m(1,1:nj)
818 mp(ni+1,1:nj)=m(ni,1:nj)
824 mp(i,nj+1)=m(ni-i+1,nj)
827 mp(1:ni,nj+1)=m(1:ni,nj)
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/initialization/midas_vertmap.F90