modn_io_offline.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  modn_io_offline
!     #######################
!
!!****  *MODN_IO_OFFLINE* define the variables and namelist for SURFEX
!                         offline programs (pgd, prep, offline)
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    04/2008
!!      P. Lemoigne 04/2013 Add XDELTA_OROG to fix the maximum difference allowed between
!!                          forcing and surface file orographies if LSET_FORC_ZS=.F
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
IMPLICIT NONE
!
!*    Types of files
!     --------------
!
 CHARACTER(LEN=6) :: CSURF_FILETYPE       = 'ASCII ' ! type of SURFEX surface files
!                                                   ! 'NETDF '
!                                                   ! 'FA    '
!                                                   ! 'ASCII '
!                                                   ! 'LFI   '
 CHARACTER(LEN=6) :: CTIMESERIES_FILETYPE = 'NONE  ' ! type of the files contining the
!                                                   ! output diagnostic time series
!                                                   ! 'NETCDF ', 'TEXTE '
 CHARACTER(LEN=6) :: CFORCING_FILETYPE    = 'NETCDF' ! type of atmospheric FORCING files
!                                                   ! 'NETDF', 'BINARY', or 'ASCII '
!
!
!*    Names of files
!     --------------
!
 CHARACTER(LEN=28):: CPGDFILE  ='PGD'          ! name of the PGD file
 CHARACTER(LEN=28):: CPREPFILE ='PREP'         ! name of the INITIAL file
 CHARACTER(LEN=28):: CSURFFILE ='SURFOUT'      ! name of the final output CSURFEX file
 CHARACTER(LEN=28):: CNAMELIST ='OPTIONS.nam'  ! name of namelist file
!
!
!*    General flags defining output options
!     -------------------------------------
!
LOGICAL          :: LPRINT      = .FALSE.  ! write some information on screen 
LOGICAL          :: LRESTART    = .FALSE.  ! write restart file
LOGICAL          :: LRESTART_2M = .FALSE.  ! write restart file
LOGICAL          :: LINQUIRE    = .FALSE.  ! inquiry mode
!      
LOGICAL          :: LWRITE_COORD = .FALSE. ! write lat/lon of the target grid
!
LOGICAL          :: LOUT_TIMENAME = .FALSE.! change the name of output file at the end of a day
                                           ! (ex: 19860502_00h00 -> 19860501_24h00)
!
LOGICAL          :: LDIAG_FA_NOCOMPACT = .FALSE. ! fa compaction for diagnostic files
!
!*    Variables
!     ---------
!
INTEGER          :: NSCAL = 0                 ! Number of scalar species
INTEGER          :: NHALO = 2
!
!*    Time steps
!     ----------
!
REAL             :: XTSTEP_SURF   = 300.   ! time step of the surface 
REAL             :: XTSTEP_OUTPUT = 1800.  ! time step of the output time-series
INTEGER          :: NB_READ_FORC  = 0      ! subdivisions of the reading of forcings
!
!*    General flag for coherence between forcing file orography and surface file orography
!     ----------
!
LOGICAL          :: LSET_FORC_ZS =.FALSE.  ! .T. : the orography of the
!                                          !  forcing file is
!                                          !  automatically set to the same
!                                          !  value as in the surface file
!                                          ! .F. : the orography of the
!                                          !  forcing file is kept as it is
REAL             :: XDELTA_OROG   = 200. ! maximum difference allowed between
!                                          ! forcing and surface file
!                                          ! orographies if LSET_FORC_ZS=.F.
!
!*    General flag for coherence between forcing Qair and calculated Qsat(Tair)
!     ----------
!
LOGICAL          :: LLIMIT_QAIR = .FALSE. ! .T. : Qair always <= Qsat(Tair)
                                          ! .F. : No limitation
!
!*    General flag for using land use scheme
!     ----------
!
LOGICAL          :: LLAND_USE = .FALSE.
!
!*    General flag for using simple coherence between solar zenithal angle and radiation
!     ----------
!
LOGICAL          :: LADAPT_SW = .FALSE.
!
!*    General flag to modify direct solar radiation due to slopes and shadows.
!     ----------
!
LOGICAL          :: LSHADOWS_SLOPE = .FALSE.
LOGICAL          :: LSHADOWS_OTHER = .FALSE.
!
! * For offline driver with openMP
INTEGER         :: NPROMA                 ! Size of openMP packets
INTEGER         :: NI,NJ                  ! Domain size
!
REAL            :: XIO_FRAC = 1.          ! fraction of ISIZE deduced to I/O
!
 CHARACTER(LEN=4) :: YALG_MPI = "LIN "     ! type of distribution algorithm for MPI
!
!-------------------------------------------------------------------------------
!
!*       1.    NAMELISTS
!              ---------
!
namelist/nam_io_offline/csurf_filetype, ctimeseries_filetype, cforcing_filetype, &
                        cpgdfile, cprepfile, csurffile, lrestart_2m,             &
                        lprint, lrestart, linquire, nscal, nhalo,                &
                        xtstep_surf, xtstep_output, ldiag_fa_nocompact,          &
                        lset_forc_zs, lwrite_coord, lout_timename, llimit_qair,  &
                        lshadows_slope,lshadows_other,                           &
                        nb_read_forc, lland_use, nproma, ni, nj, xio_frac,       &
                        yalg_mpi, xdelta_orog, ladapt_sw
!
!-------------------------------------------------------------------------------
END MODULE modn_io_offline