SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_forc

Go to the documentation of this file.
00001 !     ######################
00002 MODULE MODD_FORC_ATM
00003 !     ######################
00004 !
00005 !!****  *MODD_FORC_ATM - declaration of atmospheric forcing variables
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      F. Habets   *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original       20/09/02
00025 !
00026 !*       0.   DECLARATIONS
00027 !             ------------
00028 !
00029 !
00030 IMPLICIT NONE
00031 !------------------------------------------------------------------------------
00032 !
00033  CHARACTER(LEN=6), DIMENSION(:),  ALLOCATABLE :: CSV       ! name of all scalar variables
00034 REAL,             DIMENSION(:,:),ALLOCATABLE :: XDIR_ALB  ! direct albedo for each band
00035 REAL,             DIMENSION(:,:),ALLOCATABLE :: XSCA_ALB  ! diffuse albedo for each band
00036 REAL,             DIMENSION(:),  ALLOCATABLE :: XEMIS     ! emissivity
00037 REAL,             DIMENSION(:),  ALLOCATABLE :: XTSRAD    ! radiative temperature
00038 
00039 REAL, DIMENSION(:), ALLOCATABLE  :: XTSUN     ! solar time                    (s from midnight)
00040 REAL, DIMENSION(:), ALLOCATABLE  :: XZREF     ! height of T,q forcing                 (m)
00041 REAL, DIMENSION(:), ALLOCATABLE  :: XUREF     ! height of wind forcing                (m)
00042 !
00043 REAL, DIMENSION(:), ALLOCATABLE  :: XTA       ! air temperature forcing               (K)
00044 REAL, DIMENSION(:), ALLOCATABLE  :: XQA       ! air specific humidity forcing         (kg/m3)
00045 REAL, DIMENSION(:), ALLOCATABLE  :: XRHOA     ! air density forcing                   (kg/m3)
00046 REAL, DIMENSION(:,:),ALLOCATABLE :: XSV       ! scalar variables
00047 REAL, DIMENSION(:), ALLOCATABLE  :: XU        ! zonal wind                            (m/s)
00048 REAL, DIMENSION(:), ALLOCATABLE  :: XV        ! meridian wind                         (m/s)
00049 REAL, DIMENSION(:,:),ALLOCATABLE :: XDIR_SW   ! direct  solar radiation (on horizontal surf.)
00050 !                                            !                                       (W/m2)
00051 REAL, DIMENSION(:,:),ALLOCATABLE :: XSCA_SW   ! diffuse solar radiation (on horizontal surf.)
00052 !                                            !                                       (W/m2)
00053 REAL, DIMENSION(:), ALLOCATABLE  :: XSW_BANDS ! mean wavelength of each shortwave band (m)
00054 REAL, DIMENSION(:), ALLOCATABLE  :: XZENITH   ! zenithal angle at t  (radian from the vertical)
00055 REAL, DIMENSION(:), ALLOCATABLE  :: XZENITH2  ! zenithal angle at t+1(radian from the vertical)
00056 REAL, DIMENSION(:), ALLOCATABLE  :: XAZIM     ! azimuthal angle      (radian from North, clockwise)
00057 REAL, DIMENSION(:), ALLOCATABLE  :: XLW       ! longwave radiation (on horizontal surf.)
00058 !                                            !                                       (W/m2)
00059 REAL, DIMENSION(:), ALLOCATABLE  :: XPS       ! pressure at atmospheric model surface (Pa)
00060 REAL, DIMENSION(:), ALLOCATABLE  :: XPA       ! pressure at forcing level             (Pa)
00061 REAL, DIMENSION(:), ALLOCATABLE  :: XZS       ! atmospheric model orography           (m)
00062 REAL, DIMENSION(:), ALLOCATABLE  :: XCO2      ! CO2 concentration in the air          (kg/kg)
00063 REAL, DIMENSION(:), ALLOCATABLE  :: XSNOW     ! snow precipitation                    (kg/m2/s)
00064 REAL, DIMENSION(:), ALLOCATABLE  :: XRAIN     ! liquid precipitation                  (kg/m2/s)
00065 !
00066 !
00067 REAL, DIMENSION(:), ALLOCATABLE :: XSFTH     ! flux of heat                          (W/m2)
00068 REAL, DIMENSION(:), ALLOCATABLE :: XSFTQ     ! flux of water vapor                   (kg/m2/s)
00069 REAL, DIMENSION(:), ALLOCATABLE :: XSFU      ! zonal momentum flux                   (pa)
00070 REAL, DIMENSION(:), ALLOCATABLE :: XSFV      ! meridian momentum flux                (pa)
00071 REAL, DIMENSION(:), ALLOCATABLE :: XSFCO2    ! flux of CO2                           (kg/m2/s)
00072 REAL, DIMENSION(:,:),ALLOCATABLE:: XSFTS     ! flux of scalar var.                   (kg/m2/s)
00073 !
00074 REAL, DIMENSION(:), ALLOCATABLE :: XPEW_A_COEF ! implicit coefficients
00075 REAL, DIMENSION(:), ALLOCATABLE :: XPEW_B_COEF ! needed if HCOUPLING='I'
00076 REAL, DIMENSION(:), ALLOCATABLE :: XPET_A_COEF
00077 REAL, DIMENSION(:), ALLOCATABLE :: XPEQ_A_COEF
00078 REAL, DIMENSION(:), ALLOCATABLE :: XPET_B_COEF
00079 REAL, DIMENSION(:), ALLOCATABLE :: XPEQ_B_COEF
00080 
00081 !------------------------------------------------------------------------------
00082 !
00083 END MODULE MODD_FORC_ATM
00084