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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE DEALLOC_FLAKE_n
00003 !     #################################################################################
00004 !
00005 !!****  *DEALLOC_FLAKE_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_FLAKE_n,      ONLY : LCOVER          , XCOVER        , &
00029                                 XZS           , XEMIS         , &
00030                                 XWATER_DEPTH  , XWATER_FETCH  , &
00031                                 XT_BS         , XDEPTH_BS     , &
00032                                 XCORIO        , XDIR_ALB      , &
00033                                 XSCA_ALB      , XICE_ALB      , &
00034                                 XSNOW_ALB     , XEXTCOEF_WATER, &
00035                                 XEXTCOEF_ICE  , XEXTCOEF_SNOW , &
00036                                 XT_SNOW       , XT_ICE        , &
00037                                 XT_MNW        , XT_WML        , &
00038                                 XT_BOT        , XT_B1         , &
00039                                 XCT           , XH_SNOW       , &
00040                                 XH_ICE        , XH_ML         , &
00041                                 XH_B1         , XTS             
00042 USE MODD_FLAKE_GRID_n, ONLY : XGRID_PAR, XLAT, XLON, XMESH_SIZE
00043 USE MODD_CH_WATFLUX_n,   ONLY : XDEP, CCH_NAMES, CSV
00044 
00045 
00046 !
00047 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00048 USE PARKIND1  ,ONLY : JPRB
00049 !
00050 IMPLICIT NONE
00051 !
00052 !*      0.1    declarations of arguments
00053 !
00054 !
00055 !*      0.2    declarations of local variables
00056 !
00057 !-------------------------------------------------------------------------------------
00058 !
00059 
00060 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00061 
00062 IF (LHOOK) CALL DR_HOOK('DEALLOC_FLAKE_N',0,ZHOOK_HANDLE)
00063 IF (ASSOCIATED(LCOVER ))  DEALLOCATE(LCOVER )
00064 IF (ASSOCIATED(XCOVER ))  DEALLOCATE(XCOVER )
00065 IF (ASSOCIATED(XZS    ))  DEALLOCATE(XZS    )
00066 IF (ASSOCIATED(XEMIS         ))  DEALLOCATE(XEMIS         )
00067 IF (ASSOCIATED(XWATER_DEPTH  ))  DEALLOCATE(XWATER_DEPTH  )
00068 IF (ASSOCIATED(XWATER_FETCH  ))  DEALLOCATE(XWATER_FETCH  )
00069 IF (ASSOCIATED(XT_BS         ))  DEALLOCATE(XT_BS         )
00070 IF (ASSOCIATED(XDEPTH_BS     ))  DEALLOCATE(XDEPTH_BS     )
00071 IF (ASSOCIATED(XCORIO        ))  DEALLOCATE(XCORIO        )
00072 IF (ASSOCIATED(XDIR_ALB      ))  DEALLOCATE(XDIR_ALB      )
00073 IF (ASSOCIATED(XSCA_ALB      ))  DEALLOCATE(XSCA_ALB      )
00074 IF (ASSOCIATED(XICE_ALB      ))  DEALLOCATE(XICE_ALB      )
00075 IF (ASSOCIATED(XSNOW_ALB     ))  DEALLOCATE(XSNOW_ALB     )
00076 IF (ASSOCIATED(XEXTCOEF_WATER))  DEALLOCATE(XEXTCOEF_WATER)
00077 IF (ASSOCIATED(XEXTCOEF_ICE  ))  DEALLOCATE(XEXTCOEF_ICE  )
00078 IF (ASSOCIATED(XEXTCOEF_SNOW ))  DEALLOCATE(XEXTCOEF_SNOW )
00079 IF (ASSOCIATED(XT_SNOW       ))  DEALLOCATE(XT_SNOW       )
00080 IF (ASSOCIATED(XT_ICE        ))  DEALLOCATE(XT_ICE        )
00081 IF (ASSOCIATED(XT_MNW        ))  DEALLOCATE(XT_MNW        )
00082 IF (ASSOCIATED(XT_WML        ))  DEALLOCATE(XT_WML        )
00083 IF (ASSOCIATED(XT_BOT        ))  DEALLOCATE(XT_BOT        )
00084 IF (ASSOCIATED(XT_B1         ))  DEALLOCATE(XT_B1         )
00085 IF (ASSOCIATED(XCT           ))  DEALLOCATE(XCT           )
00086 IF (ASSOCIATED(XH_SNOW       ))  DEALLOCATE(XH_SNOW       )
00087 IF (ASSOCIATED(XH_ICE        ))  DEALLOCATE(XH_ICE        )
00088 IF (ASSOCIATED(XH_ML         ))  DEALLOCATE(XH_ML         )
00089 IF (ASSOCIATED(XH_B1         ))  DEALLOCATE(XH_B1         )
00090 IF (ASSOCIATED(XTS           ))  DEALLOCATE(XTS           )
00091 !
00092 !-------------------------------------------------------------------------------------
00093 !
00094 IF (ASSOCIATED(XGRID_PAR )) DEALLOCATE(XGRID_PAR )
00095 IF (ASSOCIATED(XLAT      )) DEALLOCATE(XLAT      )
00096 IF (ASSOCIATED(XLON      )) DEALLOCATE(XLON      )
00097 IF (ASSOCIATED(XMESH_SIZE)) DEALLOCATE(XMESH_SIZE)
00098 !
00099 !-------------------------------------------------------------------------------------
00100 !
00101 IF(ASSOCIATED(XDEP))      DEALLOCATE(XDEP)
00102 IF(ASSOCIATED(CCH_NAMES)) DEALLOCATE(CCH_NAMES)
00103 IF(ASSOCIATED(CSV))       DEALLOCATE(CSV)
00104 IF (LHOOK) CALL DR_HOOK('DEALLOC_FLAKE_N',1,ZHOOK_HANDLE)
00105 !
00106 !-------------------------------------------------------------------------------------
00107 !
00108 END SUBROUTINE DEALLOC_FLAKE_n
00109 
00110