doxygen-example/fms__io__unstructured__read_8inc_source.html

 !***********************************************************************
 !*                   GNU Lesser General Public License
 !*
 !* This file is part of the GFDL Flexible Modeling System (FMS).
 !*
 !* FMS is free software: you can redistribute it and/or modify it under
 !* the terms of the GNU Lesser General Public License as published by
 !* the Free Software Foundation, either version 3 of the License, or (at
 !* your option) any later version.
 !*
 !* FMS is distributed in the hope that it will be useful, but WITHOUT
 !* ANY WARRANTY; 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, see <http://www.gnu.org/licenses/>.
 !***********************************************************************
 !----------
 !ug support

 !------------------------------------------------------------------------------
 !>Read in a scalar field from a file associated with an unstructured mpp
 !!domain.
 subroutine fms_io_unstructured_read_r_scalar(filename, &
                                              fieldname, &
                                              fdata, &
                                              domain, &
                                              timelevel, &
                                              start, &
                                              nread, &
                                              threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     real,intent(inout)                       :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     real,dimension(1) :: tmp    !<Dummy variable.
     integer           :: tlevel !<Dummy variable.

    !Use the 1D case.
     if (present(timelevel)) then
         if (tlevel .le. 0) then
             call mpp_error(FATAL, &
                            "fms_io_unstructured_read_r_scalar:" &
                            //" the inputted time level must be at" &
                            //" least one.")
         endif
         tlevel = timelevel
     else
         tlevel = 1
     endif
     call fms_io_unstructured_read_r_1D(filename, &
                                        fieldname, &
                                        tmp, &
                                        domain, &
                                        tlevel, &
                                        start, &
                                        nread, &
                                        threading)
     fdata = tmp(1)

     return
 end subroutine fms_io_unstructured_read_r_scalar

 !------------------------------------------------------------------------------
 !>Read in a one dimensional "compressed" field from a file associated with
 !!an unstructured mpp domain.
 subroutine fms_io_unstructured_read_r_1D(filename, &
                                          fieldname, &
                                          fdata, &
                                          domain, &
                                          timelevel, &
                                          start, &
                                          nread, &
                                          threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     real,dimension(:),intent(inout)          :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     logical(INT_KIND)  :: found_file  !<Flag telling if the input file or any of its variants exist.
     character(len=256) :: fname       !<Name of file that is actually found.
     logical(INT_KIND)  :: read_dist   !<Flag telling if the file is "distributed" (has I/O domain tile id appended onto the end).
     integer(INT_KIND)  :: funit       !<File unit for the inputted file.
     integer(INT_KIND)  :: file_index  !<Index of the inputted file in the "files_read" module array.
     integer(INT_KIND)  :: index_field !<Index of the inputted field in the files_read(file_index)%var array.

    !Make sure that the module has been initialized.
     if (.not. module_is_initialized) then
         call mpp_error(FATAL, &
                        "fms_io_unstructured_read_r_1D:" &
                        //" you must first call fms_io_init.")
     endif

    !Get the full name of the input file.
     found_file = fms_io_unstructured_get_file_name(filename, &
                                                    fname, &
                                                    read_dist, &
                                                    domain)

    !If the file does not exit, then throw a fatal error.
     if (.not. found_file) then
         call mpp_error(FATAL, &
                        "fms_io_unstructured_read_r_1D:" &
                        //" file "//trim(filename) &
                        //" (with the consideration of the domain tile ids)" &
                        //" was not found.")
     endif

    !Get the file unit and in the index of the file in the "files_read" module
    !array.
     call fms_io_unstructured_get_file_unit(fname, &
                                            funit, &
                                            file_index, &
                                            read_dist, &
                                            domain)

    !Get the index of the inputted field in the files_read(file_index)%var
    !array.
     call get_field_id(funit, &
                       file_index, &
                       fieldname, &
                       index_field, &
                       .false., &
                       .false.)

    !Read in the field data.
     if (files_read(file_index)%var(index_field)%is_dimvar) then
         call mpp_get_axis_data(files_read(file_index)%var(index_field)%axis, &
                                fdata)
     else
         call mpp_io_unstructured_read(funit, &
                                       files_read(file_index)%var(index_field)%field, &
                                       domain, &
                                       fdata, &
                                       timelevel, &
                                       start, &
                                       nread, &
                                       threading)
     endif

     return
 end subroutine fms_io_unstructured_read_r_1D

 !------------------------------------------------------------------------------
 !>Read in a two dimensional "compressed" field from a file associated with
 !!an unstructured mpp domain.
 subroutine fms_io_unstructured_read_r_2D(filename, &
                                          fieldname, &
                                          fdata, &
                                          domain, &
                                          timelevel, &
                                          start, &
                                          nread, &
                                          threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     real,dimension(:,:),intent(inout)        :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     logical(INT_KIND)  :: found_file  !<Flag telling if the input file or any of its variants exist.
     character(len=256) :: fname       !<Name of file that is actually found.
     logical(INT_KIND)  :: read_dist   !<Flag telling if the file is "distributed" (has I/O domain tile id appended onto the end).
     integer(INT_KIND)  :: funit       !<File unit for the inputted file.
     integer(INT_KIND)  :: file_index  !<Index of the inputted file in the "files_read" module array.
     integer(INT_KIND)  :: index_field !<Index of the inputted field in the files_read(file_index)%var array.

    !Make sure that the module has been initialized.
     if (.not. module_is_initialized) then
         call mpp_error(FATAL, &
                        "fms_io_unstructured_read_r_2D:" &
                        //" you must first call fms_io_init.")
     endif

    !Get the full name of the input file.
     found_file = fms_io_unstructured_get_file_name(filename, &
                                                    fname, &
                                                    read_dist, &
                                                    domain)

    !If the file does not exit, then throw a fatal error.
     if (.not. found_file) then
         call mpp_error(FATAL, &
                        "fms_io_unstructured_read_r_2D:" &
                        //" file "//trim(filename) &
                        //" (with the consideration of the domain tile ids)" &
                        //" was not found.")
     endif

    !Get the file unit and in the index of the file in the "files_read" module
    !array.
     call fms_io_unstructured_get_file_unit(fname, &
                                            funit, &
                                            file_index, &
                                            read_dist, &
                                            domain)

    !Get the index of the inputted field in the files_read(file_index)%var
    !array.
     call get_field_id(funit, &
                       file_index, &
                       fieldname, &
                       index_field, &
                       .false., &
                       .false.)

    !Read in the field data.
     if (files_read(file_index)%var(index_field)%is_dimvar) then
         call mpp_get_axis_data(files_read(file_index)%var(index_field)%axis, &
                                fdata(:,1))
     else
         call mpp_io_unstructured_read(funit, &
                                       files_read(file_index)%var(index_field)%field, &
                                       domain, &
                                       fdata, &
                                       timelevel, &
                                       start, &
                                       nread, &
                                       threading)
     endif

     return
 end subroutine fms_io_unstructured_read_r_2D

 !------------------------------------------------------------------------------
 !>Read in a three dimensional "compressed" field from a file associated with
 !!an unstructured mpp domain.
 subroutine fms_io_unstructured_read_r_3D(filename, &
                                          fieldname, &
                                          fdata, &
                                          domain, &
                                          timelevel, &
                                          start, &
                                          nread, &
                                          threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     real,dimension(:,:,:),intent(inout)      :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     logical(INT_KIND)  :: found_file  !<Flag telling if the input file or any of its variants exist.
     character(len=256) :: fname       !<Name of file that is actually found.
     logical(INT_KIND)  :: read_dist   !<Flag telling if the file is "distributed" (has I/O domain tile id appended onto the end).
     integer(INT_KIND)  :: funit       !<File unit for the inputted file.
     integer(INT_KIND)  :: file_index  !<Index of the inputted file in the "files_read" module array.
     integer(INT_KIND)  :: index_field !<Index of the inputted field in the files_read(file_index)%var array.

    !Make sure that the module has been initialized.
     if (.not. module_is_initialized) then
         call mpp_error(FATAL, &
                        "fms_io_unstructured_read_r_3D:" &
                        //" you must first call fms_io_init.")
     endif

    !Get the full name of the input file.
     found_file = fms_io_unstructured_get_file_name(filename, &
                                                    fname, &
                                                    read_dist, &
                                                    domain)

    !If the file does not exit, then throw a fatal error.
     if (.not. found_file) then
         call mpp_error(FATAL, &
                        "fms_io_unstructured_read_r_3D:" &
                        //" file "//trim(filename) &
                        //" (with the consideration of the domain tile ids)" &
                        //" was not found.")
     endif

    !Get the file unit and in the index of the file in the "files_read" module
    !array.
     call fms_io_unstructured_get_file_unit(fname, &
                                            funit, &
                                            file_index, &
                                            read_dist, &
                                            domain)

    !Get the index of the inputted field in the files_read(file_index)%var
    !array.
     call get_field_id(funit, &
                       file_index, &
                       fieldname, &
                       index_field, &
                       .false., &
                       .false.)

    !Read in the field data.
     if (files_read(file_index)%var(index_field)%is_dimvar) then
         call mpp_get_axis_data(files_read(file_index)%var(index_field)%axis, &
                                fdata(:,1,1))
     else
         call mpp_io_unstructured_read(funit, &
                                       files_read(file_index)%var(index_field)%field, &
                                       domain, &
                                       fdata, &
                                       timelevel, &
                                       start, &
                                       nread, &
                                       threading)
     endif

     return
 end subroutine fms_io_unstructured_read_r_3D

 !------------------------------------------------------------------------------
 !>Read in a scalar field from a file associated with an unstructured mpp
 !!domain.
 subroutine fms_io_unstructured_read_i_scalar(filename, &
                                              fieldname, &
                                              fdata, &
                                              domain, &
                                              timelevel, &
                                              start, &
                                              nread, &
                                              threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     integer,intent(inout)                    :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     real,dimension(1) :: tmp    !<Dummy variable.
     integer           :: tlevel !<Dummy variable.

    !Read in the data.
     if (present(timelevel)) then
         if (tlevel .le. 0) then
             call mpp_error(FATAL, &
                            "fms_io_unstructured_read_i_scalar:" &
                            //" the inputted time level must be at" &
                            //" least one.")
         endif
         tlevel = timelevel
     else
         tlevel = 1
     endif
     call fms_io_unstructured_read_r_1D(filename, &
                                        fieldname, &
                                        tmp, &
                                        domain, &
                                        tlevel, &
                                        start, &
                                        nread, &
                                        threading)
     fdata = ceiling(tmp(1))

     return
 end subroutine fms_io_unstructured_read_i_scalar

 !------------------------------------------------------------------------------
 !>Read in a one dimensional "compressed" field from a file associated with
 !!an unstructured mpp domain.
 subroutine fms_io_unstructured_read_i_1D(filename, &
                                          fieldname, &
                                          fdata, &
                                          domain, &
                                          timelevel, &
                                          start, &
                                          nread, &
                                          threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     integer,dimension(:),intent(inout)       :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     real,dimension(size(fdata)) :: tmp !<Dummy variable.
     integer(INT_KIND)           :: i   !<Loop variable.

    !Read in the data.
     call fms_io_unstructured_read_r_1D(filename, &
                                        fieldname, &
                                        tmp, &
                                        domain, &
                                        timelevel, &
                                        start, &
                                        nread, &
                                        threading)
     do i = 1,size(fdata)
         fdata(i) = ceiling(tmp(i))
     enddo

     return
 end subroutine fms_io_unstructured_read_i_1D

 !------------------------------------------------------------------------------
 !>Read in a two dimensional "compressed" field from a file associated with
 !!an unstructured mpp domain.
 subroutine fms_io_unstructured_read_i_2D(filename, &
                                          fieldname, &
                                          fdata, &
                                          domain, &
                                          timelevel, &
                                          start, &
                                          nread, &
                                          threading)

    !Inputs/Outputs
     character(len=*),intent(in)              :: filename  !<The name of a file.
     character(len=*),intent(in)              :: fieldname !<The name of field in the input file.
     integer,dimension(:,:),intent(inout)     :: fdata     !<Data to be read in from the file.
     type(domainUG),intent(in)                :: domain    !<Unstructured mpp domain associated with the input file.
     integer,intent(in),optional              :: timelevel !<Time level at which the data is read in.
     integer,dimension(:),intent(in),optional :: start     !<NetCDF "Corner" indices for the data.
     integer,dimension(:),intent(in),optional :: nread     !<NetCDF "edge lengths" for the data.
     integer,intent(in),optional              :: threading !<Threading flag.

    !Local variables
     real,dimension(size(fdata,1),size(fdata,2)) :: tmp !<Dummy variable.
     integer(INT_KIND)                           :: i   !<Loop variable.
     integer(INT_KIND)                           :: j   !<Loop variable.

    !Read in the data.
     call fms_io_unstructured_read_r_2D(filename, &
                                        fieldname, &
                                        tmp, &
                                        domain, &
                                        timelevel, &
                                        start, &
                                        nread, &
                                        threading)
     do i = 1,size(fdata,2)
         do j = 1,size(fdata,1)
             fdata(j,i) = ceiling(tmp(j,i))
         enddo
     enddo

     return
 end subroutine fms_io_unstructured_read_i_2D

 !------------------------------------------------------------------------------

 !----------
will
************************************************************************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:! ***********************************************************************!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! MPP_TRANSMIT !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine MPP_TRANSMIT_(put_data, put_len, to_pe, get_data, get_len, from_pe, block, tag, recv_request, send_request)!a message-passing routine intended to be reminiscent equally of both MPI and SHMEM!put_data and get_data are contiguous MPP_TYPE_ arrays!at each call, your put_data array is put to to_pe 's get_data! your get_data array is got from from_pe 's put_data!i.e we assume that typically(e.g updating halo regions) each PE performs a put _and_ a get!special PE designations:! NULL_PE:to disable a put or a get(e.g at boundaries)! ANY_PE:if remote PE for the put or get is to be unspecific! ALL_PES:broadcast and collect operations(collect not yet implemented)!ideally we would not pass length, but this f77-style call performs better(arrays passed by address, not descriptor)!further, this permits< length > contiguous words from an array of any rank to be passed(avoiding f90 rank conformance check)!caller is responsible for completion checks(mpp_sync_self) before and after integer, intent(in) ::put_len, to_pe, get_len, from_pe MPP_TYPE_, intent(in) ::put_data(*) MPP_TYPE_, intent(out) ::get_data(*) logical, intent(in), optional ::block integer, intent(in), optional ::tag integer, intent(out), optional ::recv_request, send_request logical ::block_comm integer ::i MPP_TYPE_, allocatable, save ::local_data(:) !local copy used by non-parallel code(no SHMEM or MPI) integer ::comm_tag integer ::rsize if(.NOT.module_is_initialized) call mpp_error(FATAL, 'MPP_TRANSMIT:You must first call mpp_init.') if(to_pe.EQ.NULL_PE .AND. from_pe.EQ.NULL_PE) return block_comm=.true. if(PRESENT(block)) block_comm=block if(debug) then call SYSTEM_CLOCK(tick) write(stdout_unit,'(a, i18, a, i6, a, 2i6, 2i8)')&'T=', tick, ' PE=', pe, ' MPP_TRANSMIT begin:to_pe, from_pe, put_len, get_len=', to_pe, from_pe, put_len, get_len end if comm_tag=DEFAULT_TAG if(present(tag)) comm_tag=tag!do put first and then get if(to_pe.GE.0 .AND. to_pe.LT.npes) then!use non-blocking sends if(debug .and.(current_clock.NE.0)) call SYSTEM_CLOCK(start_tick)!z1l:truly non-blocking send.! if(request(to_pe).NE.MPI_REQUEST_NULL) then !only one message from pe-> to_pe in queue *PE waiting for to_pe ! call error else get_len so only do gets but you cannot have a pure get with MPI call a get means do a wait to ensure put on remote PE is complete error call increase mpp_nml request_multiply call MPP_TRANSMIT get_len end if return end subroutine MPP_TRANSMIT_ ! MPP_BROADCAST ! subroutine but that doesn t allow !broadcast to a subset of PEs This version will
Definition: mpp_transmit_mpi.h:166

time_interp_external_mod::field
type(ext_fieldtype), dimension(:), pointer, save, private field
Definition: time_interp_external.F90:137

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: mpp_update_nest_domains.h:79

i
l_size ! loop over number of fields ke do je do i
Definition: mpp_do_redistribute.h:71

unit
************************************************************************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 READ_RECORD_CORE_(unit, field, nwords, data, start, axsiz) integer, intent(in) ::unit type(fieldtype), intent(in) ::field integer, intent(in) ::nwords MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in) ::start(:), axsiz(:) integer(SHORT_KIND) ::i2vals(nwords)!rab used in conjunction with transfer intrinsic to determine size of a variable integer(KIND=1) ::one_byte(8) integer ::word_sz!#ifdef __sgi integer(INT_KIND) ::ivals(nwords) real(FLOAT_KIND) ::rvals(nwords)!#else! integer ::ivals(nwords)! real ::rvals(nwords)!#endif real(DOUBLE_KIND) ::r8vals(nwords) pointer(ptr1, i2vals) pointer(ptr2, ivals) pointer(ptr3, rvals) pointer(ptr4, r8vals) if(mpp_io_stack_size< nwords) call mpp_io_set_stack_size(nwords) call mpp_error(FATAL, 'MPP_READ currently requires use_netCDF option') end subroutine READ_RECORD_CORE_ subroutine READ_RECORD_(unit, field, nwords, data, time_level, domain, position, tile_count, start_in, axsiz_in)!routine that is finally called by all mpp_read routines to perform the read!a non-netCDF record contains:! field ID! a set of 4 coordinates(is:ie, js:je) giving the data subdomain! a timelevel and a timestamp(=NULLTIME if field is static)! 3D real data(stored as 1D)!if you are using direct access I/O, the RECL argument to OPEN must be large enough for the above!in a global direct access file, record position on PE is given by %record.!Treatment of timestamp:! We assume that static fields have been passed without a timestamp.! Here that is converted into a timestamp of NULLTIME.! For non-netCDF fields, field is treated no differently, but is written! with a timestamp of NULLTIME. There is no check in the code to prevent! the user from repeatedly writing a static field. integer, intent(in) ::unit, nwords type(fieldtype), intent(in) ::field MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in), optional ::time_level type(domain2D), intent(in), optional ::domain integer, intent(in), optional ::position, tile_count integer, intent(in), optional ::start_in(:), axsiz_in(:) integer, dimension(size(field%axes(:))) ::start, axsiz integer ::tlevel !, subdomain(4) integer ::i, error, is, ie, js, je, isg, ieg, jsg, jeg type(domain2d), pointer ::io_domain=> unit
Definition: mpp_read_2Ddecomp.h:167

azimuth_emissivity_f6_module::two
real(fp), parameter two
Definition: Azimuth_Emissivity_F6_Module.f90:48

fv3jedi_increment_mod::copy
subroutine, public copy(self, rhs)
Definition: fv3jedi_increment_mod.f90:254

end
************************************************************************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:! ***********************************************************************!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! MPP_TRANSMIT !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine MPP_TRANSMIT_(put_data, put_len, to_pe, get_data, get_len, from_pe, block, tag, recv_request, send_request)!a message-passing routine intended to be reminiscent equally of both MPI and SHMEM!put_data and get_data are contiguous MPP_TYPE_ arrays!at each call, your put_data array is put to to_pe 's get_data! your get_data array is got from from_pe 's put_data!i.e we assume that typically(e.g updating halo regions) each PE performs a put _and_ a get!special PE designations:! NULL_PE:to disable a put or a get(e.g at boundaries)! ANY_PE:if remote PE for the put or get is to be unspecific! ALL_PES:broadcast and collect operations(collect not yet implemented)!ideally we would not pass length, but this f77-style call performs better(arrays passed by address, not descriptor)!further, this permits< length > contiguous words from an array of any rank to be passed(avoiding f90 rank conformance check)!caller is responsible for completion checks(mpp_sync_self) before and after integer, intent(in) ::put_len, to_pe, get_len, from_pe MPP_TYPE_, intent(in) ::put_data(*) MPP_TYPE_, intent(out) ::get_data(*) logical, intent(in), optional ::block integer, intent(in), optional ::tag integer, intent(out), optional ::recv_request, send_request logical ::block_comm integer ::i MPP_TYPE_, allocatable, save ::local_data(:) !local copy used by non-parallel code(no SHMEM or MPI) integer ::comm_tag integer ::rsize if(.NOT.module_is_initialized) call mpp_error(FATAL, 'MPP_TRANSMIT:You must first call mpp_init.') if(to_pe.EQ.NULL_PE .AND. from_pe.EQ.NULL_PE) return block_comm=.true. if(PRESENT(block)) block_comm=block if(debug) then call SYSTEM_CLOCK(tick) write(stdout_unit,'(a, i18, a, i6, a, 2i6, 2i8)')&'T=', tick, ' PE=', pe, ' MPP_TRANSMIT begin:to_pe, from_pe, put_len, get_len=', to_pe, from_pe, put_len, get_len end if comm_tag=DEFAULT_TAG if(present(tag)) comm_tag=tag!do put first and then get if(to_pe.GE.0 .AND. to_pe.LT.npes) then!use non-blocking sends if(debug .and.(current_clock.NE.0)) call SYSTEM_CLOCK(start_tick)!z1l:truly non-blocking send.! if(request(to_pe).NE.MPI_REQUEST_NULL) then !only one message from pe-> to_pe in queue *PE waiting for to_pe ! call error else get_len so only do gets but you cannot have a pure get with MPI call a get means do a wait to ensure put on remote PE is complete error call increase mpp_nml request_multiply call MPP_TRANSMIT end
Definition: mpp_transmit_mpi.h:153

fms_io_mod::files_read
type(restart_file_type), dimension(:), allocatable files_read
Definition: fms_io.F90:498

binary_file_utility::false
integer(long), parameter false
Definition: Binary_File_Utility.f90:60

j
l_size ! loop over number of fields ke do j
Definition: mpp_do_redistribute.h:70

interpolator_mod::name
character(len=32) name
Definition: interpolator.F90:329

if
l_size ! loop over number of fields ke do je do ie to je n if(.NOT. d_comm%R_do_buf(list)) cycle from_pe

amip_interp_mod::module_is_initialized
logical module_is_initialized
Definition: amip_interp.F90:272

diag_integral_mod::version
character(len=128) version
Definition: diag_integral.F90:121

is
l_size ! loop over number of fields ke do je do ie to is
Definition: mpp_do_redistribute.h:72

c2f.type
type
Definition: c2f.py:15

start
************************************************************************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 READ_RECORD_CORE_(unit, field, nwords, data, start, axsiz) integer, intent(in) ::unit type(fieldtype), intent(in) ::field integer, intent(in) ::nwords MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in) ::start(:), axsiz(:) integer(SHORT_KIND) ::i2vals(nwords)!rab used in conjunction with transfer intrinsic to determine size of a variable integer(KIND=1) ::one_byte(8) integer ::word_sz!#ifdef __sgi integer(INT_KIND) ::ivals(nwords) real(FLOAT_KIND) ::rvals(nwords)!#else! integer ::ivals(nwords)! real ::rvals(nwords)!#endif real(DOUBLE_KIND) ::r8vals(nwords) pointer(ptr1, i2vals) pointer(ptr2, ivals) pointer(ptr3, rvals) pointer(ptr4, r8vals) if(mpp_io_stack_size< nwords) call mpp_io_set_stack_size(nwords) call mpp_error(FATAL, 'MPP_READ currently requires use_netCDF option') end subroutine READ_RECORD_CORE_ subroutine READ_RECORD_(unit, field, nwords, data, time_level, domain, position, tile_count, start_in, axsiz_in)!routine that is finally called by all mpp_read routines to perform the read!a non-netCDF record contains:! field ID! a set of 4 coordinates(is:ie, js:je) giving the data subdomain! a timelevel and a timestamp(=NULLTIME if field is static)! 3D real data(stored as 1D)!if you are using direct access I/O, the RECL argument to OPEN must be large enough for the above!in a global direct access file, record position on PE is given by %record.!Treatment of timestamp:! We assume that static fields have been passed without a timestamp.! Here that is converted into a timestamp of NULLTIME.! For non-netCDF fields, field is treated no differently, but is written! with a timestamp of NULLTIME. There is no check in the code to prevent! the user from repeatedly writing a static field. integer, intent(in) ::unit, nwords type(fieldtype), intent(in) ::field MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in), optional ::time_level type(domain2D), intent(in), optional ::domain integer, intent(in), optional ::position, tile_count integer, intent(in), optional ::start_in(:), axsiz_in(:) integer, dimension(size(field%axes(:))) ::start, axsiz integer ::tlevel !, subdomain(4) integer ::i, error, is, ie, js, je, isg, ieg, jsg, jeg type(domain2d), pointer ::io_domain=> tlevel if(PRESENT(start_in) .AND. PRESENT(axsiz_in)) then if(size(start(! the data domain and compute domain must refer to the subdomain being passed ! In this ! since that attempts to gather all data on PE start
Definition: mpp_read_2Ddecomp.h:197

mpp_error
************************************************************************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:! ***********************************************************************!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! MPP_TRANSMIT !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine MPP_TRANSMIT_(put_data, put_len, to_pe, get_data, get_len, from_pe, block, tag, recv_request, send_request)!a message-passing routine intended to be reminiscent equally of both MPI and SHMEM!put_data and get_data are contiguous MPP_TYPE_ arrays!at each call, your put_data array is put to to_pe 's get_data! your get_data array is got from from_pe 's put_data!i.e we assume that typically(e.g updating halo regions) each PE performs a put _and_ a get!special PE designations:! NULL_PE:to disable a put or a get(e.g at boundaries)! ANY_PE:if remote PE for the put or get is to be unspecific! ALL_PES:broadcast and collect operations(collect not yet implemented)!ideally we would not pass length, but this f77-style call performs better(arrays passed by address, not descriptor)!further, this permits< length > contiguous words from an array of any rank to be passed(avoiding f90 rank conformance check)!caller is responsible for completion checks(mpp_sync_self) before and after integer, intent(in) ::put_len, to_pe, get_len, from_pe MPP_TYPE_, intent(in) ::put_data(*) MPP_TYPE_, intent(out) ::get_data(*) logical, intent(in), optional ::block integer, intent(in), optional ::tag integer, intent(out), optional ::recv_request, send_request logical ::block_comm integer ::i MPP_TYPE_, allocatable, save ::local_data(:) !local copy used by non-parallel code(no SHMEM or MPI) integer ::comm_tag integer ::rsize if(.NOT.module_is_initialized) call mpp_error(FATAL, 'MPP_TRANSMIT:You must first call mpp_init.') if(to_pe.EQ.NULL_PE .AND. from_pe.EQ.NULL_PE) return block_comm=.true. if(PRESENT(block)) block_comm=block if(debug) then call SYSTEM_CLOCK(tick) write(stdout_unit,'(a, i18, a, i6, a, 2i6, 2i8)')&'T=', tick, ' PE=', pe, ' MPP_TRANSMIT begin:to_pe, from_pe, put_len, get_len=', to_pe, from_pe, put_len, get_len end if comm_tag=DEFAULT_TAG if(present(tag)) comm_tag=tag!do put first and then get if(to_pe.GE.0 .AND. to_pe.LT.npes) then!use non-blocking sends if(debug .and.(current_clock.NE.0)) call SYSTEM_CLOCK(start_tick)!z1l:truly non-blocking send.! if(request(to_pe).NE.MPI_REQUEST_NULL) then !only one message from pe-> to_pe in queue *PE waiting for to_pe ! call error else get_len so only do gets but you cannot have a pure get with MPI call mpp_error(FATAL, 'MPP_TRANSMIT:you cannot transmit to ANY_PE using MPI.') else if(to_pe.NE.NULL_PE) then !no other valid cases except NULL_PE call mpp_error(FATAL

mpp_mod::error
integer error
Definition: mpp.F90:1310

fms_io_mod::get_field_id
subroutine get_field_id(unit, index_file, fieldname, index_field, is_no_domain, is_not_dim)
Definition: fms_io.F90:8125

case
************************************************************************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 READ_RECORD_CORE_(unit, field, nwords, data, start, axsiz) integer, intent(in) ::unit type(fieldtype), intent(in) ::field integer, intent(in) ::nwords MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in) ::start(:), axsiz(:) integer(SHORT_KIND) ::i2vals(nwords)!rab used in conjunction with transfer intrinsic to determine size of a variable integer(KIND=1) ::one_byte(8) integer ::word_sz!#ifdef __sgi integer(INT_KIND) ::ivals(nwords) real(FLOAT_KIND) ::rvals(nwords)!#else! integer ::ivals(nwords)! real ::rvals(nwords)!#endif real(DOUBLE_KIND) ::r8vals(nwords) pointer(ptr1, i2vals) pointer(ptr2, ivals) pointer(ptr3, rvals) pointer(ptr4, r8vals) if(mpp_io_stack_size< nwords) call mpp_io_set_stack_size(nwords) call mpp_error(FATAL, 'MPP_READ currently requires use_netCDF option') end subroutine READ_RECORD_CORE_ subroutine READ_RECORD_(unit, field, nwords, data, time_level, domain, position, tile_count, start_in, axsiz_in)!routine that is finally called by all mpp_read routines to perform the read!a non-netCDF record contains:! field ID! a set of 4 coordinates(is:ie, js:je) giving the data subdomain! a timelevel and a timestamp(=NULLTIME if field is static)! 3D real data(stored as 1D)!if you are using direct access I/O, the RECL argument to OPEN must be large enough for the above!in a global direct access file, record position on PE is given by %record.!Treatment of timestamp:! We assume that static fields have been passed without a timestamp.! Here that is converted into a timestamp of NULLTIME.! For non-netCDF fields, field is treated no differently, but is written! with a timestamp of NULLTIME. There is no check in the code to prevent! the user from repeatedly writing a static field. integer, intent(in) ::unit, nwords type(fieldtype), intent(in) ::field MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in), optional ::time_level type(domain2D), intent(in), optional ::domain integer, intent(in), optional ::position, tile_count integer, intent(in), optional ::start_in(:), axsiz_in(:) integer, dimension(size(field%axes(:))) ::start, axsiz integer ::tlevel !, subdomain(4) integer ::i, error, is, ie, js, je, isg, ieg, jsg, jeg type(domain2d), pointer ::io_domain=> tlevel if(PRESENT(start_in) .AND. PRESENT(axsiz_in)) then if(size(start(! the data domain and compute domain must refer to the subdomain being passed ! In this case
Definition: mpp_read_2Ddecomp.h:169

id
************************************************************************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 READ_RECORD_CORE_(unit, field, nwords, data, start, axsiz) integer, intent(in) ::unit type(fieldtype), intent(in) ::field integer, intent(in) ::nwords MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in) ::start(:), axsiz(:) integer(SHORT_KIND) ::i2vals(nwords)!rab used in conjunction with transfer intrinsic to determine size of a variable integer(KIND=1) ::one_byte(8) integer ::word_sz!#ifdef __sgi integer(INT_KIND) ::ivals(nwords) real(FLOAT_KIND) ::rvals(nwords)!#else! integer ::ivals(nwords)! real ::rvals(nwords)!#endif real(DOUBLE_KIND) ::r8vals(nwords) pointer(ptr1, i2vals) pointer(ptr2, ivals) pointer(ptr3, rvals) pointer(ptr4, r8vals) if(mpp_io_stack_size< nwords) call mpp_io_set_stack_size(nwords) call mpp_error(FATAL, 'MPP_READ currently requires use_netCDF option') end subroutine READ_RECORD_CORE_ subroutine READ_RECORD_(unit, field, nwords, data, time_level, domain, position, tile_count, start_in, axsiz_in)!routine that is finally called by all mpp_read routines to perform the read!a non-netCDF record contains:! field ID! a set of 4 coordinates(is:ie, js:je) giving the data subdomain! a timelevel and a timestamp(=NULLTIME if field is static)! 3D real data(stored as 1D)!if you are using direct access I/O, the RECL argument to OPEN must be large enough for the above!in a global direct access file, record position on PE is given by %record.!Treatment of timestamp:! We assume that static fields have been passed without a timestamp.! Here that is converted into a timestamp of NULLTIME.! For non-netCDF fields, field is treated no differently, but is written! with a timestamp of NULLTIME. There is no check in the code to prevent! the user from repeatedly writing a static field. integer, intent(in) ::unit, nwords type(fieldtype), intent(in) ::field MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in), optional ::time_level type(domain2D), intent(in), optional ::domain integer, intent(in), optional ::position, tile_count integer, intent(in), optional ::start_in(:), axsiz_in(:) integer, dimension(size(field%axes(:))) ::start, axsiz integer ::tlevel !, subdomain(4) integer ::i, error, is, ie, js, je, isg, ieg, jsg, jeg type(domain2d), pointer ::io_domain=> id
Definition: mpp_read_2Ddecomp.h:167

azimuth_emissivity_f6_module::three
real(fp), parameter three
Definition: Azimuth_Emissivity_F6_Module.f90:49

accoeff_define::one
real(double), parameter one
Definition: ACCoeff_Define.f90:69

type_distribution::received
logical function received(this, seqno)
Definition: m_distribution.f90:72

interpolator_mod::len
integer len
Definition: interpolator.F90:321

size
************************************************************************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 READ_RECORD_CORE_(unit, field, nwords, data, start, axsiz) integer, intent(in) ::unit type(fieldtype), intent(in) ::field integer, intent(in) ::nwords MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in) ::start(:), axsiz(:) integer(SHORT_KIND) ::i2vals(nwords)!rab used in conjunction with transfer intrinsic to determine size of a variable integer(KIND=1) ::one_byte(8) integer ::word_sz!#ifdef __sgi integer(INT_KIND) ::ivals(nwords) real(FLOAT_KIND) ::rvals(nwords)!#else! integer ::ivals(nwords)! real ::rvals(nwords)!#endif real(DOUBLE_KIND) ::r8vals(nwords) pointer(ptr1, i2vals) pointer(ptr2, ivals) pointer(ptr3, rvals) pointer(ptr4, r8vals) if(mpp_io_stack_size< nwords) call mpp_io_set_stack_size(nwords) call mpp_error(FATAL, 'MPP_READ currently requires use_netCDF option') end subroutine READ_RECORD_CORE_ subroutine READ_RECORD_(unit, field, nwords, data, time_level, domain, position, tile_count, start_in, axsiz_in)!routine that is finally called by all mpp_read routines to perform the read!a non-netCDF record contains:! field ID! a set of 4 coordinates(is:ie, js:je) giving the data subdomain! a timelevel and a timestamp(=NULLTIME if field is static)! 3D real data(stored as 1D)!if you are using direct access I/O, the RECL argument to OPEN must be large enough for the above!in a global direct access file, record position on PE is given by %record.!Treatment of timestamp:! We assume that static fields have been passed without a timestamp.! Here that is converted into a timestamp of NULLTIME.! For non-netCDF fields, field is treated no differently, but is written! with a timestamp of NULLTIME. There is no check in the code to prevent! the user from repeatedly writing a static field. integer, intent(in) ::unit, nwords type(fieldtype), intent(in) ::field MPP_TYPE_, intent(inout) ::data(nwords) integer, intent(in), optional ::time_level type(domain2D), intent(in), optional ::domain integer, intent(in), optional ::position, tile_count integer, intent(in), optional ::start_in(:), axsiz_in(:) integer, dimension(size(field%axes(:))) ::start, axsiz integer ::tlevel !, subdomain(4) integer ::i, error, is, ie, js, je, isg, ieg, jsg, jeg type(domain2d), pointer ::io_domain=> tlevel if(PRESENT(start_in) .AND. PRESENT(axsiz_in)) then if(size(start(! the data domain and compute domain must refer to the subdomain being passed ! In this ! since that attempts to gather all data on PE size(field%axes(:)) axsiz(i)

a
************************************************************************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:! ***********************************************************************!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! MPP_TRANSMIT !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine MPP_TRANSMIT_(put_data, put_len, to_pe, get_data, get_len, from_pe, block, tag, recv_request, send_request)!a message-passing routine intended to be reminiscent equally of both MPI and SHMEM!put_data and get_data are contiguous MPP_TYPE_ arrays!at each call, your put_data array is put to to_pe 's get_data! your get_data array is got from from_pe 's put_data!i.e we assume that typically(e.g updating halo regions) each PE performs a put _and_ a get!special PE designations:! NULL_PE:to disable a put or a get(e.g at boundaries)! ANY_PE:if remote PE for the put or get is to be unspecific! ALL_PES:broadcast and collect operations(collect not yet implemented)!ideally we would not pass length, but this f77-style call performs better(arrays passed by address, not descriptor)!further, this permits< length > contiguous words from an array of any rank to be passed(avoiding f90 rank conformance check)!caller is responsible for completion checks(mpp_sync_self) before and after integer, intent(in) ::put_len, to_pe, get_len, from_pe MPP_TYPE_, intent(in) ::put_data(*) MPP_TYPE_, intent(out) ::get_data(*) logical, intent(in), optional ::block integer, intent(in), optional ::tag integer, intent(out), optional ::recv_request, send_request logical ::block_comm integer ::i MPP_TYPE_, allocatable, save ::local_data(:) !local copy used by non-parallel code(no SHMEM or MPI) integer ::comm_tag integer ::rsize if(.NOT.module_is_initialized) call mpp_error(FATAL, 'MPP_TRANSMIT:You must first call mpp_init.') if(to_pe.EQ.NULL_PE .AND. from_pe.EQ.NULL_PE) return block_comm=.true. if(PRESENT(block)) block_comm=block if(debug) then call SYSTEM_CLOCK(tick) write(stdout_unit,'(a, i18, a, i6, a, 2i6, 2i8)')&'T=', tick, ' PE=', pe, ' MPP_TRANSMIT begin:to_pe, from_pe, put_len, get_len=', to_pe, from_pe, put_len, get_len end if comm_tag=DEFAULT_TAG if(present(tag)) comm_tag=tag!do put first and then get if(to_pe.GE.0 .AND. to_pe.LT.npes) then!use non-blocking sends if(debug .and.(current_clock.NE.0)) call SYSTEM_CLOCK(start_tick)!z1l:truly non-blocking send.! if(request(to_pe).NE.MPI_REQUEST_NULL) then !only one message from pe-> to_pe in queue *PE waiting for to_pe ! call error else get_len so only do gets but you cannot have a pure get with MPI call a get means do a wait to ensure put on remote PE is complete error call increase mpp_nml request_multiply call MPP_TRANSMIT get_len end if return end subroutine MPP_TRANSMIT_ ! MPP_BROADCAST ! subroutine but that doesn t allow !broadcast to a subset of PEs This version and mpp_transmit will remain !backward compatible intent(inout) a
Definition: mpp_transmit_mpi.h:178

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)

mpp_parameter_mod::fatal
integer, parameter, public fatal
Definition: mpp_parameter.F90:68

external_ic_nlm_mod::tile
integer, save tile
Definition: external_ic_nlm.F90:71

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: drifters_compute_k.h:5

INT_KIND
#define INT_KIND

read_climate_nudge_data_nlm_mod::file_index
integer, dimension(:), allocatable file_index
Definition: read_climate_nudge_data_nlm.F90:56

TLM_vs_NLM.tmp
tmp
Definition: TLM_vs_NLM.py:29

c2f.module
module
Definition: c2f.py:21