Set up a group of halo updates.
Definition at line 79 of file MOM_domains.F90.
|
subroutine | create_var_group_pass_2d (group, array, MOM_dom, sideflag, position, halo, clock) |
| create_var_group_pass_2d sets up a group of two-dimensional array halo updates. More...
|
|
subroutine | create_var_group_pass_3d (group, array, MOM_dom, sideflag, position, halo, clock) |
| create_var_group_pass_3d sets up a group of three-dimensional array halo updates. More...
|
|
subroutine | create_vector_group_pass_2d (group, u_cmpt, v_cmpt, MOM_dom, direction, stagger, halo, clock) |
| create_vector_group_pass_2d sets up a group of two-dimensional vector halo updates. More...
|
|
subroutine | create_vector_group_pass_3d (group, u_cmpt, v_cmpt, MOM_dom, direction, stagger, halo, clock) |
| create_vector_group_pass_3d sets up a group of three-dimensional vector halo updates. More...
|
|
◆ create_var_group_pass_2d()
subroutine mom_domains::create_group_pass::create_var_group_pass_2d |
( |
type(group_pass_type), intent(inout) |
group, |
|
|
real, dimension(:,:), intent(inout) |
array, |
|
|
type(mom_domain_type), intent(inout) |
MOM_dom, |
|
|
integer, intent(in), optional |
sideflag, |
|
|
integer, intent(in), optional |
position, |
|
|
integer, intent(in), optional |
halo, |
|
|
integer, intent(in), optional |
clock |
|
) |
| |
|
private |
create_var_group_pass_2d sets up a group of two-dimensional array halo updates.
- Parameters
-
[in,out] | group | The data type that store information for group update. This data will be used in do_group_pass. |
[in,out] | array | The array which is having its halos points exchanged. |
[in,out] | mom_dom | The MOM_domain_type containing the mpp_domain needed to determine where data should be sent. |
[in] | sideflag | An optional integer indicating which directions the data should be sent. It is TO_ALL or the sum of any of TO_EAST, TO_WEST, TO_NORTH, and TO_SOUTH. For example, TO_EAST sends the data to the processor to the east, so the halos on the western side are filled. TO_ALL is the default if sideflag is omitted. |
[in] | position | An optional argument indicating the position. This is usally CORNER, but is CENTER by default. |
[in] | halo | The size of the halo to update - the full halo by default. |
[in] | clock | The handle for a cpu time clock that should be started then stopped to time this routine. |
Definition at line 888 of file MOM_domains.F90.
888 type(group_pass_type),
intent(inout) :: group
891 real,
dimension(:,:),
intent(inout) :: array
893 type(MOM_domain_type),
intent(inout) :: MOM_dom
896 integer,
optional,
intent(in) :: sideflag
900 integer,
optional,
intent(in) :: position
903 integer,
optional,
intent(in) :: halo
905 integer,
optional,
intent(in) :: clock
910 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_begin(clock) ;
endif
913 if (
present(sideflag))
then ;
if (sideflag > 0) dirflag = sideflag ;
endif
915 if (mpp_group_update_initialized(group))
then
916 call mpp_reset_group_update_field(group,array)
917 elseif (
present(halo) .and. mom_dom%thin_halo_updates)
then
918 call mpp_create_group_update(group, array, mom_dom%mpp_domain, flags=dirflag, &
919 position=position, whalo=halo, ehalo=halo, &
920 shalo=halo, nhalo=halo)
922 call mpp_create_group_update(group, array, mom_dom%mpp_domain, flags=dirflag, &
926 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_end(clock) ;
endif
◆ create_var_group_pass_3d()
subroutine mom_domains::create_group_pass::create_var_group_pass_3d |
( |
type(group_pass_type), intent(inout) |
group, |
|
|
real, dimension(:,:,:), intent(inout) |
array, |
|
|
type(mom_domain_type), intent(inout) |
MOM_dom, |
|
|
integer, intent(in), optional |
sideflag, |
|
|
integer, intent(in), optional |
position, |
|
|
integer, intent(in), optional |
halo, |
|
|
integer, intent(in), optional |
clock |
|
) |
| |
|
private |
create_var_group_pass_3d sets up a group of three-dimensional array halo updates.
- Parameters
-
[in,out] | group | The data type that store information for group update. This data will be used in do_group_pass. |
[in,out] | array | The array which is having its halos points exchanged. |
[in,out] | mom_dom | The MOM_domain_type containing the mpp_domain needed to determine where data should be sent. |
[in] | sideflag | An optional integer indicating which directions the data should be sent. It is TO_ALL or the sum of any of TO_EAST, TO_WEST, TO_NORTH, and TO_SOUTH. For example, TO_EAST sends the data to the processor to the east, so the halos on the western side are filled. TO_ALL is the default if sideflag is omitted. |
[in] | position | An optional argument indicating the position. This is usally CORNER, but is CENTER by default. |
[in] | halo | The size of the halo to update - the full halo by default. |
[in] | clock | The handle for a cpu time clock that should be started then stopped to time this routine. |
Definition at line 933 of file MOM_domains.F90.
933 type(group_pass_type),
intent(inout) :: group
936 real,
dimension(:,:,:),
intent(inout) :: array
938 type(MOM_domain_type),
intent(inout) :: MOM_dom
941 integer,
optional,
intent(in) :: sideflag
945 integer,
optional,
intent(in) :: position
948 integer,
optional,
intent(in) :: halo
950 integer,
optional,
intent(in) :: clock
955 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_begin(clock) ;
endif
958 if (
present(sideflag))
then ;
if (sideflag > 0) dirflag = sideflag ;
endif
960 if (mpp_group_update_initialized(group))
then
961 call mpp_reset_group_update_field(group,array)
962 elseif (
present(halo) .and. mom_dom%thin_halo_updates)
then
963 call mpp_create_group_update(group, array, mom_dom%mpp_domain, flags=dirflag, &
964 position=position, whalo=halo, ehalo=halo, &
965 shalo=halo, nhalo=halo)
967 call mpp_create_group_update(group, array, mom_dom%mpp_domain, flags=dirflag, &
971 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_end(clock) ;
endif
◆ create_vector_group_pass_2d()
subroutine mom_domains::create_group_pass::create_vector_group_pass_2d |
( |
type(group_pass_type), intent(inout) |
group, |
|
|
real, dimension(:,:), intent(inout) |
u_cmpt, |
|
|
real, dimension(:,:), intent(inout) |
v_cmpt, |
|
|
type(mom_domain_type), intent(inout) |
MOM_dom, |
|
|
integer, intent(in), optional |
direction, |
|
|
integer, intent(in), optional |
stagger, |
|
|
integer, intent(in), optional |
halo, |
|
|
integer, intent(in), optional |
clock |
|
) |
| |
|
private |
create_vector_group_pass_2d sets up a group of two-dimensional vector halo updates.
- Parameters
-
[in,out] | group | The data type that store information for group update. This data will be used in do_group_pass. |
[in,out] | u_cmpt | The nominal zonal (u) component of the vector pair which is having its halos points exchanged. |
[in,out] | v_cmpt | The nominal meridional (v) component of the vector pair which is having its halos points exchanged. |
[in,out] | mom_dom | The MOM_domain_type containing the mpp_domain needed to determine where data should be sent |
[in] | direction | An optional integer indicating which directions the data should be sent. It is TO_ALL or the sum of any of TO_EAST, TO_WEST, TO_NORTH, and TO_SOUTH, possibly plus SCALAR_PAIR if these are paired non-directional scalars discretized at the typical vector component locations. For example, TO_EAST sends the data to the processor to the east, so the halos on the western side are filled. TO_ALL is the default if omitted. |
[in] | stagger | An optional flag, which may be one of A_GRID, BGRID_NE, or CGRID_NE, indicating where the two components of the vector are discretized. Omitting stagger is the same as setting it to CGRID_NE. |
[in] | halo | The size of the halo to update - the full halo by default. |
[in] | clock | The handle for a cpu time clock that should be started then stopped to time this routine. |
Definition at line 978 of file MOM_domains.F90.
978 type(group_pass_type),
intent(inout) :: group
981 real,
dimension(:,:),
intent(inout) :: u_cmpt
984 real,
dimension(:,:),
intent(inout) :: v_cmpt
988 type(MOM_domain_type),
intent(inout) :: MOM_dom
991 integer,
optional,
intent(in) :: direction
997 integer,
optional,
intent(in) :: stagger
1000 integer,
optional,
intent(in) :: halo
1002 integer,
optional,
intent(in) :: clock
1005 integer :: stagger_local
1008 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_begin(clock) ;
endif
1010 stagger_local = cgrid_ne
1011 if (
present(stagger)) stagger_local = stagger
1014 if (
present(direction))
then ;
if (direction > 0) dirflag = direction ;
endif
1016 if (mpp_group_update_initialized(group))
then
1017 call mpp_reset_group_update_field(group,u_cmpt, v_cmpt)
1018 elseif (
present(halo) .and. mom_dom%thin_halo_updates)
then
1019 call mpp_create_group_update(group, u_cmpt, v_cmpt, mom_dom%mpp_domain, &
1020 flags=dirflag, gridtype=stagger_local, whalo=halo, ehalo=halo, &
1021 shalo=halo, nhalo=halo)
1023 call mpp_create_group_update(group, u_cmpt, v_cmpt, mom_dom%mpp_domain, &
1024 flags=dirflag, gridtype=stagger_local)
1027 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_end(clock) ;
endif
◆ create_vector_group_pass_3d()
subroutine mom_domains::create_group_pass::create_vector_group_pass_3d |
( |
type(group_pass_type), intent(inout) |
group, |
|
|
real, dimension(:,:,:), intent(inout) |
u_cmpt, |
|
|
real, dimension(:,:,:), intent(inout) |
v_cmpt, |
|
|
type(mom_domain_type), intent(inout) |
MOM_dom, |
|
|
integer, intent(in), optional |
direction, |
|
|
integer, intent(in), optional |
stagger, |
|
|
integer, intent(in), optional |
halo, |
|
|
integer, intent(in), optional |
clock |
|
) |
| |
|
private |
create_vector_group_pass_3d sets up a group of three-dimensional vector halo updates.
- Parameters
-
[in,out] | group | The data type that store information for group update. This data will be used in do_group_pass. |
[in,out] | u_cmpt | The nominal zonal (u) component of the vector pair which is having its halos points exchanged. |
[in,out] | v_cmpt | The nominal meridional (v) component of the vector pair which is having its halos points exchanged. |
[in,out] | mom_dom | The MOM_domain_type containing the mpp_domain needed to determine where data should be sent. |
[in] | direction | An optional integer indicating which directions the data should be sent. It is TO_ALL or the sum of any of TO_EAST, TO_WEST, TO_NORTH, and TO_SOUTH, possibly plus SCALAR_PAIR if these are paired non-directional scalars discretized at the typical vector component locations. For example, TO_EAST sends the data to the processor to the east, so the halos on the western side are filled. TO_ALL is the default if omitted. |
[in] | stagger | An optional flag, which may be one of A_GRID, BGRID_NE, or CGRID_NE, indicating where the two components of the vector are discretized. Omitting stagger is the same as setting it to CGRID_NE. |
[in] | halo | The size of the halo to update - the full halo by default. |
[in] | clock | The handle for a cpu time clock that should be started then stopped to time this routine. |
Definition at line 1034 of file MOM_domains.F90.
1034 type(group_pass_type),
intent(inout) :: group
1037 real,
dimension(:,:,:),
intent(inout) :: u_cmpt
1040 real,
dimension(:,:,:),
intent(inout) :: v_cmpt
1044 type(MOM_domain_type),
intent(inout) :: MOM_dom
1047 integer,
optional,
intent(in) :: direction
1053 integer,
optional,
intent(in) :: stagger
1056 integer,
optional,
intent(in) :: halo
1058 integer,
optional,
intent(in) :: clock
1062 integer :: stagger_local
1065 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_begin(clock) ;
endif
1067 stagger_local = cgrid_ne
1068 if (
present(stagger)) stagger_local = stagger
1071 if (
present(direction))
then ;
if (direction > 0) dirflag = direction ;
endif
1073 if (mpp_group_update_initialized(group))
then
1074 call mpp_reset_group_update_field(group,u_cmpt, v_cmpt)
1075 elseif (
present(halo) .and. mom_dom%thin_halo_updates)
then
1076 call mpp_create_group_update(group, u_cmpt, v_cmpt, mom_dom%mpp_domain, &
1077 flags=dirflag, gridtype=stagger_local, whalo=halo, ehalo=halo, &
1078 shalo=halo, nhalo=halo)
1080 call mpp_create_group_update(group, u_cmpt, v_cmpt, mom_dom%mpp_domain, &
1081 flags=dirflag, gridtype=stagger_local)
1084 if (
present(clock))
then ;
if (clock>0)
call cpu_clock_end(clock) ;
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_domains.F90