361 lines
7.6 KiB
Fortran
361 lines
7.6 KiB
Fortran
! $Id: m_netcdf_io_define.F90,v 1.1 2009/08/04 14:52:04 bmy Exp $
|
|
!-------------------------------------------------------------------------
|
|
! NASA/GFSC, SIVO, Code 610.3
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !MODULE: m_netcdf_io_define
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
module m_netcdf_io_define
|
|
!
|
|
implicit none
|
|
!
|
|
! !PUBLIC MEMBER FUNCTIONS:
|
|
!
|
|
public NcDef_dimension
|
|
public NcDef_variable
|
|
public NcDef_var_attributes
|
|
public NcDef_glob_attributes
|
|
public NcSetFill
|
|
public NcEnd_def
|
|
!
|
|
! !DESCRIPTION: Provides netCDF utility routines to define dimensions,
|
|
! variables and attributes.
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
|
|
CONTAINS
|
|
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !IROUTINE: NcDef_dimension
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
subroutine NcDef_dimension(ncid,name,len,id)
|
|
!
|
|
! !USES:
|
|
!
|
|
use m_do_err_out
|
|
!
|
|
implicit none
|
|
!
|
|
include 'netcdf.inc'
|
|
!
|
|
! !INPUT PARAMETERS:
|
|
!! ncid : netCDF file id
|
|
!! name : dimension name
|
|
!! len : dimension number
|
|
character (len=*), intent(in) :: name
|
|
integer, intent(in) :: ncid, len
|
|
!
|
|
! !OUTPUT PARAMETERS:
|
|
!! id : dimension id
|
|
integer, intent(out) :: id
|
|
!
|
|
! !DESCRIPTION: Defines dimension.
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou and Maharaj Bhat
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
!BOC
|
|
!
|
|
! !LOCAL VARIABLES:
|
|
character (len=128) :: err_msg
|
|
integer :: ierr
|
|
!
|
|
ierr = Nf_Def_Dim (ncid, name, len, id)
|
|
|
|
if (ierr.ne.NF_NOERR) then
|
|
err_msg = 'Nf_Def_Dim: can not define dimension : '// Trim (name)
|
|
call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
|
|
end if
|
|
|
|
return
|
|
end subroutine NcDef_dimension
|
|
!EOC
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !IROUTINE: NcDef_variable
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
subroutine NcDef_variable(ncid,name,type,ndims,dims,var_id)
|
|
!
|
|
! !USES:
|
|
!
|
|
use m_do_err_out
|
|
!
|
|
implicit none
|
|
!
|
|
include 'netcdf.inc'
|
|
!
|
|
! !INPUT PARAMETERS:
|
|
!
|
|
!! ncid : netCDF file id
|
|
!! name : name of the variable
|
|
!! type : type of the variable
|
|
!! (NF_FLOAT, NF_CHAR, NF_INT, NF_DOUBLE, NF_BYTE, NF_SHORT)
|
|
!! ndims : number of dimensions of the variable
|
|
!! dims : netCDF dimension id of the variable
|
|
!! varid : netCDF varid id
|
|
|
|
character (len=*), intent(in) :: name
|
|
integer, intent(in) :: ncid, ndims, var_id
|
|
integer, intent(in) :: dims(ndims)
|
|
integer, intent(in) :: type
|
|
!
|
|
! !DESCRIPTION: Defines a netCDF variable.
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou and Maharaj Bhat
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
!BOC
|
|
!
|
|
! !LOCAL VARIABLES:
|
|
character (len=128) :: err_msg
|
|
integer :: ierr
|
|
!
|
|
ierr = Nf_Def_Var (ncid, name, type, ndims, dims, var_id)
|
|
|
|
if (ierr.ne.NF_NOERR) then
|
|
err_msg = 'Nf_Def_Var: can not define variable : '// Trim (name)
|
|
call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
|
|
end if
|
|
|
|
return
|
|
|
|
end subroutine NcDef_variable
|
|
!EOC
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !IROUTINE: NcDef_var_attributes
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
subroutine NcDef_var_attributes(ncid,var_id,att_name,att_val)
|
|
!
|
|
! !USES:
|
|
!
|
|
use m_do_err_out
|
|
!
|
|
implicit none
|
|
include 'netcdf.inc'
|
|
!
|
|
! !INPUT PARAMETERS:
|
|
!! ncid : netCDF file id
|
|
!! var_id : netCDF variable id
|
|
!! att_name: attribute name
|
|
!! att_val : attribute value
|
|
character (len=*), intent(in) :: att_name, att_val
|
|
integer, intent(in) :: ncid, var_id
|
|
!
|
|
! !DESCRIPTION: Defines netCDF attributes.
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou and Maharaj Bhat
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
!BOC
|
|
!
|
|
! !LOCAL VARIABLES:
|
|
character (len=128) :: err_msg
|
|
integer :: mylen, ierr
|
|
!
|
|
mylen = len(att_val)
|
|
ierr = Nf_Put_Att_Text (ncid, var_id, att_name, mylen, att_val)
|
|
|
|
if (ierr.ne.NF_NOERR) then
|
|
err_msg = 'Nf_Put_Att_Text: can not define attribute : ' // Trim (att_name)
|
|
call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
|
|
end if
|
|
|
|
return
|
|
|
|
end subroutine NcDef_var_attributes
|
|
!EOC
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !IROUTINE: NcDef_glob_attributes
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
subroutine NcDef_glob_attributes(ncid,att_name,att_val)
|
|
!
|
|
! !USES:
|
|
!
|
|
use m_do_err_out
|
|
!
|
|
implicit none
|
|
!
|
|
include 'netcdf.inc'
|
|
!
|
|
! !INPUT PARAMETERS:
|
|
!! ncid : netCDF file id
|
|
!! att_name: attribute name
|
|
!! att_val : attribute value
|
|
!
|
|
character (len=*), intent(in) :: att_name, att_val
|
|
integer, intent(in) :: ncid
|
|
!
|
|
! !DESCRIPTION: Defines global attributes
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
!BOC
|
|
!
|
|
! !LOCAL VARIABLES:
|
|
character (len=128) :: err_msg
|
|
integer :: mylen, ierr
|
|
!
|
|
mylen = len(att_val)
|
|
ierr = Nf_Put_Att_Text (ncid, NF_GLOBAL, att_name, mylen, att_val)
|
|
|
|
if (ierr.ne.NF_NOERR) then
|
|
err_msg = 'Nf_Put_Att_Text: can not define attribute : ' // Trim (att_name)
|
|
call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
|
|
end if
|
|
|
|
return
|
|
|
|
end subroutine NcDef_glob_attributes
|
|
!EOC
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !IROUTINE: NcSetFill
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
subroutine NcSetFill(ncid,ifill,omode)
|
|
!
|
|
! !USES:
|
|
!
|
|
use m_do_err_out
|
|
!
|
|
implicit none
|
|
!
|
|
include 'netcdf.inc'
|
|
!
|
|
! !INPUT PARAMETERS:
|
|
!
|
|
integer, intent(in) :: ncid, ifill,omode
|
|
!
|
|
! !DESCRIPTION: Sets fill method.
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
!BOC
|
|
!
|
|
! !LOCAL VARIABLES:
|
|
character (len=128) :: err_msg
|
|
integer :: mylen, ierr
|
|
!
|
|
ierr = Nf_Set_Fill (ncid, NF_NOFILL, omode)
|
|
|
|
if (ierr.ne.NF_NOERR) then
|
|
err_msg = 'Nf_Put_Att_Text: Error in omode '
|
|
call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
|
|
end if
|
|
|
|
return
|
|
|
|
end subroutine NcSetFill
|
|
!EOC
|
|
!-------------------------------------------------------------------------
|
|
!BOP
|
|
!
|
|
! !IROUTINE: NcEnd_def
|
|
!
|
|
! !INTERFACE:
|
|
!
|
|
subroutine NcEnd_def(ncid)
|
|
!
|
|
! !USES:
|
|
!
|
|
use m_do_err_out
|
|
!
|
|
implicit none
|
|
!
|
|
include 'netcdf.inc'
|
|
!
|
|
! !INPUT PARAMETERS:
|
|
!
|
|
integer, intent(in) :: ncid
|
|
!
|
|
! !DESCRIPTION: Ends definitions of variables and their attributes.
|
|
!\\
|
|
!\\
|
|
! !AUTHOR:
|
|
! Jules Kouatchou
|
|
!
|
|
! !REVISION HISTORY:
|
|
! Initial code.
|
|
!
|
|
!EOP
|
|
!-------------------------------------------------------------------------
|
|
!BOC
|
|
!
|
|
! !LOCAL VARIABLES:
|
|
character (len=128) :: err_msg
|
|
integer :: ierr
|
|
!
|
|
ierr = Nf_Enddef (ncid)
|
|
|
|
if (ierr.ne.NF_NOERR) then
|
|
err_msg = 'Nf_Put_Att_Text: Error in closing global attribute'
|
|
call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)
|
|
end if
|
|
|
|
return
|
|
|
|
end subroutine NcEnd_def
|
|
!EOC
|
|
!------------------------------------------------------------------------
|
|
end module m_netcdf_io_define
|