modd_ideal_flux.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_ideal_flux
!     ######################
!
!!****  *MODD_IDEAL_FLUX * - Defines the quantities for ideal surface fluxes.
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------ 
!!
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!      V. Masson   * Meteo France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    02/2003 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
IMPLICIT NONE
!
REAL, DIMENSION(:), ALLOCATABLE   :: xtimef
REAL, DIMENSION(:), ALLOCATABLE   :: xtimet
INTEGER, PARAMETER                :: nforc_max = 800
INTEGER                           :: nforcf     ! number of surface forcing instants
INTEGER                           :: nforct
!
REAL, DIMENSION(:), ALLOCATABLE   :: xsfth     ! hourly data of heat surface flux        (W/m2)
REAL, DIMENSION(:), ALLOCATABLE   :: xsftq     ! hourly data of water vapor surface flux (kg/m2/s) or (W/m2)
REAL, DIMENSION(:,:), ALLOCATABLE :: xsfts      ! hourly data of scalar surface flux      (kg/m2/s)
REAL, DIMENSION(:), ALLOCATABLE   :: xsfco2    ! hourly data of CO2 surface flux         (m/s*kg_CO2/kg_air)
 CHARACTER(LEN=5)                  :: custartype ! type of computation for friction
                                                ! 'USTAR'
                                                ! 'Z0   '
REAL, DIMENSION(:), ALLOCATABLE   :: xustar    ! hourly data of friction                 (m2/s2)
REAL                              :: xz0        ! roughness length (m)
REAL                              :: xalb       ! albedo (-)
REAL                              :: xemis      ! emissivity (-)
REAL, DIMENSION(:), ALLOCATABLE   :: xtsrad    ! radiative temperature (K)
!
!-------------------------------------------------------------------------------
!
END MODULE modd_ideal_flux