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

Go to the documentation of this file.
00001 !     #############################################################
00002       SUBROUTINE DEALLOC_DIAG_SURF_ATM_n
00003 !     #############################################################
00004 !
00005 !!    AUTHOR
00006 !!    ------
00007 !!      V. Masson   *Meteo France*      
00008 !!
00009 !!    MODIFICATIONS
00010 !!    -------------
00011 !!      Original    01/2004
00012 !!      Modified    01/2006 : sea flux parameterization.
00013 !-------------------------------------------------------------------------------
00014 !
00015 !*       0.    DECLARATIONS
00016 !              ------------
00017 !
00018 USE MODD_DIAG_SURF_ATM_n,ONLY : XRN_TILE, XH_TILE, XLE_TILE, XGFLUX_TILE,         &
00019                                   XRI_TILE, XCD_TILE, XCH_TILE, XCE_TILE,           &
00020                                   XT2M_TILE, XTS_TILE, XQ2M_TILE, XHU2M_TILE,       &
00021                                   XZON10M_TILE, XMER10M_TILE, XLEI_TILE, XQS_TILE,  &
00022                                   XZ0_TILE, XZ0H_TILE, XT2M_MIN_TILE, XT2M_MAX_TILE,&
00023                                   XAVG_RN, XAVG_H, XAVG_LE, XAVG_LEI, XAVG_GFLUX,   &
00024                                   XAVG_RI, XAVG_CD, XAVG_CH, XAVG_CE,               &
00025                                   XAVG_T2M, XAVG_TS, XAVG_Q2M, XAVG_HU2M,           &
00026                                   XAVG_T2M_MIN_ZS,XAVG_Q2M_MIN_ZS,XAVG_HU2M_MIN_ZS, &
00027                                   XPS,XRHOA, XDIAG_TRAD, XDIAG_EMIS,                &
00028                                   XAVG_ZON10M, XAVG_MER10M, XAVG_SFCO2, XAVG_LEIC,  &
00029                                   XAVG_Z0, XAVG_Z0H, XRW_RAIN, XRW_SNOW,  XAVG_RNC, &
00030                                   XAVG_HC, XAVG_LEC, XAVG_GFLUXC, XAVG_SWDC,        &
00031                                   XAVG_SWUC, XAVG_LWDC, XAVG_LWUC, XAVG_FMUC,       &
00032                                   XAVG_FMVC, XRNC_TILE, XHC_TILE, XLEC_TILE,        &
00033                                   XGFLUXC_TILE, XSWDC_TILE, XSWUC_TILE, XLWDC_TILE, &
00034                                   XLWUC_TILE, XFMUC_TILE, XFMVC_TILE, XAVG_T2M_MIN, &
00035                                   XAVG_T2M_MAX, XLEIC_TILE, XHU2M_MIN_TILE,         &
00036                                   XAVG_HU2M_MIN, XHU2M_MAX_TILE, XAVG_HU2M_MAX,     &
00037                                   XWIND10M_TILE, XAVG_WIND10M, XWIND10M_MAX_TILE,   &
00038                                   XAVG_WIND10M_MAX  
00039 !
00040 !
00041 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00042 USE PARKIND1  ,ONLY : JPRB
00043 !
00044 IMPLICIT NONE
00045 !
00046 !*       0.1   Declarations of arguments
00047 !              -------------------------
00048 !
00049 !*       0.2   Declarations of local variables
00050 !              -------------------------------
00051 !
00052 !-------------------------------------------------------------------------------
00053 !
00054 !
00055 
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 
00058 IF (LHOOK) CALL DR_HOOK('DEALLOC_DIAG_SURF_ATM_N',0,ZHOOK_HANDLE)
00059 DEALLOCATE(XRI_TILE     )
00060 DEALLOCATE(XCD_TILE     )
00061 DEALLOCATE(XCH_TILE     )
00062 DEALLOCATE(XCE_TILE     )
00063 DEALLOCATE(XQS_TILE     )
00064 DEALLOCATE(XZ0_TILE     )
00065 DEALLOCATE(XZ0H_TILE    )
00066 DEALLOCATE(XRN_TILE     )
00067 DEALLOCATE(XH_TILE      )
00068 DEALLOCATE(XLE_TILE     )
00069 DEALLOCATE(XLEI_TILE    )
00070 DEALLOCATE(XGFLUX_TILE  )
00071 DEALLOCATE(XT2M_TILE    )
00072 DEALLOCATE(XTS_TILE     )
00073 DEALLOCATE(XT2M_MIN_TILE)
00074 DEALLOCATE(XT2M_MAX_TILE)
00075 DEALLOCATE(XQ2M_TILE    )
00076 DEALLOCATE(XHU2M_TILE   )
00077 DEALLOCATE(XZON10M_TILE )
00078 DEALLOCATE(XMER10M_TILE )
00079 DEALLOCATE(XDIAG_TRAD   )
00080 DEALLOCATE(XDIAG_EMIS   )
00081 !
00082 DEALLOCATE(XAVG_RI     )
00083 DEALLOCATE(XAVG_CD     )
00084 DEALLOCATE(XAVG_CH     )
00085 DEALLOCATE(XAVG_CE     )
00086 DEALLOCATE(XAVG_Z0     )
00087 DEALLOCATE(XAVG_Z0H    )
00088 DEALLOCATE(XAVG_RN     )
00089 DEALLOCATE(XAVG_H      )
00090 DEALLOCATE(XAVG_LE     )
00091 DEALLOCATE(XAVG_LEI    )
00092 DEALLOCATE(XAVG_GFLUX  )
00093 DEALLOCATE(XAVG_T2M    )
00094 DEALLOCATE(XAVG_TS     )
00095 DEALLOCATE(XAVG_T2M_MIN)
00096 DEALLOCATE(XAVG_T2M_MAX)
00097 DEALLOCATE(XAVG_Q2M    )
00098 DEALLOCATE(XAVG_HU2M   )
00099 DEALLOCATE(XAVG_ZON10M )
00100 DEALLOCATE(XAVG_MER10M )
00101 DEALLOCATE(XAVG_SFCO2  )
00102 DEALLOCATE(XAVG_T2M_MIN_ZS    )
00103 DEALLOCATE(XAVG_Q2M_MIN_ZS    )
00104 DEALLOCATE(XAVG_HU2M_MIN_ZS   )
00105 DEALLOCATE(XPS                )
00106 DEALLOCATE(XRHOA              )
00107 !
00108 DEALLOCATE(XRNC_TILE     )
00109 DEALLOCATE(XHC_TILE      )
00110 DEALLOCATE(XLEC_TILE     )
00111 DEALLOCATE(XLEIC_TILE    )
00112 DEALLOCATE(XGFLUXC_TILE  )
00113 DEALLOCATE(XSWDC_TILE    )
00114 DEALLOCATE(XSWUC_TILE    )
00115 DEALLOCATE(XLWDC_TILE    )
00116 DEALLOCATE(XLWUC_TILE    )
00117 DEALLOCATE(XFMUC_TILE    )
00118 DEALLOCATE(XFMVC_TILE    )
00119 !
00120 DEALLOCATE(XAVG_RNC     )
00121 DEALLOCATE(XAVG_HC      )
00122 DEALLOCATE(XAVG_LEC     )
00123 DEALLOCATE(XAVG_LEIC    )
00124 DEALLOCATE(XAVG_GFLUXC  )
00125 DEALLOCATE(XAVG_SWDC    )
00126 DEALLOCATE(XAVG_SWUC    )
00127 DEALLOCATE(XAVG_LWDC    )
00128 DEALLOCATE(XAVG_LWUC    )
00129 DEALLOCATE(XAVG_FMUC    )
00130 DEALLOCATE(XAVG_FMVC    )
00131 !
00132 DEALLOCATE(XRW_RAIN   )
00133 DEALLOCATE(XRW_SNOW   )
00134 !
00135 DEALLOCATE(XHU2M_MIN_TILE    )
00136 DEALLOCATE(XAVG_HU2M_MIN     )
00137 DEALLOCATE(XHU2M_MAX_TILE    )
00138 DEALLOCATE(XAVG_HU2M_MAX     )
00139 DEALLOCATE(XWIND10M_TILE     )
00140 DEALLOCATE(XAVG_WIND10M      )
00141 DEALLOCATE(XWIND10M_MAX_TILE )
00142 DEALLOCATE(XAVG_WIND10M_MAX  )
00143 IF (LHOOK) CALL DR_HOOK('DEALLOC_DIAG_SURF_ATM_N',1,ZHOOK_HANDLE)
00144 ! 
00145 !-------------------------------------------------------------------------------
00146 !
00147 END SUBROUTINE DEALLOC_DIAG_SURF_ATM_n