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,HNAME_DIM,KFILE_ID,KDIM_ID)
!
USE modi_handle_err
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
include "netcdf.inc"
!
! dummy arguments
!
 CHARACTER(LEN=*),             INTENT(IN)          :: hfile
INTEGER, DIMENSION(:),        INTENT(IN)          :: kdims
 CHARACTER(LEN=*),DIMENSION(:),INTENT(IN)          :: hname_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 = nf_create(yfile, nf_64bit_offset, kfile_id) 

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

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

END SUBROUTINE create_file