MAPL_CFIOClose Subroutine

public subroutine MAPL_CFIOClose(MCFIO, filename, RC)

The subroutine MAPL_CFIOClose only closes the file in MAPL CFIO Object (not a full destroy).

Arguments

Type IntentOptional Attributes Name
type(MAPL_CFIO), intent(inout) :: MCFIO
character(len=*), intent(in), optional :: filename
integer, intent(out), optional :: RC

Calls

proc~~mapl_cfioclose~~CallsGraph proc~mapl_cfioclose MAPL_CFIOClose proc~esmf_cfiofileclose ESMF_CFIOFileClose proc~mapl_cfioclose->proc~esmf_cfiofileclose proc~mapl_return MAPL_Return proc~mapl_cfioclose->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_cfioclose->proc~mapl_verify proc~esmf_cfioget ESMF_CFIOGet proc~esmf_cfiofileclose->proc~esmf_cfioget proc~esmf_cfiosdffileclose ESMF_CFIOSdfFileClose proc~esmf_cfiofileclose->proc~esmf_cfiosdffileclose at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~err err proc~esmf_cfioget->proc~err proc~cfio_close CFIO_Close proc~esmf_cfiosdffileclose->proc~cfio_close proc~cfio_close->proc~err ncclos ncclos proc~cfio_close->ncclos

Source Code

  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