sfx_xios_readnam_ol.F90

Go to the documentation of this file.

SUBROUTINE sfx_xios_readnam_ol(HNAMELIST)
!!
!!
!!     PURPOSE : Assess if XIOS output mode is required
!!     --------
!!
!!
!!     METHOD
!!     ------
!!
!!     Check namelist to assess if XIOS is required as diags output format and set 
!!     MODD_XIOS::LXIOS accordingly
!!
!!     EXTERNAL
!!     --------
!!
!!
!!     REFERENCE
!!     ---------
!!
!!     AUTHOR
!!     ------
!!
!!     S.Sénési, CNRM
!!
!!     MODIFICATION
!!     --------------
!!
!!     Original    08/2015
!!
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modi_abor1_sfx
USE modi_get_luout

USE modn_io_offline

USE modi_open_namelist
USE modi_close_namelist
USE mode_pos_surf
!
USE modd_xios, ONLY : lxios, lxios_def_closed
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
 CHARACTER(LEN=28), INTENT(IN )           :: HNAMELIST
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
INTEGER            :: ILUNAM
INTEGER            :: ILUOUT
LOGICAL            :: GFOUND
!
! For now, some issued if DrHook is called before Oasis setup, hence :
!
lxios           = .false.
lxios_def_closed= .false.
!
 CALL open_namelist('ASCII ',ilunam,hnamelist)
!
 CALL get_luout('OFFLINE',iluout)
 CALL posnam(ilunam,'NAM_IO_OFFLINE',gfound,iluout)
IF (gfound) THEN  
   READ (unit=ilunam,nml=nam_io_offline)
ELSE
   CALL abor1_sfx('SFX_XIOS_READNAM_OL : CANNOT READ NAMELIST FILE '//hnamelist//' FOR NAMELIST NAM_IO_OFFLINE')
ENDIF
lxios = (trim(ctimeseries_filetype) == 'XIOS') 
!
!
 CALL close_namelist('ASCII ',ilunam)
!
IF (lxios) THEN
!
#ifndef WXIOS
   CALL abor1_sfx('SFX_XIOS_READNAM_OL : CANNOT USE "CTIMESERIES_FILETYPE = XIOS" : THIS BINARY WAS COMPILED WITHOUT XIOS SUPPORT')
#endif
!
ENDIF
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE sfx_xios_readnam_ol