modd_forc_atm.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_forc_atm
!     ######################
!
!!****  *MODD_FORC_ATM - declaration of atmospheric forcing variables
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      F. Habets   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       20/09/02
!
!*       0.   DECLARATIONS
!             ------------
!
!
IMPLICIT NONE
!------------------------------------------------------------------------------
!
 CHARACTER(LEN=6), DIMENSION(:),  ALLOCATABLE :: csv       ! name of all scalar variables
REAL,             DIMENSION(:,:),ALLOCATABLE :: xdir_alb  ! direct albedo for each band
REAL,             DIMENSION(:,:),ALLOCATABLE :: xsca_alb  ! diffuse albedo for each band
REAL,             DIMENSION(:),  ALLOCATABLE :: xemis     ! emissivity
REAL,             DIMENSION(:),  ALLOCATABLE :: xtsrad    ! radiative temperature

REAL, DIMENSION(:), ALLOCATABLE  :: xtsun     ! solar time                    (s from midnight)
REAL, DIMENSION(:), ALLOCATABLE  :: xzref     ! height of T,q forcing                 (m)
REAL, DIMENSION(:), ALLOCATABLE  :: xuref     ! height of wind forcing                (m)
!
REAL, DIMENSION(:), ALLOCATABLE  :: xta       ! air temperature forcing               (K)
REAL, DIMENSION(:), ALLOCATABLE  :: xqa       ! air specific humidity forcing         (kg/m3)
REAL, DIMENSION(:), ALLOCATABLE  :: xrhoa     ! air density forcing                   (kg/m3)
REAL, DIMENSION(:,:),ALLOCATABLE :: xsv       ! scalar variables
REAL, DIMENSION(:), ALLOCATABLE  :: xu        ! zonal wind                            (m/s)
REAL, DIMENSION(:), ALLOCATABLE  :: xv        ! meridian wind                         (m/s)
REAL, DIMENSION(:,:),ALLOCATABLE :: xdir_sw   ! direct  solar radiation (on horizontal surf.)
!                                            !                                       (W/m2)
REAL, DIMENSION(:,:),ALLOCATABLE :: xsca_sw   ! diffuse solar radiation (on horizontal surf.)
!                                            !                                       (W/m2)
REAL, DIMENSION(:), ALLOCATABLE  :: xsw_bands ! mean wavelength of each shortwave band (m)
REAL, DIMENSION(:), ALLOCATABLE  :: xzenith   ! zenithal angle at t  (radian from the vertical)
REAL, DIMENSION(:), ALLOCATABLE  :: xzenith2  ! zenithal angle at t+1(radian from the vertical)
REAL, DIMENSION(:), ALLOCATABLE  :: xazim     ! azimuthal angle      (radian from North, clockwise)
REAL, DIMENSION(:), ALLOCATABLE  :: xlw       ! longwave radiation (on horizontal surf.)
!                                            !                                       (W/m2)
REAL, DIMENSION(:), ALLOCATABLE  :: xps       ! pressure at atmospheric model surface (Pa)
REAL, DIMENSION(:), ALLOCATABLE  :: xpa       ! pressure at forcing level             (Pa)
REAL, DIMENSION(:), ALLOCATABLE  :: xzs       ! atmospheric model orography           (m)
REAL, DIMENSION(:), ALLOCATABLE  :: xco2      ! CO2 concentration in the air          (kg/kg)
REAL, DIMENSION(:), ALLOCATABLE  :: xsnow     ! snow precipitation                    (kg/m2/s)
REAL, DIMENSION(:), ALLOCATABLE  :: xrain     ! liquid precipitation                  (kg/m2/s)
!
!
REAL, DIMENSION(:), ALLOCATABLE :: xsfth     ! flux of heat                          (W/m2)
REAL, DIMENSION(:), ALLOCATABLE :: xsftq     ! flux of water vapor                   (kg/m2/s)
REAL, DIMENSION(:), ALLOCATABLE :: xsfu      ! zonal momentum flux                   (pa)
REAL, DIMENSION(:), ALLOCATABLE :: xsfv      ! meridian momentum flux                (pa)
REAL, DIMENSION(:), ALLOCATABLE :: xsfco2    ! flux of CO2                           (m/s*kg_CO2/kg_air)
REAL, DIMENSION(:,:),ALLOCATABLE:: xsfts     ! flux of scalar var.                   (kg/m2/s)
!
REAL, DIMENSION(:), ALLOCATABLE :: xpew_a_coef ! implicit coefficients
REAL, DIMENSION(:), ALLOCATABLE :: xpew_b_coef ! needed if HCOUPLING='I'
REAL, DIMENSION(:), ALLOCATABLE :: xpet_a_coef
REAL, DIMENSION(:), ALLOCATABLE :: xpeq_a_coef
REAL, DIMENSION(:), ALLOCATABLE :: xpet_b_coef
REAL, DIMENSION(:), ALLOCATABLE :: xpeq_b_coef
!
REAL, DIMENSION(:), ALLOCATABLE :: xtsurf   ! effective temperature                  (K)
REAL, DIMENSION(:), ALLOCATABLE :: xz0      ! surface roughness length for momentum  (m)
REAL, DIMENSION(:), ALLOCATABLE :: xz0h     ! surface roughness length for heat      (m)
REAL, DIMENSION(:), ALLOCATABLE :: xqsurf   ! specific humidity at surface           (kg/kg)
!
!------------------------------------------------------------------------------
!
END MODULE modd_forc_atm