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