create_file.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 create_file(HFILE,KDIMS,HNAM_DIM,KFILE_ID,KDIM_ID)
!
USE modi_handle_err
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
USE netcdf
!
IMPLICIT NONE
!
!
! dummy arguments
!
 CHARACTER(LEN=*),            INTENT(IN)          :: HFILE
INTEGER, DIMENSION(:),        INTENT(IN)          :: KDIMS
 CHARACTER(LEN=*),DIMENSION(:),INTENT(IN)         :: HNAM_DIM
INTEGER,                      INTENT(INOUT)       :: KFILE_ID
INTEGER, DIMENSION(:),        INTENT(INOUT)       :: KDIM_ID
!
!* local variables
!
INTEGER :: IRET,ILEN,JNBDIM,INBDIM
 CHARACTER(LEN=50) :: YFILE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!----------------------------------------------------
!
! 1.0  create files
!-------------------
IF (lhook) CALL dr_hook('CREATE_FILE',0,zhook_handle)
ilen  = len_trim(hfile)
yfile = hfile(:len_trim(hfile))
iret  = nf90_create(yfile, nf90_64bit_offset, kfile_id)

IF (iret.NE.nf90_noerr) CALL handle_err(iret,'CREATE_FILE')

! 2.0  define dimensions
!-----------------------
inbdim=SIZE(kdims)
DO jnbdim=1,inbdim
   iret = nf90_def_dim(kfile_id,hnam_dim(jnbdim),kdims(jnbdim),kdim_id(jnbdim))
ENDDO
IF (lhook) CALL dr_hook('CREATE_FILE',1,zhook_handle)

END SUBROUTINE create_file