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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE FLAG_UPDATE(ONOWRITE_CANOPY,OPGD,OPROVAR_TO_DIAG,OSELECT)
00003 !     ############################################################
00004 !
00005 !!****  *FLAG_UPDATE* - routine to modify selection of output fields
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!      P. Le Moigne   *Meteo France*   
00027 !!
00028 !!    MODIFICATIONS
00029 !!    -------------
00030 !!      Original    02/2008 
00031 !
00032 !       B.Decharme  10/2009 flag to desactivate writing of pgd 
00033 !-------------------------------------------------------------------------------
00034 !
00035 !*       0.    DECLARATIONS
00036 !              ------------
00037 !
00038 USE MODD_WRITE_SURF_ATM, ONLY : LNOWRITE_CANOPY
00039 USE MODD_DIAG_SURF_ATM_n,ONLY : LPROVAR_TO_DIAG, LSELECT
00040 USE MODD_DIAG_ISBA_n,    ONLY : LPGD
00041 !
00042 !
00043 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00044 USE PARKIND1  ,ONLY : JPRB
00045 !
00046 IMPLICIT NONE
00047 !
00048 !*       0.1   Declarations of arguments
00049 !              -------------------------
00050 !
00051 LOGICAL, INTENT(IN) :: ONOWRITE_CANOPY ! flag to (des)activate writing of canopy fields
00052 LOGICAL, INTENT(IN) :: OPGD            ! flag to (des)activate writing of pgd field
00053 LOGICAL, INTENT(IN) :: OPROVAR_TO_DIAG ! flag to (des)activate writing of diag of prognostic field
00054 LOGICAL, INTENT(IN) :: OSELECT         ! flag to (des)activate control which fields are written
00055 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00056 !
00057 !*       0.2   Declarations of local variables
00058 !              -------------------------------
00059 !
00060 !-------------------------------------------------------------------------------
00061 IF (LHOOK) CALL DR_HOOK('FLAG_UPDATE',0,ZHOOK_HANDLE)
00062 LNOWRITE_CANOPY = ONOWRITE_CANOPY
00063 LPGD            = OPGD
00064 LPROVAR_TO_DIAG = OPROVAR_TO_DIAG
00065 LSELECT         = OSELECT
00066 IF (LHOOK) CALL DR_HOOK('FLAG_UPDATE',1,ZHOOK_HANDLE)
00067 !-------------------------------------------------------------------------------
00068 !
00069 END SUBROUTINE FLAG_UPDATE