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

Go to the documentation of this file.
00001 !     ######################
00002       MODULE MODD_IDEAL_FLUX
00003 !     ######################
00004 !
00005 !!****  *MODD_IDEAL_FLUX * - Defines the quantities for ideal surface fluxes.
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------ 
00019 !!
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!      
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!          V. Masson   * Meteo France *
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    02/2003 
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 IMPLICIT NONE
00038 !
00039 REAL, DIMENSION(:), ALLOCATABLE   :: XTIMEF
00040 REAL, DIMENSION(:), ALLOCATABLE   :: XTIMET
00041 INTEGER, PARAMETER                :: NFORC_MAX = 48
00042 INTEGER                           :: NFORCF     ! number of surface forcing instants
00043 INTEGER                           :: NFORCT
00044 !
00045 REAL, DIMENSION(:), ALLOCATABLE   :: XSFTH     ! hourly data of heat surface flux        (W/m2)
00046 REAL, DIMENSION(:), ALLOCATABLE   :: XSFTQ     ! hourly data of water vapor surface flux (kg/m2/s) or (W/m2)
00047 REAL, DIMENSION(:,:), ALLOCATABLE :: XSFTS      ! hourly data of scalar surface flux      (kg/m2/s)
00048 REAL, DIMENSION(:), ALLOCATABLE   :: XSFCO2    ! hourly data of CO2 surface flux         (kg/m2/s)
00049  CHARACTER(LEN=5)                  :: CUSTARTYPE ! type of computation for friction
00050                                                 ! 'USTAR'
00051                                                 ! 'Z0   '
00052 REAL, DIMENSION(:), ALLOCATABLE   :: XUSTAR    ! hourly data of friction                 (m2/s2)
00053 REAL                              :: XZ0        ! roughness length (m)
00054 REAL                              :: XALB       ! albedo (-)
00055 REAL                              :: XEMIS      ! emissivity (-)
00056 REAL, DIMENSION(:), ALLOCATABLE   :: XTSRAD    ! radiative temperature (K)
00057 !
00058 !-------------------------------------------------------------------------------
00059 !
00060 END MODULE MODD_IDEAL_FLUX