The subroutine MAPL_CFIOSet
sets the member variables of a MAPL CFIO Object.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MAPL_CFIO), | intent(inout) | :: | MCFIO | |||
integer, | intent(in), | optional | :: | Root | ||
integer, | intent(in), | optional | :: | Psize | ||
character(len=*), | intent(in), | optional | :: | fName | ||
integer, | intent(in), | optional | :: | Krank(:) | ||
integer, | intent(in), | optional | :: | IOWorker | ||
integer, | intent(in), | optional | :: | globalComm | ||
logical, | intent(in), | optional | :: | newFormat | ||
integer, | intent(in), | optional | :: | collectionID | ||
integer, | intent(in), | optional | :: | fraction | ||
integer, | intent(out), | optional | :: | RC |
subroutine MAPL_CFIOSet( MCFIO, Root, Psize, fName, Krank, IOWorker, globalComm, newFormat, collectionID, fraction, RC ) ! type(MAPL_CFIO), intent(INOUT) :: MCFIO integer, optional, intent(IN ) :: Root, Psize character(len=*), optional, intent(IN ) :: fName integer, optional, intent(IN ) :: Krank(:) integer, optional, intent(IN ) :: IOWorker integer, optional, intent(IN ) :: globalComm logical, optional, intent(IN ) :: newFormat integer, optional, intent(IN ) :: collectionID integer, optional, intent(IN ) :: fraction integer, optional, intent( OUT) :: RC ! if(present(Root)) then mCFIO%Root = Root endif if(present(Psize)) then mCFIO%Partsize = Psize endif if(present(fName)) then mCFIO%fName = fName endif if(present(Krank)) then mCFIO%Krank = Krank endif if(present(IOWorker)) then mCFIO%AsyncWorkRank = IOWorker end if if(present(globalComm)) then mCFIO%globalComm = globalComm end if if(present(newFormat)) then mCFIO%newFormat = newFormat end if if(present(collectionID)) then mCFIO%collection_ID = collectionID end if if(present(fraction)) then mCFIO%fraction = fraction end if _RETURN(ESMF_SUCCESS) end subroutine MAPL_CFIOSet