modd_trip_diag.F90

Go to the documentation of this file.

!######################
MODULE modd_trip_diag
!######################
!
!!****  *MODD_TRIP_DIAG - declaration of diagnostics for TRIP scheme
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       21/05/08
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_type_diag
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE trip_diag_t
!-------------------------------------------------------------------------------
!
  TYPE(diag)                :: tdiag            ! current diagnostics 
!  
  TYPE(diag)                :: tdiag_run        ! Run mean diagnostics 
!
!-------------------------------------------------------------------------------
!
END TYPE trip_diag_t
!
CONTAINS
!
SUBROUTINE trip_diag_nullify(YTRIP_DIAG)
TYPE(trip_diag_t), INTENT(INOUT) :: YTRIP_DIAG
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
IF (lhook) CALL dr_hook("MODD_TRIP_DIAG:TRIP_DIAG_NULLIFY",0,zhook_handle)
!
NULLIFY(ytrip_diag%TDIAG%XSURF_STO)
NULLIFY(ytrip_diag%TDIAG%XGROUND_STO)
NULLIFY(ytrip_diag%TDIAG%XFLOOD_STO)
NULLIFY(ytrip_diag%TDIAG%XQDIS)
NULLIFY(ytrip_diag%TDIAG%XQGF)
NULLIFY(ytrip_diag%TDIAG%XVEL)
NULLIFY(ytrip_diag%TDIAG%XHS)
NULLIFY(ytrip_diag%TDIAG%XFF)
NULLIFY(ytrip_diag%TDIAG%XHF)
NULLIFY(ytrip_diag%TDIAG%XQFR)
NULLIFY(ytrip_diag%TDIAG%XQRF)
NULLIFY(ytrip_diag%TDIAG%XQIN)
NULLIFY(ytrip_diag%TDIAG%XVFIN)
NULLIFY(ytrip_diag%TDIAG%XVFOUT)
NULLIFY(ytrip_diag%TDIAG%XWF)
NULLIFY(ytrip_diag%TDIAG%XLF)
NULLIFY(ytrip_diag%TDIAG%XHSF)
NULLIFY(ytrip_diag%TDIAG%XRUNOFF)
NULLIFY(ytrip_diag%TDIAG%XDRAIN)
NULLIFY(ytrip_diag%TDIAG%XSOURCE)
NULLIFY(ytrip_diag%TDIAG%XHGROUND)
NULLIFY(ytrip_diag%TDIAG%XQGCELL)
NULLIFY(ytrip_diag%TDIAG%XWTD)
NULLIFY(ytrip_diag%TDIAG%XFWTD)
NULLIFY(ytrip_diag%TDIAG%XHGHS)
!
NULLIFY(ytrip_diag%TDIAG_RUN%XSURF_STO)
NULLIFY(ytrip_diag%TDIAG_RUN%XGROUND_STO)
NULLIFY(ytrip_diag%TDIAG_RUN%XFLOOD_STO)
NULLIFY(ytrip_diag%TDIAG_RUN%XQDIS)
NULLIFY(ytrip_diag%TDIAG_RUN%XQGF)
NULLIFY(ytrip_diag%TDIAG_RUN%XVEL)
NULLIFY(ytrip_diag%TDIAG_RUN%XHS)
NULLIFY(ytrip_diag%TDIAG_RUN%XFF)
NULLIFY(ytrip_diag%TDIAG_RUN%XHF)
NULLIFY(ytrip_diag%TDIAG_RUN%XQFR)
NULLIFY(ytrip_diag%TDIAG_RUN%XQRF)
NULLIFY(ytrip_diag%TDIAG_RUN%XQIN)
NULLIFY(ytrip_diag%TDIAG_RUN%XVFIN)
NULLIFY(ytrip_diag%TDIAG_RUN%XVFOUT)
NULLIFY(ytrip_diag%TDIAG_RUN%XWF)
NULLIFY(ytrip_diag%TDIAG_RUN%XLF)
NULLIFY(ytrip_diag%TDIAG_RUN%XHSF)
NULLIFY(ytrip_diag%TDIAG_RUN%XRUNOFF)
NULLIFY(ytrip_diag%TDIAG_RUN%XDRAIN)
NULLIFY(ytrip_diag%TDIAG_RUN%XSOURCE)
NULLIFY(ytrip_diag%TDIAG_RUN%XHGROUND)
NULLIFY(ytrip_diag%TDIAG_RUN%XQGCELL)
NULLIFY(ytrip_diag%TDIAG_RUN%XWTD)
NULLIFY(ytrip_diag%TDIAG_RUN%XFWTD)
NULLIFY(ytrip_diag%TDIAG_RUN%XHGHS)
!
IF (lhook) CALL dr_hook("MODD_TRIP_DIAG:TRIP_DIAG_NULLIFY",1,zhook_handle)
!
END SUBROUTINE trip_diag_nullify

!
END MODULE modd_trip_diag