! $Id: m_netcdf_io_open.F90,v 1.1 2009/08/04 14:52:04 bmy Exp $
!-------------------------------------------------------------------------
!  NASA/GFSC, SIVO, Code 610.3
!-------------------------------------------------------------------------
!BOP
!
! !MODULE:  m_netcdf_io_open
!
! !INTERFACE:
!
      module m_netcdf_io_open
!
      implicit none
!
! !PUBLIC MEMBER FUNCTIONS:
!
      public  Ncop_Rd
      public  Ncop_Wr
!
! !DESCRIPTION: Routines to open a netCDF file.
!\\
!\\
! !AUTHOR:
!  Jules Kouatchou
!
! !REVISION HISTORY:
!  Initial code.
!
!EOP
!-------------------------------------------------------------------------

CONTAINS

!-------------------------------------------------------------------------
!BOP
!
! !IROUTINE: Ncop_Rd
!
! !INTERFACE:
!
      subroutine Ncop_Rd (ncid, filname)
!
! !USES:
!
      use m_do_err_out
!      USE NETCDF
!
      implicit none
!
      include "netcdf.inc"

!
! !INPUT PARAMETERS:
!!    filname : name of netCDF file to open for reading
      character (len=*), intent (in)    :: filname
!
! !OUTPUT PARAMETERS:
!!    ncid    : opened netCDF file id
      integer          , intent (out)   :: ncid
!
! !DESCRIPTION: Opens a netCDF file for reading and does some error checking.
!\\
!\\
! !AUTHOR:
!  John Tannahill (LLNL) and Jules Kouatchou
!
! !REVISION HISTORY:
!  Initial code.
!
!EOP
!-------------------------------------------------------------------------
!BOC
!
! !LOCAL VARIABLES:
      character (len=128) :: err_msg
      integer             :: ierr
!
      ierr = Nf_Open (trim(filname), NF_NOWRITE, ncid)

      if (ierr /= NF_NOERR) then
	err_msg = 'In Ncop_Rd, cannot open:  ' // Trim (filname)
	PRINT *,"NetCDF Error Message: "
	PRINT *, NF_STRERROR(ierr)
        call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
      end if

      return

      end subroutine Ncop_Rd
!EOC
!-------------------------------------------------------------------------
!BOP
!
! !IROUTINE: Ncop_Wr
!
! !INTERFACE:
!
      subroutine Ncop_Wr (ncid, filname)
!
! !USES:
!
      use m_do_err_out
!
      implicit none
!
      include "netcdf.inc"
!
! !INPUT PARAMETERS:
!!    filname : name of netCDF file to open for reading
      character (len=*), intent (in)    :: filname
!
! !OUTPUT PARAMETERS:
!!    ncid    : opened netCDF file id
      integer          , intent (out)   :: ncid
!
! !DESCRIPTION: Opens a netCDF file for reading/writing and does some
!  error checking.
!\\
!\\
! !AUTHOR:
!  John Tannahill (LLNL) and Jules Kouatchou
!
! !REVISION HISTORY:
!  Initial code.
!
!EOP
!-------------------------------------------------------------------------
!BOC
!
! !LOCAL VARIABLES:
      character (len=128) :: err_msg
      integer             :: ierr
!
      ierr = Nf_Open (filname, NF_WRITE, ncid)

      if (ierr /= NF_NOERR) then
        err_msg = 'In Ncop_Rd, cannot open:  ' // Trim (filname)
        call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
      end if

      return

      end subroutine Ncop_Wr
!EOC
!------------------------------------------------------------------------
end module m_netcdf_io_open