Definition at line 73 of file MOM_domains.F90.
|
integer function | pass_var_start_3d (array, MOM_dom, sideflag, position, complete, halo) |
|
integer function | pass_var_start_2d (array, MOM_dom, sideflag, position, complete, halo) |
|
◆ pass_var_start_2d()
integer function mom_domains::pass_var_start::pass_var_start_2d |
( |
real, dimension(:,:), intent(inout) |
array, |
|
|
type(mom_domain_type), intent(inout) |
MOM_dom, |
|
|
integer, intent(in), optional |
sideflag, |
|
|
integer, intent(in), optional |
position, |
|
|
logical, intent(in), optional |
complete, |
|
|
integer, intent(in), optional |
halo |
|
) |
| |
|
private |
- Parameters
-
[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] | complete | An optional argument indicating whether the halo updates should be completed before progress resumes. Omitting complete is the same as setting complete to .true. |
[in] | halo | The size of the halo to update - the full halo by default. |
- Returns
- The integer index for this update.
Definition at line 251 of file MOM_domains.F90.
251 real,
dimension(:,:),
intent(inout) :: array
253 type(mom_domain_type),
intent(inout) :: mom_dom
256 integer,
optional,
intent(in) :: sideflag
260 integer,
optional,
intent(in) :: position
263 logical,
optional,
intent(in) :: complete
267 integer,
optional,
intent(in) :: halo
269 integer :: pass_var_start_2d
290 if (
present(sideflag))
then ;
if (sideflag > 0) dirflag = sideflag ;
endif 292 if (
present(halo) .and. mom_dom%thin_halo_updates)
then 293 pass_var_start_2d = mpp_start_update_domains(array, mom_dom%mpp_domain, &
294 flags=dirflag, position=position, &
295 whalo=halo, ehalo=halo, shalo=halo, nhalo=halo)
297 pass_var_start_2d = mpp_start_update_domains(array, mom_dom%mpp_domain, &
298 flags=dirflag, position=position)
◆ pass_var_start_3d()
integer function mom_domains::pass_var_start::pass_var_start_3d |
( |
real, dimension(:,:,:), intent(inout) |
array, |
|
|
type(mom_domain_type), intent(inout) |
MOM_dom, |
|
|
integer, intent(in), optional |
sideflag, |
|
|
integer, intent(in), optional |
position, |
|
|
logical, intent(in), optional |
complete, |
|
|
integer, intent(in), optional |
halo |
|
) |
| |
|
private |
- Parameters
-
[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] | complete | An optional argument indicating whether the halo updates should be completed before progress resumes. Omitting complete is the same as setting complete to .true. |
[in] | halo | The size of the halo to update - the full halo by default. |
- Returns
- The integer index for this update.
Definition at line 303 of file MOM_domains.F90.
303 real,
dimension(:,:,:),
intent(inout) :: array
305 type(mom_domain_type),
intent(inout) :: mom_dom
308 integer,
optional,
intent(in) :: sideflag
312 integer,
optional,
intent(in) :: position
315 logical,
optional,
intent(in) :: complete
319 integer,
optional,
intent(in) :: halo
321 integer :: pass_var_start_3d
342 if (
present(sideflag))
then ;
if (sideflag > 0) dirflag = sideflag ;
endif 344 if (
present(halo) .and. mom_dom%thin_halo_updates)
then 345 pass_var_start_3d = mpp_start_update_domains(array, mom_dom%mpp_domain, &
346 flags=dirflag, position=position, &
347 whalo=halo, ehalo=halo, shalo=halo, nhalo=halo)
349 pass_var_start_3d = mpp_start_update_domains(array, mom_dom%mpp_domain, &
350 flags=dirflag, position=position)
The documentation for this interface was generated from the following file:
- /home/adcroft/GitHub/workspace/Gaea-stats-MOM6-examples/MOM6-examples/src/MOM6/src/framework/MOM_domains.F90