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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE DEALLOC_SEAFLUX_n
00003 !     #################################################################################
00004 !
00005 !!****  *DEALLOC_SEAFLUX_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_SEAFLUX_n,      ONLY : LCOVER, XCOVER, XZS, XSST, XZ0, XZ0H, &
00029                                   XSEABATHY, XEMIS, XDIR_ALB, XSCA_ALB  
00030 USE MODD_SEAFLUX_GRID_n, ONLY : XGRID_PAR, XLAT, XLON, XMESH_SIZE
00031 USE MODD_CH_SEAFLUX_n,   ONLY : XDEP, CCH_NAMES, CSV
00032 
00033 
00034 !
00035 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00036 USE PARKIND1  ,ONLY : JPRB
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_SEAFLUX_N',0,ZHOOK_HANDLE)
00051 IF (ASSOCIATED(LCOVER ))   DEALLOCATE(LCOVER )
00052 IF (ASSOCIATED(XCOVER ))   DEALLOCATE(XCOVER )
00053 IF (ASSOCIATED(XZS    ))   DEALLOCATE(XZS    )
00054 IF (ASSOCIATED(XSST   ))   DEALLOCATE(XSST   )
00055 IF (ASSOCIATED(XZ0    ))   DEALLOCATE(XZ0    )
00056 IF (ASSOCIATED(XZ0H   ))   DEALLOCATE(XZ0H   )
00057 IF (ASSOCIATED(XSEABATHY)) DEALLOCATE(XSEABATHY)
00058 IF (ASSOCIATED(XEMIS  ))   DEALLOCATE(XEMIS  )
00059 IF (ASSOCIATED(XDIR_ALB))  DEALLOCATE(XDIR_ALB)
00060 IF (ASSOCIATED(XSCA_ALB))  DEALLOCATE(XSCA_ALB)
00061 !
00062 !-------------------------------------------------------------------------------------
00063 !
00064 IF (ASSOCIATED(XGRID_PAR )) DEALLOCATE(XGRID_PAR )
00065 IF (ASSOCIATED(XLAT      )) DEALLOCATE(XLAT      )
00066 IF (ASSOCIATED(XLON      )) DEALLOCATE(XLON      )
00067 IF (ASSOCIATED(XMESH_SIZE)) DEALLOCATE(XMESH_SIZE)
00068 !
00069 !-------------------------------------------------------------------------------------
00070 !
00071 IF(ASSOCIATED(XDEP))      DEALLOCATE(XDEP)
00072 IF(ASSOCIATED(CCH_NAMES)) DEALLOCATE(CCH_NAMES)
00073 IF(ASSOCIATED(CSV))       DEALLOCATE(CSV)
00074 IF (LHOOK) CALL DR_HOOK('DEALLOC_SEAFLUX_N',1,ZHOOK_HANDLE)
00075 !
00076 !-------------------------------------------------------------------------------------
00077 !
00078 END SUBROUTINE DEALLOC_SEAFLUX_n
00079 
00080