modd_xios.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.
!     ######################
      MODULE modd_xios
!     ######################
!
!!****  *MODD_XIOS - nest for variables used in interfacing XIOS to Surfex / Arpege
!!
!!    PURPOSE
!!    -------
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      S.Sénési   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       08/2015
!
!*       0.   DECLARATIONS
!             ------------
#ifdef WXIOS
USE xios ,    ONLY : xios_context
TYPE(xios_context) :: txios_context                ! Xios context handle 
#else
INTEGER            :: txios_context                ! Fake Xios context handle 
#endif
!
!
!  Basic toggle
!
LOGICAL            :: lxios=.false.                ! Do we use XIOS for outputing diags
!
!
!  Setup variables 
!
 CHARACTER(LEN=6)   :: yxios_context= "surfex"      ! Context name known to Xios (must match a context declared in xml file)
 CHARACTER(LEN=14)  :: coutput_default="surfex_cselect" ! XIOS id for the file receiving all Surfex variables selected 
                                                   ! by CSELECT (could/should exist in xml configuration file)
LOGICAL            :: lallow_add_dim=.false.       ! allow multi-dimensional output ?
INTEGER            :: nbase_xios_freq=1            ! Base frequency for calling XIOS (unit=timestep)
!
!  Evolving variables
!
LOGICAL            :: lxios_def_closed             ! Has the Surfex context definition already been closed ?
 CHARACTER(LEN=6)   :: yxios_domain                 ! When writing diags using write_diag_surf, name of the current tile 
INTEGER            :: ntimestep=-1                 ! Last value of timestep sent to XIOS (should be useless, now..)
INTEGER            :: nblock=1                     ! Number of blocks in the MPI-task (NPROMA blocks when in 
                                                   ! Arpege). For xios_send_block
!
!  Names for various dimensions (this section could be move elsewhere when more 
!  output schemes will handle dimension names)
!
 CHARACTER(LEN=30) :: ypatch_dim_name         ="patch"
 CHARACTER(LEN=30) :: yground_layer_dim_name  ="ground_layer"
 CHARACTER(LEN=30) :: ywground_layer_dim_name ="ground_water_layer"
 CHARACTER(LEN=30) :: ywiground_layer_dim_name ="ground_ice_layer"
 CHARACTER(LEN=30) :: ysnow_patch_dim_name    ="snow_patch"
 CHARACTER(LEN=30) :: yseaice_layer_dim_name  ="seaice_layer"
 CHARACTER(LEN=30) :: yswband_dim_name        ="swband"
 CHARACTER(LEN=30) :: yatm_vaxis_name         ="klev"

!
END MODULE modd_xios