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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE DEALLOC_SURFEX
00003 !     #################################################################################
00004 !
00005 !!****  *DEALLOC_SURFEX * - Deallocate  the surfaces
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    REFERENCE
00014 !!    ---------
00015 !!      
00016 !!
00017 !!    AUTHOR
00018 !!    ------
00019 !!     R. El Khatib
00020 !!
00021 !!    MODIFICATIONS
00022 !!    -------------
00023 !!      Original    04/2010
00024 !!------------------------------------------------------------------
00025 !
00026 USE MODD_AGRI_n,   ONLY : AGRI_DEALLO
00027 USE MODD_CH_EMIS_FIELD_n,   ONLY : CH_EMIS_FIELD_DEALLO
00028 USE MODD_CH_SNAP_n,   ONLY : CH_EMIS_SNAP_DEALLO
00029 USE MODD_CH_ISBA_n,   ONLY : CH_ISBA_DEALLO
00030 USE MODD_CH_SEAFLUX_n,   ONLY : CH_SEAFLUX_DEALLO
00031 USE MODD_CH_SURF_n,   ONLY : CH_SURF_DEALLO
00032 USE MODD_CH_TEB_n,   ONLY : CH_TEB_DEALLO
00033 USE MODD_CH_WATFLUX_n,   ONLY : CH_WATFLUX_DEALLO
00034 USE MODD_DATA_ISBA_n,   ONLY : DATA_ISBA_DEALLO
00035 USE MODD_DATA_TSZ0_n,   ONLY : DATA_TSZ0_DEALLO
00036 USE MODD_DATA_SEAFLUX_n,   ONLY : DATA_SEAFLUX_DEALLO
00037 USE MODD_DATA_TEB_GARDEN_n,   ONLY : DATA_TEB_GARDEN_DEALLO
00038 USE MODD_DATA_TEB_GREENROOF_n,   ONLY : DATA_TEB_GREENROOF_DEALLO
00039 USE MODD_DATA_TEB_n,   ONLY : DATA_TEB_DEALLO
00040 USE MODD_BLD_DESCRIPTION,   ONLY : BLD_DESC_DEALLO
00041 USE MODD_DATA_BEM_n,   ONLY : DATA_BEM_DEALLO
00042 USE MODD_DIAG_EVAP_ISBA_n,   ONLY : DIAG_EVAP_ISBA_DEALLO
00043 USE MODD_DIAG_FLAKE_n,   ONLY : DIAG_FLAKE_DEALLO
00044 USE MODD_DIAG_IDEAL_n,   ONLY : DIAG_IDEAL_DEALLO
00045 USE MODD_DIAG_ISBA_n,   ONLY : DIAG_ISBA_DEALLO
00046 USE MODD_DIAG_MISC_FLAKE_n,   ONLY : DIAG_MISC_FLAKE_DEALLO
00047 USE MODD_DIAG_MISC_ISBA_n,   ONLY : DIAG_MISC_ISBA_DEALLO
00048 USE MODD_DIAG_MISC_TEB_n,   ONLY : DIAG_MISC_TEB_DEALLO, DIAG_MISC_TEB_OPTIONS_DEALLO
00049 USE MODD_DIAG_UTCI_TEB_n,   ONLY : DIAG_UTCI_TEB_DEALLO
00050 USE MODD_DIAG_OCEAN_n,   ONLY : DIAG_OCEAN_DEALLO
00051 USE MODD_DIAG_SEAFLUX_n,   ONLY : DIAG_SEAFLUX_DEALLO
00052 USE MODD_DIAG_SURF_ATM_n,   ONLY : DIAG_SURF_ATM_DEALLO
00053 USE MODD_DIAG_TEB_n,   ONLY : DIAG_TEB_DEALLO
00054 USE MODD_DIAG_WATFLUX_n,   ONLY : DIAG_WATFLUX_DEALLO
00055 USE MODD_DST_n,   ONLY : DST_DEALLO
00056 USE MODD_DUMMY_SURF_FIELDS_n,   ONLY : DUMMY_SURF_FIELDS_DEALLO
00057 USE MODD_EMIS_GR_FIELD_n,   ONLY : EMIS_GR_FIELD_DEALLO
00058 USE MODD_FLAKE_GRID_n,   ONLY : FLAKE_GRID_DEALLO
00059 USE MODD_FLAKE_n,   ONLY : FLAKE_DEALLO
00060 USE MODD_FLAKE_SBL_n,   ONLY : FLAKE_SBL_DEALLO
00061 USE MODD_GR_BIOG_GARDEN_n,   ONLY : GR_BIOG_GARDEN_DEALLO
00062 USE MODD_GR_BIOG_n,   ONLY : GR_BIOG_DEALLO
00063 USE MODD_IDEAL_n,   ONLY : IDEAL_DEALLO
00064 USE MODD_IO_BUFF_n,   ONLY : IO_BUFF_DEALLO
00065 USE MODD_ISBA_CANOPY_n,   ONLY : ISBA_CANOPY_DEALLO
00066 USE MODD_ISBA_GRID_n,   ONLY : ISBA_GRID_DEALLO
00067 USE MODD_ISBA_n,   ONLY : ISBA_DEALLO
00068 USE MODD_OCEAN_GRID_n,   ONLY : OCEAN_GRID_DEALLO
00069 USE MODD_OCEAN_n,   ONLY : OCEAN_DEALLO
00070 USE MODD_OCEAN_REL_n,   ONLY : OCEAN_REL_DEALLO
00071 USE MODD_SEAFLUX_GRID_n,   ONLY : SEAFLUX_GRID_DEALLO
00072 USE MODD_SEAFLUX_n,   ONLY : SEAFLUX_DEALLO
00073 USE MODD_SEAFLUX_SBL_n,   ONLY : SEAFLUX_SBL_DEALLO
00074 USE MODD_SLT_n,   ONLY : SLT_DEALLO
00075 USE MODD_SURF_ATM_GRID_n,   ONLY : SURF_ATM_GRID_DEALLO
00076 USE MODD_SURF_ATM_n,   ONLY : SURF_ATM_DEALLO
00077 USE MODD_SURF_ATM_SSO_n,   ONLY : SURF_ATM_SSO_DEALLO
00078 USE MODD_DATA_COVER_n,   ONLY : DATA_COVER_DEALLO
00079 USE MODD_SV_n,   ONLY : SV_DEALLO
00080 USE MODD_SSO_CANOPY_n,   ONLY : SSO_CANOPY_DEALLO
00081 USE MODD_TEB_CANOPY_n,   ONLY : TEB_CANOPY_DEALLO
00082 USE MODD_TEB_GARDEN_n,   ONLY : TEB_GARDEN_DEALLO, TEB_GARDEN_OPTIONS_DEALLO,&
00083                                 TEB_GARDEN_PGD_DEALLO, TEB_GARDEN_PGD_EVOL_DEALLO
00084 USE MODD_TEB_GRID_n,   ONLY : TEB_GRID_DEALLO
00085 USE MODD_TEB_n,   ONLY : TEB_DEALLO, TEB_OPTIONS_DEALLO
00086 USE MODD_TEB_VEG_n,   ONLY : TEB_VEG_OPTIONS_DEALLO
00087 USE MODD_BEM_n,   ONLY : BEM_DEALLO, BEM_OPTIONS_DEALLO
00088 USE MODD_TEB_GREENROOF_n,   ONLY : TEB_GREENROOF_OPTIONS_DEALLO, &
00089                                    TEB_GREENROOF_PGD_DEALLO,     &
00090                                    TEB_GREENROOF_PGD_EVOL_DEALLO,&
00091                                    TEB_GREENROOF_DEALLO
00092 USE MODD_WATFLUX_GRID_n,   ONLY : WATFLUX_GRID_DEALLO
00093 USE MODD_WATFLUX_n,   ONLY : WATFLUX_DEALLO
00094 USE MODD_WATFLUX_SBL_n,   ONLY : WATFLUX_SBL_DEALLO
00095 USE MODD_DIAG_TRIP_n,   ONLY : DIAG_TRIP_DEALLO
00096 USE MODD_TRIP_GRID_n,   ONLY : TRIP_GRID_DEALLO
00097 USE MODD_TRIP_n,   ONLY : TRIP_DEALLO
00098 
00099 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00100 USE PARKIND1  ,ONLY : JPRB
00101 !
00102 IMPLICIT NONE
00103 !
00104 !*      0.1    declarations of arguments
00105 !
00106 !
00107 !*      0.2    declarations of local variables
00108 !
00109 !-------------------------------------------------------------------------------------
00110 !
00111 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00112 
00113 IF (LHOOK) CALL DR_HOOK('DEALLOC_SURFEX',0,ZHOOK_HANDLE)
00114  CALL AGRI_DEALLO
00115  CALL CH_EMIS_FIELD_DEALLO
00116  CALL CH_EMIS_SNAP_DEALLO
00117  CALL CH_ISBA_DEALLO
00118  CALL CH_SEAFLUX_DEALLO
00119  CALL CH_SURF_DEALLO
00120  CALL CH_TEB_DEALLO
00121  CALL CH_WATFLUX_DEALLO
00122  CALL DATA_ISBA_DEALLO
00123  CALL DATA_SEAFLUX_DEALLO
00124  CALL DATA_TEB_GARDEN_DEALLO
00125  CALL DATA_TEB_GREENROOF_DEALLO
00126  CALL DATA_TEB_DEALLO
00127  CALL DATA_BEM_DEALLO
00128  CALL BLD_DESC_DEALLO
00129  CALL DIAG_EVAP_ISBA_DEALLO
00130  CALL DIAG_FLAKE_DEALLO
00131  CALL DIAG_IDEAL_DEALLO
00132  CALL DIAG_ISBA_DEALLO
00133  CALL DATA_TSZ0_DEALLO
00134  CALL DIAG_MISC_FLAKE_DEALLO
00135  CALL DIAG_MISC_ISBA_DEALLO
00136  CALL DIAG_MISC_TEB_DEALLO
00137  CALL DIAG_MISC_TEB_OPTIONS_DEALLO
00138  CALL DIAG_UTCI_TEB_DEALLO
00139  CALL DIAG_OCEAN_DEALLO
00140  CALL DIAG_SEAFLUX_DEALLO
00141  CALL DIAG_SURF_ATM_DEALLO
00142  CALL DIAG_TEB_DEALLO
00143  CALL DIAG_WATFLUX_DEALLO
00144  CALL DST_DEALLO
00145  CALL DUMMY_SURF_FIELDS_DEALLO
00146  CALL EMIS_GR_FIELD_DEALLO
00147  CALL FLAKE_GRID_DEALLO
00148  CALL FLAKE_DEALLO
00149  CALL FLAKE_SBL_DEALLO
00150  CALL GR_BIOG_GARDEN_DEALLO
00151  CALL GR_BIOG_DEALLO
00152  CALL IDEAL_DEALLO
00153  CALL IO_BUFF_DEALLO
00154  CALL ISBA_CANOPY_DEALLO
00155  CALL ISBA_GRID_DEALLO
00156  CALL ISBA_DEALLO
00157  CALL OCEAN_GRID_DEALLO
00158  CALL OCEAN_DEALLO
00159  CALL OCEAN_REL_DEALLO
00160  CALL SEAFLUX_GRID_DEALLO
00161  CALL SEAFLUX_DEALLO
00162  CALL SEAFLUX_SBL_DEALLO
00163  CALL SLT_DEALLO
00164  CALL SURF_ATM_GRID_DEALLO
00165  CALL SURF_ATM_DEALLO
00166  CALL SURF_ATM_SSO_DEALLO
00167  CALL DATA_COVER_DEALLO
00168  CALL SV_DEALLO
00169  CALL SSO_CANOPY_DEALLO
00170  CALL TEB_CANOPY_DEALLO
00171  CALL TEB_GARDEN_DEALLO
00172  CALL TEB_GARDEN_PGD_DEALLO
00173  CALL TEB_GARDEN_PGD_EVOL_DEALLO
00174  CALL TEB_GARDEN_OPTIONS_DEALLO
00175  CALL TEB_GRID_DEALLO
00176  CALL TEB_DEALLO
00177  CALL TEB_OPTIONS_DEALLO
00178  CALL TEB_VEG_OPTIONS_DEALLO
00179  CALL BEM_DEALLO
00180  CALL BEM_OPTIONS_DEALLO
00181  CALL TEB_GREENROOF_OPTIONS_DEALLO
00182  CALL TEB_GREENROOF_PGD_DEALLO
00183  CALL TEB_GREENROOF_PGD_EVOL_DEALLO
00184  CALL TEB_GREENROOF_DEALLO
00185  CALL WATFLUX_GRID_DEALLO
00186  CALL WATFLUX_DEALLO
00187  CALL WATFLUX_SBL_DEALLO
00188  CALL DIAG_TRIP_DEALLO
00189  CALL TRIP_GRID_DEALLO
00190  CALL TRIP_DEALLO
00191 IF (LHOOK) CALL DR_HOOK('DEALLOC_SURFEX',1,ZHOOK_HANDLE)
00192 !
00193 !--------------------------------------------------------------------------------------
00194 !
00195 END SUBROUTINE DEALLOC_SURFEX