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_CFIOOpenWrite proc~esmf_cfiofileopen ESMF_CFIOFileOpen proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen proc~mapl_return MAPL_Return proc~mapl_cfioopenwrite->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_cfioopenwrite->proc~mapl_verify proc~esmf_cfioget ESMF_CFIOGet proc~esmf_cfiofileopen->proc~esmf_cfioget proc~esmf_cfiosdffileopen ESMF_CFIOSdfFileOpen proc~esmf_cfiofileopen->proc~esmf_cfiosdffileopen proc~esmf_cfioset 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_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~err 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 CFIO_AttInquire proc~esmf_cfiosdffileopen->proc~cfio_attinquire proc~cfio_diminquire CFIO_DimInquire proc~esmf_cfiosdffileopen->proc~cfio_diminquire proc~cfio_getattnames CFIO_GetAttNames proc~esmf_cfiosdffileopen->proc~cfio_getattnames proc~cfio_getcharatt CFIO_GetCharAtt proc~esmf_cfiosdffileopen->proc~cfio_getcharatt proc~cfio_getintatt CFIO_GetIntAtt proc~esmf_cfiosdffileopen->proc~cfio_getintatt proc~cfio_getrealatt CFIO_GetRealAtt proc~esmf_cfiosdffileopen->proc~cfio_getrealatt proc~cfio_open CFIO_Open proc~esmf_cfiosdffileopen->proc~cfio_open proc~esmf_cfiosdffileopen->proc~err proc~esmf_cfiovarinfocreate ESMF_CFIOVarInfoCreate proc~esmf_cfiosdffileopen->proc~esmf_cfiovarinfocreate proc~getbegdatetime GetBegDateTime proc~esmf_cfiosdffileopen->proc~getbegdatetime proc~identifydim IdentifyDim proc~esmf_cfiosdffileopen->proc~identifydim proc~strtemplate_ strTemplate_ proc~esmf_cfiosdffileopen->proc~strtemplate_ proc~addlist addList proc~esmf_cfioset->proc~addlist proc~esmf_cfioset->proc~err proc~strtoint 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