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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE DEALLOC_SEA_n
00003 !     ###############################################################################
00004 !
00005 !!****  *DEALLOC_SEA_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 !
00028 USE MODD_SURF_ATM_n, ONLY : CSEA
00029 !
00030 !
00031 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00032 USE PARKIND1  ,ONLY : JPRB
00033 !
00034 USE MODI_DEALLOC_IDEAL_FLUX
00035 !
00036 USE MODI_DEALLOC_SEAFLUX_n
00037 !
00038 IMPLICIT NONE
00039 !
00040 !*      0.1    declarations of arguments
00041 !
00042 !
00043 !*      0.2    declarations of local variables
00044 !
00045 !-------------------------------------------------------------------------------------
00046 !
00047 
00048 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00049 
00050 IF (LHOOK) CALL DR_HOOK('DEALLOC_SEA_N',0,ZHOOK_HANDLE)
00051 IF (CSEA=='SEAFLX') THEN
00052   CALL DEALLOC_SEAFLUX_n
00053 ELSE IF (CSEA=='FLUX  ') THEN
00054   CALL DEALLOC_IDEAL_FLUX
00055 END IF
00056 IF (LHOOK) CALL DR_HOOK('DEALLOC_SEA_N',1,ZHOOK_HANDLE)
00057 !
00058 !-------------------------------------------------------------------------------------
00059 !
00060 END SUBROUTINE DEALLOC_SEA_n