Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Xuesong (Steve)
2018-08-28 00:38:52 -04:00
committed by GitHub
parent cffebb9cd6
commit 36f2f4667a
24 changed files with 8404 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
code/NcdfUtil/m_netcdf_io_open.F90 Normal file
View File

@ -0,0 +1,147 @@
! $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