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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE DEALLOC_IDEAL_FLUX
00003 !     #################################################################################
00004 !
00005 !!****  *DEALLOC_IDEAL_FLUX * - 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 USE MODD_IDEAL_FLUX, ONLY : XTIMEF, XTIMET, &
00027                             XSFTH, XSFTQ, XSFTS, XSFCO2, XUSTAR, XTSRAD
00028 !
00029 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00030 USE PARKIND1  ,ONLY : JPRB
00031 !
00032 IMPLICIT NONE
00033 !
00034 !*      0.1    declarations of arguments
00035 !
00036 !
00037 !*      0.2    declarations of local variables
00038 !
00039 !-------------------------------------------------------------------------------------
00040 !
00041 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00042 
00043 IF (LHOOK) CALL DR_HOOK('DEALLOC_IDEAL_FLUX',0,ZHOOK_HANDLE)
00044 IF (ALLOCATED(XTIMEF)) DEALLOCATE(XTIMEF)
00045 IF (ALLOCATED(XTIMET)) DEALLOCATE(XTIMET)
00046 IF (ALLOCATED(XSFTS))  DEALLOCATE(XSFTS)
00047 IF (ALLOCATED(XSFTH))  DEALLOCATE(XSFTH)
00048 IF (ALLOCATED(XSFTQ))  DEALLOCATE(XSFTQ)
00049 IF (ALLOCATED(XSFCO2)) DEALLOCATE(XSFCO2)
00050 IF (ALLOCATED(XUSTAR)) DEALLOCATE(XUSTAR)
00051 IF (ALLOCATED(XTSRAD)) DEALLOCATE(XTSRAD)
00052 IF (LHOOK) CALL DR_HOOK('DEALLOC_IDEAL_FLUX',1,ZHOOK_HANDLE)
00053 !
00054 !--------------------------------------------------------------------------------------
00055 !
00056 END SUBROUTINE DEALLOC_IDEAL_FLUX
00057 
00058