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
USE netcdf
!
IMPLICIT NONE
 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=nf90_open(hfile_name,nf90_nowrite,ifile_id)
!
! 1.b get dim info
iret(1)=nf90_inq_dimid(ifile_id,hdim_name,idim_id)
IF (PRESENT(kdim_id)) kdim_id=idim_id
iret(2)=nf90_inquire_dimension(ifile_id,idim_id,len=kdim)

! 1.c close file
jret=nf90_close(ifile_id)
!
! 2. check for error
DO jret=1,2
   IF (iret(jret).NE.nf90_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