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

Go to the documentation of this file.
00001 !     ##########################
00002       SUBROUTINE REFRESH_PGDWORK
00003 !     ##########################
00004 !
00005 !!**** *REFRESH_PGDWORK* ! refreshes arrays used in PGD work module
00006 !
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    METHOD
00011 !!    ------
00012 !!   
00013 !
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    V. Masson        Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original    09/2008
00032 !!
00033 !
00034 USE MODD_PGDWORK,  ONLY : XSSQO, LSSQO, XSUMVAL, XSUMVAL2, XSUMCOVER, NSIZE
00035 !
00036 !
00037 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00038 USE PARKIND1  ,ONLY : JPRB
00039 !
00040 IMPLICIT NONE
00041 !
00042 !----------------------------------------------------------------------------
00043 !
00044 !*    1.     Cover array
00045 !            -----------
00046 !
00047 
00048 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00049 
00050 IF (LHOOK) CALL DR_HOOK('REFRESH_PGDWORK',0,ZHOOK_HANDLE)
00051 IF (ALLOCATED(XSUMCOVER)) THEN
00052   XSUMCOVER=0.
00053 END IF
00054 !----------------------------------------------------------------------------
00055 !
00056 !*    2.     General arrays
00057 !            --------------
00058 !
00059 IF (ALLOCATED(XSUMVAL)) THEN
00060   XSUMVAL=0.
00061 END IF
00062 IF (ALLOCATED(XSUMVAL2)) THEN
00063   XSUMVAL2=0.
00064 END IF
00065 IF (ALLOCATED(NSIZE)) THEN
00066   NSIZE=0
00067 END IF
00068 !----------------------------------------------------------------------------
00069 !
00070 !*    3.     Subgrid arrays
00071 !            --------------
00072 !
00073 IF (ALLOCATED(LSSQO)) THEN
00074   XSSQO(:,:,:) = -99999.
00075   LSSQO(:,:,:) = .FALSE.
00076 END IF
00077 IF (LHOOK) CALL DR_HOOK('REFRESH_PGDWORK',1,ZHOOK_HANDLE)
00078 !
00079 !----------------------------------------------------------------------------
00080 !
00081 END SUBROUTINE REFRESH_PGDWORK