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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE DEALLOC_SURF_ATM_n
00003 !     #################################################################################
00004 !
00005 !!****  *DEALLOC_SURF_ATM_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_SURF_ATM_n,          ONLY : XNATURE, XTOWN, XSEA, XWATER,                &
00029                                        LCOVER, XCOVER, XZS,                         &
00030                                        NR_NATURE, NR_SEA, NR_TOWN, NR_WATER,        &
00031                                        NDIM_SEA, NDIM_WATER, NDIM_NATURE, NDIM_TOWN  
00032 !
00033 USE MODD_SURF_ATM_GRID_n,     ONLY : XGRID_PAR, XLAT, XLON, XMESH_SIZE, XJPDIR
00034 USE MODD_SURF_ATM_SSO_n,      ONLY : XAOSIP, XAOSIM, XAOSJP, XAOSJM,      &
00035                                        XHO2IP, XHO2IM, XHO2JP, XHO2JM,      &
00036                                        XZ0REL, XSSO_SLOPE, XSSO_ANIS,       &
00037                                        XSSO_DIR, XSSO_STDEV,                &
00038                                        XAVG_ZS, XSIL_ZS, XMAX_ZS, XMIN_ZS  
00039 USE MODD_CH_EMIS_FIELD_n,     ONLY : CEMIS_NAME, CEMIS_AREA, NEMIS_TIME, &
00040                                        TSEMISS, XEMIS_FIELDS, CEMIS_COMMENT  
00041 USE MODD_DUMMY_SURF_FIELDS_n, ONLY : XDUMMY_FIELDS
00042 USE MODD_CH_SURF_n,           ONLY : CCH_NAMES
00043 USE MODD_SV_n,                ONLY : CSV
00044 !
00045 USE MODI_DEALLOC_SEA_n
00046 USE MODI_DEALLOC_INLAND_WATER_n
00047 USE MODI_DEALLOC_NATURE_n
00048 USE MODI_DEALLOC_TOWN_n
00049 !
00050 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00051 USE PARKIND1  ,ONLY : JPRB
00052 !
00053 IMPLICIT NONE
00054 !
00055 !*      0.1    declarations of arguments
00056 !
00057 !
00058 !*      0.2    declarations of local variables
00059 !
00060 !-------------------------------------------------------------------------------------
00061 !
00062 
00063 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00064 
00065 IF (LHOOK) CALL DR_HOOK('DEALLOC_SURF_ATM_N',0,ZHOOK_HANDLE)
00066 IF (ASSOCIATED(XNATURE)) DEALLOCATE(XNATURE)
00067 IF (ASSOCIATED(XTOWN  )) DEALLOCATE(XTOWN  )
00068 IF (ASSOCIATED(XWATER )) DEALLOCATE(XWATER )
00069 IF (ASSOCIATED(XSEA   )) DEALLOCATE(XSEA   )
00070 !
00071 IF (ASSOCIATED(LCOVER )) DEALLOCATE(LCOVER )
00072 IF (ASSOCIATED(XCOVER )) DEALLOCATE(XCOVER )
00073 IF (ASSOCIATED(XZS    )) DEALLOCATE(XZS    )
00074 !
00075 IF (ASSOCIATED(NR_NATURE)) DEALLOCATE(NR_NATURE)
00076 IF (ASSOCIATED(NR_TOWN  )) DEALLOCATE(NR_TOWN  )
00077 IF (ASSOCIATED(NR_WATER )) DEALLOCATE(NR_WATER )
00078 IF (ASSOCIATED(NR_SEA   )) DEALLOCATE(NR_SEA   )
00079 !
00080 !-------------------------------------------------------------------------------------
00081 !
00082 IF (ASSOCIATED(XGRID_PAR )) DEALLOCATE(XGRID_PAR )
00083 IF (ASSOCIATED(XLAT      )) DEALLOCATE(XLAT      )
00084 IF (ASSOCIATED(XLON      )) DEALLOCATE(XLON      )
00085 IF (ASSOCIATED(XMESH_SIZE)) DEALLOCATE(XMESH_SIZE)
00086 IF (ASSOCIATED(XJPDIR    )) DEALLOCATE(XJPDIR    )
00087 !
00088 !-------------------------------------------------------------------------------------
00089 !
00090 IF (ASSOCIATED(XAOSIP))     DEALLOCATE( XAOSIP)
00091 IF (ASSOCIATED(XAOSIM))     DEALLOCATE( XAOSIM)
00092 IF (ASSOCIATED(XAOSJP))     DEALLOCATE( XAOSJP)
00093 IF (ASSOCIATED(XAOSJM))     DEALLOCATE( XAOSJM)
00094 IF (ASSOCIATED(XHO2IP))     DEALLOCATE( XHO2IP)
00095 IF (ASSOCIATED(XHO2IM))     DEALLOCATE( XHO2IM)
00096 IF (ASSOCIATED(XHO2JP))     DEALLOCATE( XHO2JP)
00097 IF (ASSOCIATED(XHO2JM))     DEALLOCATE( XHO2JM)
00098 IF (ASSOCIATED(XZ0REL))     DEALLOCATE( XZ0REL)
00099 IF (ASSOCIATED(XSSO_SLOPE)) DEALLOCATE( XSSO_SLOPE)
00100 IF (ASSOCIATED(XSSO_ANIS))  DEALLOCATE( XSSO_ANIS)
00101 IF (ASSOCIATED(XSSO_DIR))   DEALLOCATE( XSSO_DIR)
00102 IF (ASSOCIATED(XSSO_STDEV)) DEALLOCATE( XSSO_STDEV)
00103 IF (ASSOCIATED(XAVG_ZS))    DEALLOCATE( XAVG_ZS)
00104 IF (ASSOCIATED(XSIL_ZS))    DEALLOCATE( XSIL_ZS)
00105 IF (ASSOCIATED(XMAX_ZS))    DEALLOCATE( XMAX_ZS)
00106 IF (ASSOCIATED(XMIN_ZS))    DEALLOCATE( XMIN_ZS)
00107 !
00108 !-------------------------------------------------------------------------------------
00109 !
00110 IF (ASSOCIATED(CEMIS_AREA))   DEALLOCATE(CEMIS_AREA)
00111 IF (ASSOCIATED(CEMIS_COMMENT))DEALLOCATE(CEMIS_COMMENT)
00112 IF (ASSOCIATED(CEMIS_NAME))   DEALLOCATE(CEMIS_NAME)
00113 IF (ASSOCIATED(NEMIS_TIME))   DEALLOCATE(NEMIS_TIME)
00114 IF (ASSOCIATED(XEMIS_FIELDS)) DEALLOCATE(XEMIS_FIELDS)
00115 IF (ASSOCIATED(TSEMISS))      DEALLOCATE(TSEMISS)
00116 !
00117 !-------------------------------------------------------------------------------------
00118 !
00119 IF (ASSOCIATED(XDUMMY_FIELDS)) DEALLOCATE( XDUMMY_FIELDS)
00120 !
00121 !-------------------------------------------------------------------------------------
00122 !
00123 IF (ASSOCIATED(CSV)) DEALLOCATE(CSV)
00124 !
00125 !-------------------------------------------------------------------------------------
00126 !
00127 IF (ASSOCIATED(CCH_NAMES))  DEALLOCATE(CCH_NAMES)
00128 IF (ASSOCIATED(CEMIS_NAME)) DEALLOCATE(CEMIS_NAME)
00129 IF (ASSOCIATED(CEMIS_AREA)) DEALLOCATE(CEMIS_AREA)
00130 IF (ASSOCIATED(NEMIS_TIME)) DEALLOCATE(NEMIS_TIME )
00131 IF (ASSOCIATED(TSEMISS))    DEALLOCATE(TSEMISS)
00132 !
00133 !-------------------------------------------------------------------------------------
00134 !
00135 IF (NDIM_SEA    >0) CALL DEALLOC_SEA_n
00136 IF (NDIM_WATER  >0) CALL DEALLOC_INLAND_WATER_n
00137 IF (NDIM_NATURE >0) CALL DEALLOC_NATURE_n
00138 IF (NDIM_TOWN   >0) CALL DEALLOC_TOWN_n
00139 IF (LHOOK) CALL DR_HOOK('DEALLOC_SURF_ATM_N',1,ZHOOK_HANDLE)
00140 !
00141 !--------------------------------------------------------------------------------------
00142 !
00143 END SUBROUTINE DEALLOC_SURF_ATM_n