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

Go to the documentation of this file.
00001 !     #######
00002 SUBROUTINE CLI_LAKE
00003 !     ###############
00004 !
00005 !!****  *CLI_LAKE* - prepares input for lake variables from climate data
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    REFERENCE
00014 !!    ---------
00015 !!      
00016 !!
00017 !!    AUTHOR
00018 !!    ------
00019 !!     E. Kourzeneva
00020 !!
00021 !!    MODIFICATIONS
00022 !!    -------------
00023 !!------------------------------------------------------------------
00024 !
00025 !*       0.    DECLARATIONS
00026 !              ------------
00027 !
00028 USE MODN_PREP_FLAKE,   ONLY : NMONTH, NDAY
00029 USE MODD_FLAKE_GRID_n, ONLY : XLAT, XLON
00030 USE MODD_FLAKE_n,      ONLY : XTS, XT_SNOW, XT_ICE, XT_MNW, XT_WML, &
00031                               XT_BOT, XT_B1, &  
00032                               XCT, XH_SNOW, XH_ICE, XH_ML, XH_B1, &  
00033                               XWATER_DEPTH
00034 !
00035 USE MODI_START_LAKE_OF
00036 !
00037 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00038 USE PARKIND1  ,ONLY : JPRB
00039 !
00040 IMPLICIT NONE
00041 !
00042 !*      0.1    declarations of arguments
00043 !
00044 !
00045 !*      0.2    declarations of local variables
00046 !
00047 INTEGER :: JI
00048 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00049 !-------------------------------------------------------------------------------------
00050 
00051 IF (LHOOK) CALL DR_HOOK('CLI_LAKE',0,ZHOOK_HANDLE)
00052 
00053 DO JI=1,SIZE(XLAT)
00054   CALL START_LAKE_OF(NDAY,NMONTH,XLON(JI),XLAT(JI),XWATER_DEPTH(JI), &
00055         XT_SNOW(JI),XT_ICE(JI),XT_MNW(JI),XT_WML(JI), &
00056         XT_BOT(JI),XT_B1(JI),XCT(JI), &
00057         XH_SNOW(JI),XH_ICE(JI),XH_ML(JI),XH_B1(JI),XTS(JI))
00058  
00059 END DO
00060 
00061 IF (LHOOK) CALL DR_HOOK('CLI_LAKE',1,ZHOOK_HANDLE)
00062 
00063 END SUBROUTINE CLI_LAKE