mpp_update_nest_domains.h File Reference

Go to the source code of this file.

Functions
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=>	NULL () integer(LONG_KIND)
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=>	dimension (MAX_DOMAIN_FIELDS)

Variables
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If	not
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile	update_flags
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position	ebuffersz
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position	sbuffersz
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz	jsize
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz	ksize
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	integer
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	jsize_save =0
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	ksize_save
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	ebuffersz_save =0
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	sbuffersz_save =0
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	nbuffersz_save
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	update_flags_save =0
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_ ::wbuffer3D(size(wbuffer, 1), size(wbuffer, 2), 1) MPP_TYPE_ ::ebuffer3D(size(ebuffer, 1), size(ebuffer, 2), 1) MPP_TYPE_ ::sbuffer3D(size(sbuffer, 1), size(sbuffer, 2), 1) MPP_TYPE_ ::nbuffer3D(size(nbuffer, 1), size(nbuffer, 2), 1) pointer(ptr, field3D) pointer(ptr_w, wbuffer3D) pointer(ptr_e, ebuffer3D) pointer(ptr_s, sbuffer3D) pointer(ptr_n, nbuffer3D) ptr=LOC(field) ptr_w=LOC(wbuffer) ptr_e=LOC(ebuffer) ptr_s=LOC(sbuffer) ptr_n=LOC(nbuffer) call mpp_update_nest_fine(field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, &flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, &flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) ::field(:,:,:) type(nest_domain_type), intent(inout) ::nest_domain MPP_TYPE_, intent(inout) ::wbuffer(:,:,:) MPP_TYPE_, intent(inout) ::ebuffer(:,:,:) MPP_TYPE_, intent(inout) ::sbuffer(:,:,:) MPP_TYPE_, intent(inout) ::nbuffer(:,:,:) integer, intent(in), optional ::flags logical, intent(in), optional ::complete integer, intent(in), optional ::position integer, intent(in), optional ::extra_halo character(len= *), intent(in), optional ::name integer, intent(in), optional ::tile_count MPP_TYPE_ ::d_type type(nestSpec), pointer ::update=> set_mismatch integer ::tile update_position nbuffersz l_size	update_position_save

Function Documentation

dimension()

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> dimension

(

MAX_DOMAIN_FIELDS

)

NULL()

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> NULL

(

)

Variable Documentation

ebuffersz

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position ebuffersz

Definition at line 79 of file mpp_update_nest_domains.h.

ebuffersz_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size ebuffersz_save =0

Definition at line 87 of file mpp_update_nest_domains.h.

integer

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size integer

Definition at line 79 of file mpp_update_nest_domains.h.

jsize

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz jsize

Definition at line 79 of file mpp_update_nest_domains.h.

jsize_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size jsize_save =0

Definition at line 86 of file mpp_update_nest_domains.h.

ksize

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz ksize

Definition at line 79 of file mpp_update_nest_domains.h.

ksize_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size ksize_save

Initial value:

=0
   integer          :: wbuffersz_save=0

Definition at line 86 of file mpp_update_nest_domains.h.

nbuffersz_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size nbuffersz_save

Initial value:

=0
   integer

Definition at line 87 of file mpp_update_nest_domains.h.

not

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If not

Definition at line 5 of file mpp_update_nest_domains.h.

sbuffersz

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position sbuffersz

Definition at line 79 of file mpp_update_nest_domains.h.

sbuffersz_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size sbuffersz_save =0

Definition at line 87 of file mpp_update_nest_domains.h.

update_flags

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_flags

Definition at line 79 of file mpp_update_nest_domains.h.

update_flags_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size update_flags_save =0

Definition at line 88 of file mpp_update_nest_domains.h.

update_position_save

* f90* *********************************************************************** * GNU Lesser General Public License* * This file is part of the GFDL Flexible Modeling System (FMS). !* !* FMS is free software without even the implied warranty of MERCHANTABILITY or* FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License* for more details* * You should have received a copy of the GNU Lesser General Public* License along with FMS If see<http:!***********************************************************************subroutine MPP_UPDATE_NEST_FINE_2D_(field, nest_domain, wbuffer, ebuffer, sbuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: field3D(size(field,1),size(field,2),1) MPP_TYPE_ :: wbuffer3D(size(wbuffer,1),size(wbuffer,2),1) MPP_TYPE_ :: ebuffer3D(size(ebuffer,1),size(ebuffer,2),1) MPP_TYPE_ :: sbuffer3D(size(sbuffer,1),size(sbuffer,2),1) MPP_TYPE_ :: nbuffer3D(size(nbuffer,1),size(nbuffer,2),1) pointer( ptr, field3D ) pointer( ptr_w, wbuffer3D) pointer( ptr_e, ebuffer3D) pointer( ptr_s, sbuffer3D) pointer( ptr_n, nbuffer3D) ptr = LOC(field) ptr_w = LOC(wbuffer) ptr_e = LOC(ebuffer) ptr_s = LOC(sbuffer) ptr_n = LOC(nbuffer) call mpp_update_nest_fine( field3D, nest_domain, wbuffer3D, ebuffer3D, sbuffer3D, nbuffer3D, & flags, complete, position, extra_halo, name, tile_count) returnend subroutine MPP_UPDATE_NEST_FINE_2D_subroutine MPP_UPDATE_NEST_FINE_3D_(field, nest_domain, wbuffer, sbuffer, ebuffer, nbuffer, & flags, complete, position, extra_halo, name, tile_count) MPP_TYPE_, intent(in) :: field(:,:,:) type(nest_domain_type), intent(inout) :: nest_domain MPP_TYPE_, intent(inout) :: wbuffer(:,:,:) MPP_TYPE_, intent(inout) :: ebuffer(:,:,:) MPP_TYPE_, intent(inout) :: sbuffer(:,:,:) MPP_TYPE_, intent(inout) :: nbuffer(:,:,:) integer, intent(in), optional :: flags logical, intent(in), optional :: complete integer, intent(in), optional :: position integer, intent(in), optional :: extra_halo character(len=*), intent(in), optional :: name integer, intent(in), optional :: tile_count MPP_TYPE_ :: d_type type(nestSpec), pointer :: update=> set_mismatch integer :: tile update_position nbuffersz l_size update_position_save

Initial value:

=0
   integer

Definition at line 88 of file mpp_update_nest_domains.h.