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