cli_lake.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.
!     #######
SUBROUTINE cli_lake (FG, F)
!     ###############
!
!!****  *CLI_LAKE* - prepares input for lake variables from climate data
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!     E. Kourzeneva
!!
!!    MODIFICATIONS
!!    -------------
!!------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
!
USE modd_flake_grid_n, ONLY : flake_grid_t
USE modd_flake_n, ONLY : flake_t
!
USE modi_start_lake_of
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
!
!*      0.2    declarations of local variables
!
!
TYPE(flake_grid_t), INTENT(INOUT) :: fg
TYPE(flake_t), INTENT(INOUT) :: f
!
INTEGER :: ji
REAL(KIND=JPRB) :: zhook_handle
!-------------------------------------------------------------------------------------

IF (lhook) CALL dr_hook('CLI_LAKE',0,zhook_handle)

DO ji=1,SIZE(fg%XLAT)
  CALL start_lake_of(f%TTIME%TDATE%DAY,f%TTIME%TDATE%MONTH,fg%XLON(ji),fg%XLAT(ji),&
        f%XWATER_DEPTH(ji), f%XT_SNOW(ji),f%XT_ICE(ji),f%XT_MNW(ji),f%XT_WML(ji), &
        f%XT_BOT(ji),f%XT_B1(ji),f%XCT(ji), &
        f%XH_SNOW(ji),f%XH_ICE(ji),f%XH_ML(ji),f%XH_B1(ji),f%XTS(ji))
 
END DO

IF (lhook) CALL dr_hook('CLI_LAKE',1,zhook_handle)

END SUBROUTINE cli_lake