err Function

public function err(outstring, iret, ec)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: outstring
integer :: iret
integer :: ec

Return Value integer


Called by

proc~~err~~CalledByGraph proc~err ESMF_CFIOUtilMod::err proc~cfio_attinquire ESMF_CFIOUtilMod::CFIO_AttInquire proc~cfio_attinquire->proc~err proc~cfio_close ESMF_CFIOUtilMod::CFIO_Close proc~cfio_close->proc~err proc~cfio_diminquire ESMF_CFIOUtilMod::CFIO_DimInquire proc~cfio_diminquire->proc~err proc~cfio_getattnames ESMF_CFIOUtilMod::CFIO_GetAttNames proc~cfio_getattnames->proc~err proc~cfio_getcharatt ESMF_CFIOUtilMod::CFIO_GetCharAtt proc~cfio_getcharatt->proc~err proc~cfio_getintatt ESMF_CFIOUtilMod::CFIO_GetIntAtt proc~cfio_getintatt->proc~err proc~cfio_getmissing ESMF_CFIOUtilMod::CFIO_GetMissing proc~cfio_getmissing->proc~err proc~cfio_getrealatt ESMF_CFIOUtilMod::CFIO_GetRealAtt proc~cfio_getrealatt->proc~err proc~cfio_getvar ESMF_CFIOUtilMod::CFIO_GetVar proc~cfio_getvar->proc~err proc~cfio_open ESMF_CFIOUtilMod::CFIO_Open proc~cfio_open->proc~err proc~cfio_putcharatt ESMF_CFIOUtilMod::CFIO_PutCharAtt proc~cfio_putcharatt->proc~err proc~cfio_putintatt ESMF_CFIOUtilMod::CFIO_PutIntAtt proc~cfio_putintatt->proc~err proc~cfio_putrealatt ESMF_CFIOUtilMod::CFIO_PutRealAtt proc~cfio_putrealatt->proc~err proc~cfio_putvar ESMF_CFIOUtilMod::CFIO_PutVar proc~cfio_putvar->proc~err proc~cfio_sgetvar ESMF_CFIOUtilMod::CFIO_SGetVar proc~cfio_sgetvar->proc~err proc~cfio_sputvar ESMF_CFIOUtilMod::CFIO_SPutVar proc~cfio_sputvar->proc~err proc~esmf_cfioeosfilecreate ESMF_CFIOEosMod::ESMF_CFIOEosFileCreate proc~esmf_cfioeosfilecreate->proc~err proc~esmf_cfioget ESMF_CFIOFileMod::ESMF_CFIOGet proc~esmf_cfioget->proc~err proc~esmf_cfiosdffilecreate ESMF_CFIOSdfMod::ESMF_CFIOSdfFileCreate proc~esmf_cfiosdffilecreate->proc~err proc~esmf_cfiosdffileopen ESMF_CFIOSdfMod::ESMF_CFIOSdfFileOpen proc~esmf_cfiosdffileopen->proc~err proc~esmf_cfioset ESMF_CFIOFileMod::ESMF_CFIOSet proc~esmf_cfioset->proc~err proc~esmf_cfiovarinfoget ESMF_CFIOVarInfoMod::ESMF_CFIOVarInfoGet proc~esmf_cfiovarinfoget->proc~err proc~esmf_cfiovarinfoset ESMF_CFIOVarInfoMod::ESMF_CFIOVarInfoSet proc~esmf_cfiovarinfoset->proc~err proc~getbegdatetime ESMF_CFIOUtilMod::GetBegDateTime proc~getbegdatetime->proc~err proc~getdatetimevec ESMF_CFIOUtilMod::GetDateTimeVec proc~getdatetimevec->proc~err

Source Code

      integer function err ( outstring, iret, ec )
      character(len=*) outstring
      integer ec, iret

      if (iret .EQ. 0) then
        err = iret
      else
        print *,"CFIO_",outstring
        iret = ec
        err = ec
      endif

      return
      end function err