modd_watfluxn.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_watflux_n
!     ####################
!
!!****  *MODD_WATFLUX_n - declaration of surface parameters for an inland water surface
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      V. Masson  *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       01/2004
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_type_date_surf
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE watflux_t
!
! General surface: 
!
  REAL, POINTER, DIMENSION(:)   :: XZS     ! orography                     (m)
  REAL, POINTER, DIMENSION(:,:) :: XCOVER  ! fraction of each ecosystem    (-)
  LOGICAL, POINTER, DIMENSION(:):: LCOVER  ! GCOVER(i)=T --> ith cover field is not 0.
  LOGICAL                       :: LSBL    ! T: SBL scheme within the Surface Boundary Layer
!                                          ! F: no atmospheric layers below forcing level
  CHARACTER(LEN=4)              :: CWAT_ALB ! type of albedo
!
  LOGICAL                       :: LINTERPOL_TS ! Interpotalation of monthly TS
  CHARACTER(LEN=6)              :: CINTERPOL_TS ! Interpotalation of monthly TS
!
! Inland water:
!
  REAL, POINTER, DIMENSION(:) :: XTS       ! water surface temperature               (K)
  REAL, POINTER, DIMENSION(:) :: XTICE     ! water ice temperature
  REAL, POINTER, DIMENSION(:) :: XZ0       ! water surface roughness length          (-)
  REAL, POINTER, DIMENSION(:) :: XEMIS     ! water surface emissivity                (-)
  REAL, POINTER, DIMENSION(:) :: XDIR_ALB  ! water surface direct albedo             (-)
  REAL, POINTER, DIMENSION(:) :: XSCA_ALB  ! water surface diffuse albedo            (-)
  REAL, POINTER, DIMENSION(:) :: XICE_ALB  ! water ice albedo (for ESM coupling)     (-)
!
  REAL, POINTER, DIMENSION(:,:) :: XTS_MTH   ! Monthly water surface temperature               (K)
!
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_WIND ! 10m wind speed for ESM coupling
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_FWSU ! zonal wind stress for ESM coupling
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_FWSV ! meridian wind stress for ESM coupling
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_SNET ! Solar net heat flux
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_HEAT ! Non solar net heat flux
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_EVAP ! Evaporation for ESM coupling
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_RAIN ! Rainfall for ESM coupling
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_SNOW ! Snowfall for ESM coupling
  REAL, POINTER, DIMENSION(:) :: XCPL_WATER_FWSM ! wind stress module for ESM coupling
!
  REAL, POINTER, DIMENSION(:) :: XCPL_WATERICE_SNET ! solar net heat flux
  REAL, POINTER, DIMENSION(:) :: XCPL_WATERICE_HEAT ! Non solar net heat flux
  REAL, POINTER, DIMENSION(:) :: XCPL_WATERICE_EVAP ! Sublimation for ESM coupling
!
! Date:
!
  TYPE (date_time)                  :: TTIME         ! current date and time
  TYPE (date_time)                  :: TZTIME  
!
! Time-step:
!
  REAL                              :: XTSTEP        ! time step
!
  REAL                              :: XOUT_TSTEP    ! output writing time step
!
!
END TYPE watflux_t



 CONTAINS

!




SUBROUTINE watflux_init(YWATFLUX)
TYPE(watflux_t), INTENT(INOUT) :: ywatflux
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_WATFLUX_N:WATFLUX_INIT",0,zhook_handle)
  nullify(ywatflux%XZS)
  nullify(ywatflux%XCOVER)
  nullify(ywatflux%LCOVER)
  nullify(ywatflux%XTS)
  nullify(ywatflux%XTICE)
  nullify(ywatflux%XZ0)
  nullify(ywatflux%XEMIS)
  nullify(ywatflux%XDIR_ALB)
  nullify(ywatflux%XSCA_ALB)
  nullify(ywatflux%XICE_ALB)
  nullify(ywatflux%XTS_MTH)
  nullify(ywatflux%XCPL_WATER_WIND)
  nullify(ywatflux%XCPL_WATER_FWSU)
  nullify(ywatflux%XCPL_WATER_FWSV)
  nullify(ywatflux%XCPL_WATER_SNET)
  nullify(ywatflux%XCPL_WATER_HEAT)
  nullify(ywatflux%XCPL_WATER_EVAP)
  nullify(ywatflux%XCPL_WATER_RAIN)
  nullify(ywatflux%XCPL_WATER_SNOW)
  nullify(ywatflux%XCPL_WATER_FWSM)
  nullify(ywatflux%XCPL_WATERICE_SNET)
  nullify(ywatflux%XCPL_WATERICE_HEAT)
  nullify(ywatflux%XCPL_WATERICE_EVAP)
ywatflux%LSBL=.false.
ywatflux%CWAT_ALB=' '
ywatflux%LINTERPOL_TS=.false.
ywatflux%CINTERPOL_TS=' '
ywatflux%XTSTEP=0.
ywatflux%XOUT_TSTEP=0.
IF (lhook) CALL dr_hook("MODD_WATFLUX_N:WATFLUX_INIT",1,zhook_handle)
END SUBROUTINE watflux_init


END MODULE modd_watflux_n