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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE DEALLOC_INLAND_WATER_n
00003 !     ###############################################################################
00004 !
00005 !!****  *DEALLOC_INLAND_WATER_n * - Deallocate all arrays
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    REFERENCE
00014 !!    ---------
00015 !!      
00016 !!
00017 !!    AUTHOR
00018 !!    ------
00019 !!     V. Masson 
00020 !!
00021 !!    MODIFICATIONS
00022 !!    -------------
00023 !!      Original    01/2004
00024 !!------------------------------------------------------------------
00025 !
00026 !
00027 USE MODD_SURF_ATM_n, ONLY : CWATER
00028 !
00029 !
00030 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00031 USE PARKIND1  ,ONLY : JPRB
00032 !
00033 USE MODI_DEALLOC_FLAKE_n
00034 !
00035 USE MODI_DEALLOC_IDEAL_FLUX
00036 !
00037 USE MODI_DEALLOC_WATFLUX_n
00038 !
00039 IMPLICIT NONE
00040 !
00041 !*      0.1    declarations of arguments
00042 !
00043 !
00044 !*      0.2    declarations of local variables
00045 !
00046 !-------------------------------------------------------------------------------------
00047 !
00048 
00049 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00050 
00051 IF (LHOOK) CALL DR_HOOK('DEALLOC_INLAND_WATER_N',0,ZHOOK_HANDLE)
00052 IF (CWATER=='WATFLX') THEN
00053   CALL DEALLOC_WATFLUX_n
00054 ELSE IF (CWATER=='FLAKE ') THEN
00055   CALL DEALLOC_FLAKE_n   
00056 ELSE IF (CWATER=='FLUX  ') THEN
00057   CALL DEALLOC_IDEAL_FLUX
00058 END IF
00059 IF (LHOOK) CALL DR_HOOK('DEALLOC_INLAND_WATER_N',1,ZHOOK_HANDLE)
00060 !
00061 !-------------------------------------------------------------------------------------
00062 !
00063 END SUBROUTINE DEALLOC_INLAND_WATER_n