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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE DEALLOC_WATFLUX_n
00003 !     #################################################################################
00004 !
00005 !!****  *DEALLOC_WATFLUX_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_WATFLUX_n,      ONLY : LCOVER, XCOVER, XZS, XTS, XZ0, &
00029                                   XEMIS, XDIR_ALB, XSCA_ALB,     &
00030                                   XCPL_WATER_WIND,               &
00031                                   XCPL_WATER_FWSU,               &
00032                                   XCPL_WATER_FWSV,               &
00033                                   XCPL_WATER_SNET,               &
00034                                   XCPL_WATER_HEAT,               &
00035                                   XCPL_WATER_EVAP,               &
00036                                   XCPL_WATER_RAIN,               &
00037                                   XCPL_WATER_SNOW  
00038 USE MODD_WATFLUX_GRID_n, ONLY : XGRID_PAR, XLAT, XLON, XMESH_SIZE
00039 USE MODD_CH_WATFLUX_n,   ONLY : XDEP, CCH_NAMES, CSV
00040 
00041 
00042 !
00043 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00044 USE PARKIND1  ,ONLY : JPRB
00045 !
00046 IMPLICIT NONE
00047 !
00048 !*      0.1    declarations of arguments
00049 !
00050 !
00051 !*      0.2    declarations of local variables
00052 !
00053 !-------------------------------------------------------------------------------------
00054 !
00055 
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 
00058 IF (LHOOK) CALL DR_HOOK('DEALLOC_WATFLUX_N',0,ZHOOK_HANDLE)
00059 IF (ASSOCIATED(LCOVER ))  DEALLOCATE(LCOVER )
00060 IF (ASSOCIATED(XCOVER ))  DEALLOCATE(XCOVER )
00061 IF (ASSOCIATED(XZS    ))  DEALLOCATE(XZS    )
00062 IF (ASSOCIATED(XTS    ))  DEALLOCATE(XTS    )
00063 IF (ASSOCIATED(XZ0    ))  DEALLOCATE(XZ0    )
00064 IF (ASSOCIATED(XEMIS  ))  DEALLOCATE(XEMIS  )
00065 !
00066 IF (ASSOCIATED(XDIR_ALB))  DEALLOCATE(XDIR_ALB)
00067 IF (ASSOCIATED(XSCA_ALB))  DEALLOCATE(XSCA_ALB)
00068 !
00069 !-------------------------------------------------------------------------------------
00070 !
00071 IF (ASSOCIATED(XGRID_PAR )) DEALLOCATE(XGRID_PAR )
00072 IF (ASSOCIATED(XLAT      )) DEALLOCATE(XLAT      )
00073 IF (ASSOCIATED(XLON      )) DEALLOCATE(XLON      )
00074 IF (ASSOCIATED(XMESH_SIZE)) DEALLOCATE(XMESH_SIZE)
00075 !
00076 !-------------------------------------------------------------------------------------
00077 !
00078 IF(ASSOCIATED(XDEP))      DEALLOCATE(XDEP)
00079 IF(ASSOCIATED(CCH_NAMES)) DEALLOCATE(CCH_NAMES)
00080 IF(ASSOCIATED(CSV))       DEALLOCATE(CSV)
00081 !
00082 !-------------------------------------------------------------------------------------
00083 !
00084 IF(ASSOCIATED(XCPL_WATER_WIND))      DEALLOCATE(XCPL_WATER_WIND)
00085 IF(ASSOCIATED(XCPL_WATER_FWSU))      DEALLOCATE(XCPL_WATER_FWSU)
00086 IF(ASSOCIATED(XCPL_WATER_FWSV))      DEALLOCATE(XCPL_WATER_FWSV)
00087 IF(ASSOCIATED(XCPL_WATER_SNET))      DEALLOCATE(XCPL_WATER_SNET)
00088 IF(ASSOCIATED(XCPL_WATER_HEAT))      DEALLOCATE(XCPL_WATER_HEAT)
00089 IF(ASSOCIATED(XCPL_WATER_EVAP))      DEALLOCATE(XCPL_WATER_EVAP)
00090 IF(ASSOCIATED(XCPL_WATER_RAIN))      DEALLOCATE(XCPL_WATER_RAIN)
00091 IF(ASSOCIATED(XCPL_WATER_SNOW))      DEALLOCATE(XCPL_WATER_SNOW)
00092 IF (LHOOK) CALL DR_HOOK('DEALLOC_WATFLUX_N',1,ZHOOK_HANDLE)
00093 !
00094 !-------------------------------------------------------------------------------------
00095 !
00096 END SUBROUTINE DEALLOC_WATFLUX_n
00097 
00098