get_dimlen_netcdf.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
                   SUBROUTINE get_dimlen_netcdf(HFILE_NAME,HDIM_NAME,KDIM,KDIM_ID)
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
USE modi_handle_err
IMPLICIT NONE
include "netcdf.inc"
 CHARACTER(LEN=*), INTENT(IN):: hfile_name
 CHARACTER(LEN=*), INTENT(IN):: hdim_name
INTEGER,          INTENT(OUT) :: kdim
INTEGER, OPTIONAL,INTENT(OUT) :: kdim_id

!local variables
INTEGER ::  jret,ifile_id,idim_id
INTEGER,DIMENSION(2) :: iret
REAL(KIND=JPRB) :: zhook_handle
!----------------------------------
! 1.a Open file
IF (lhook) CALL dr_hook('GET_DIMLEN_NETCDF',0,zhook_handle)
jret=nf_open(hfile_name,nf_nowrite,ifile_id)
!
! 1.b get dim info
iret(1)=nf_inq_dimid(ifile_id,hdim_name,idim_id)
IF (present(kdim_id)) THEN
        kdim_id=idim_id
ENDIF
iret(2)=nf_inq_dimlen(ifile_id,idim_id,kdim)

! 1.c close file
jret=nf_close(ifile_id)
!
! 2. check for error
DO jret=1,2
   IF (iret(jret).NE.nf_noerr) CALL handle_err(iret(jret),'GET_DIMLEN_NETCDF')
ENDDO
IF (lhook) CALL dr_hook('GET_DIMLEN_NETCDF',1,zhook_handle)
!
END SUBROUTINE get_dimlen_netcdf