MAPL_CFIOOpenWrite Subroutine

public subroutine MAPL_CFIOOpenWrite(MCFIO, RC)

Arguments

Type IntentOptional Attributes Name
type(MAPL_CFIO), intent(inout) :: MCFIO
integer, intent(out), optional :: RC

Calls

proc~~mapl_cfioopenwrite~~CallsGraph proc~mapl_cfioopenwrite MAPL_CFIOMod::MAPL_CFIOOpenWrite proc~esmf_cfiofileopen ESMF_CFIOMod::ESMF_CFIOFileOpen proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~mapl_cfioopenwrite->proc~mapl_return proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~mapl_cfioopenwrite->proc~mapl_verify proc~esmf_cfioget ESMF_CFIOFileMod::ESMF_CFIOGet proc~esmf_cfiofileopen->proc~esmf_cfioget proc~esmf_cfiosdffileopen ESMF_CFIOSdfMod::ESMF_CFIOSdfFileOpen proc~esmf_cfiofileopen->proc~esmf_cfiosdffileopen proc~esmf_cfioset ESMF_CFIOFileMod::ESMF_CFIOSet proc~esmf_cfiofileopen->proc~esmf_cfioset at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~err ESMF_CFIOUtilMod::err proc~esmf_cfioget->proc~err nf90_get_att nf90_get_att proc~esmf_cfiosdffileopen->nf90_get_att nf90_get_var nf90_get_var proc~esmf_cfiosdffileopen->nf90_get_var nf90_inq_attname nf90_inq_attname proc~esmf_cfiosdffileopen->nf90_inq_attname nf90_inq_varid nf90_inq_varid proc~esmf_cfiosdffileopen->nf90_inq_varid nf90_inquire nf90_inquire proc~esmf_cfiosdffileopen->nf90_inquire nf90_inquire_attribute nf90_inquire_attribute proc~esmf_cfiosdffileopen->nf90_inquire_attribute nf90_inquire_dimension nf90_inquire_dimension proc~esmf_cfiosdffileopen->nf90_inquire_dimension nf90_inquire_variable nf90_inquire_variable proc~esmf_cfiosdffileopen->nf90_inquire_variable proc~cfio_attinquire ESMF_CFIOUtilMod::CFIO_AttInquire proc~esmf_cfiosdffileopen->proc~cfio_attinquire proc~cfio_diminquire ESMF_CFIOUtilMod::CFIO_DimInquire proc~esmf_cfiosdffileopen->proc~cfio_diminquire proc~cfio_getattnames ESMF_CFIOUtilMod::CFIO_GetAttNames proc~esmf_cfiosdffileopen->proc~cfio_getattnames proc~cfio_getcharatt ESMF_CFIOUtilMod::CFIO_GetCharAtt proc~esmf_cfiosdffileopen->proc~cfio_getcharatt proc~cfio_getintatt ESMF_CFIOUtilMod::CFIO_GetIntAtt proc~esmf_cfiosdffileopen->proc~cfio_getintatt proc~cfio_getrealatt ESMF_CFIOUtilMod::CFIO_GetRealAtt proc~esmf_cfiosdffileopen->proc~cfio_getrealatt proc~cfio_open ESMF_CFIOUtilMod::CFIO_Open proc~esmf_cfiosdffileopen->proc~cfio_open proc~esmf_cfiosdffileopen->proc~err proc~esmf_cfiovarinfocreate ESMF_CFIOVarInfoMod::ESMF_CFIOVarInfoCreate proc~esmf_cfiosdffileopen->proc~esmf_cfiovarinfocreate proc~getbegdatetime ESMF_CFIOUtilMod::GetBegDateTime proc~esmf_cfiosdffileopen->proc~getbegdatetime proc~identifydim ESMF_CFIOUtilMod::IdentifyDim proc~esmf_cfiosdffileopen->proc~identifydim proc~strtemplate_ ESMF_CFIOUtilMod::strTemplate_ proc~esmf_cfiosdffileopen->proc~strtemplate_ proc~addlist ESMF_CFIOUtilMod::addList proc~esmf_cfioset->proc~addlist proc~esmf_cfioset->proc~err proc~strtoint ESMF_CFIOUtilMod::strToInt proc~esmf_cfioset->proc~strtoint

Source Code

  subroutine MAPL_CFIOOpenWrite ( MCFIO, RC )

    type(MAPL_CFIO),           intent(INOUT) :: MCFIO
    integer,         optional, intent(  OUT) :: RC

    integer                        :: STATUS


! Open the file for writing only at the root process
!---------------------------------------------------

    AMROOT: if (mCFIO%MYPE==mCFIO%RootRank) then
       call ESMF_CFIOFileOpen(MCFIO%CFIO, fmode=0, RC=STATUS)
       _VERIFY(STATUS)
!      print *, ' Opened CFIO File: ', trim(mCFIO%fName)
    end if AMROOT

    _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_CFIOOpenWrite