The subroutine MAPL_CFIOClose
only closes the file in MAPL CFIO Object
(not a full destroy).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MAPL_CFIO), | intent(inout) | :: | MCFIO | |||
character(len=*), | intent(in), | optional | :: | filename | ||
integer, | intent(out), | optional | :: | RC |
subroutine MAPL_CFIOClose( MCFIO, filename, RC ) ! type(MAPL_CFIO), intent(INOUT) :: MCFIO character(len=*), optional, intent(IN ) :: filename integer, optional, intent( OUT) :: RC ! integer :: status if (MCFIO%myPE == mCFIO%RootRank) then call ESMF_CFIOFileClose(MCFIO%CFIO,rc=status) _VERIFY(STATUS) if (present(filename)) then close(99) open (99,file=trim(filename)//".done",form='formatted') close(99) end if end if _RETURN(ESMF_SUCCESS) end subroutine MAPL_CFIOClose