!|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||module tracer_types,1 !BOP ! !MODULE: tracer_types ! ! !DESCRIPTION: ! This module contains f90 derived type information for passive tracers ! ! !REVISION HISTORY: ! SVN:$Id: tracer_types.F90 808 2006-04-28 17:06:38Z njn01 $ ! !USES: use kinds_mod
implicit none save !EOP !BOC !----------------------------------------------------------------------- ! define constants f90 types used for passive tracer tavg registration !----------------------------------------------------------------------- integer (int_kind), parameter :: & tavg_passive_interior_type = 1 & , tavg_passive_stf_type = 2 type tavg_passive_nonstd character(char_len) :: sname integer (int_kind) :: grid, type, ndims real(r4), dimension(:,:,:), pointer :: data end type tavg_passive_nonstd end module tracer_types