CFIO_Close Subroutine

public subroutine CFIO_Close(fid, rc)

CFIO_Close – Closes file

This routine is used to close an open CFIO stream.

History

  • 1997.10.13 da Silva/Lucchesi Initial interface design.
  • 1998.03.30 Lucchesi Documentation expanded. Clean-up of code. Added rc.

Arguments

Type IntentOptional Attributes Name
integer :: fid

File handle
integer :: rc

Error return code: rc = 0 all is well

NetCDF Errors

rc = -54 error from ncclos (file close)

Calls

proc~~cfio_close~~CallsGraph proc~cfio_close CFIO_Close ncclos ncclos proc~cfio_close->ncclos proc~err err proc~cfio_close->proc~err

Called by

proc~~cfio_close~~CalledByGraph proc~cfio_close CFIO_Close proc~esmf_cfiodestroy ESMF_CFIODestroy proc~esmf_cfiodestroy->proc~cfio_close proc~esmf_cfiosdffileclose ESMF_CFIOSdfFileClose proc~esmf_cfiosdffileclose->proc~cfio_close none~find~31 CFIOCollection%find none~find~31->proc~esmf_cfiodestroy proc~esmf_cfiofileclose ESMF_CFIOFileClose proc~esmf_cfiofileclose->proc~esmf_cfiosdffileclose proc~mapl_cfiodestroy MAPL_CFIODestroy proc~mapl_cfiodestroy->proc~esmf_cfiodestroy proc~mapl_cfiodestroy->proc~esmf_cfiofileclose interface~esmf_iodestroy ESMF_ioDestroy interface~esmf_iodestroy->proc~mapl_cfiodestroy proc~mapl_cfioclose MAPL_CFIOClose proc~mapl_cfioclose->proc~esmf_cfiofileclose proc~mapl_cfiocreatefromfile MAPL_CFIOCreateFromFile proc~mapl_cfiocreatefromfile->none~find~31 proc~mapl_cfioreadbundleread MAPL_CFIOReadBundleRead proc~mapl_cfioreadbundleread->none~find~31 program~test test program~test->proc~esmf_cfiofileclose program~test~10 test program~test~10->proc~esmf_cfiofileclose program~test~11 test program~test~11->proc~esmf_cfiofileclose program~test~12 test program~test~12->proc~esmf_cfiofileclose program~test~13 test program~test~13->proc~esmf_cfiofileclose program~test~14 test program~test~14->proc~esmf_cfiofileclose program~test~2 test program~test~2->proc~esmf_cfiofileclose program~test~3 test program~test~3->proc~esmf_cfiofileclose program~test~4 test program~test~4->proc~esmf_cfiofileclose program~test~5 test program~test~5->proc~esmf_cfiofileclose program~test~6 test program~test~6->proc~esmf_cfiofileclose program~test~7 test program~test~7->proc~esmf_cfiofileclose program~test~9 test program~test~9->proc~esmf_cfiofileclose proc~test_main~3 test_main proc~test_main~3->interface~esmf_iodestroy

Source Code

      subroutine CFIO_Close ( fid, rc )
!
! !USES:
!
      Implicit NONE
!
! !INPUT PARAMETERS:
!
      integer        fid              !! File handle
!
! !OUTPUT PARAMETERS:
!
      integer     rc     !! Error return code:
                         !!   rc = 0    all is well
                         !!
                         !!  NetCDF Errors
                         !!  -------------
                         !!   rc = -54  error from ncclos (file close)
!
!-------------------------------------------------------------------------

      call ncclos (fid, rc)
      if (err("Close: error closing file",rc,-54) .NE. 0) return

      rc = 0
      return
      end subroutine CFIO_Close