mpp_read_distributed_ascii.h File Reference

Go to the source code of this file.

Functions
************************************************************************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_READ_DISTRIBUTED_ASCII_1D_(unit, fmt, ssize, data, iostat) integer, intent(in) ::unit character(*), intent(in) ::fmt integer, intent(in) ::ssize MPP_TYPE_, dimension(:), intent(inout) ::data integer, intent(out) ::iostat integer, allocatable ::pelist(:) logical ::is_ioroot=.false. if(.not.module_is_initialized) call mpp_error(FATAL, 'MPP_READ_DISTRIBUTED_ASCII_1D_:module not initialized') iostat=0 call mpp_dist_io_pelist(ssize, pelist) ! ALLOCATE and create pelist if size of group >	if (.not. ALLOCATED(pelist)) &call mpp_error(FATAL

Variables
************************************************************************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

Function Documentation

if()

*********************************************************************** * 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_READ_DISTRIBUTED_ASCII_1D_ (unit,fmt,ssize,data,iostat) integer, intent(in) :: unit character(*), intent(in) :: fmt integer, intent(in) :: ssize MPP_TYPE_, dimension(:), intent(inout) :: data integer, intent(out) :: iostat integer, allocatable :: pelist(:) logical :: is_ioroot=.false. if(.not.module_is_initialized) call mpp_error(FATAL,'MPP_READ_DISTRIBUTED_ASCII_1D_: module not initialized') iostat = 0 call mpp_dist_io_pelist(ssize,pelist) ! ALLOCATE and create pelist if size of group > if

(

.not.

ALLOCATEDpelist

)

&

Variable Documentation

not

*********************************************************************** * 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 4 of file mpp_read_distributed_ascii.h.