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

Go to the documentation of this file.
00001 !     #######################################
00002       SUBROUTINE CLEAN_PREP_OUTPUT_GRID
00003 !     #######################################
00004 !!
00005 !!    PURPOSE
00006 !!    -------
00007 !!    Computes variables used for interpolation
00008 !!
00009 !!    METHOD
00010 !!    ------
00011 !!   
00012 !!    EXTERNAL
00013 !!    --------
00014 !!
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    V. Masson                   Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original     01/2004
00032 !----------------------------------------------------------------------------
00033 !
00034 !*    0.     DECLARATION
00035 !            -----------
00036 !
00037 USE MODD_PREP, ONLY : XLAT_OUT, XLON_OUT, XX_OUT, XY_OUT,LINTERP 
00038 !
00039 !
00040 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00041 USE PARKIND1  ,ONLY : JPRB
00042 !
00043 IMPLICIT NONE
00044 !
00045 !*    0.1    Declaration of dummy arguments
00046 !            ------------------------------
00047 !
00048 !
00049 !*    0.2    Declaration of local variables
00050 !            ------------------------------
00051 !
00052 !
00053 !------------------------------------------------------------------------------
00054 !
00055 
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 
00058 IF (LHOOK) CALL DR_HOOK('CLEAN_PREP_OUTPUT_GRID',0,ZHOOK_HANDLE)
00059 DEALLOCATE(XLAT_OUT)
00060 DEALLOCATE(XLON_OUT)
00061 DEALLOCATE(XX_OUT  )
00062 DEALLOCATE(XY_OUT  )
00063 !
00064 DEALLOCATE(LINTERP )
00065 IF (LHOOK) CALL DR_HOOK('CLEAN_PREP_OUTPUT_GRID',1,ZHOOK_HANDLE)
00066 !-------------------------------------------------------------------------------
00067 !
00068 END SUBROUTINE CLEAN_PREP_OUTPUT_GRID