!|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||


 module qflux_mod 2,5

!BOP
! !MODULE: qflux_mod
!
! !DESCRIPTION:
!  This module supports time-averaged qflux computations
!
! !REVISION HISTORY:
! SVN:$Id: qflux_mod.F90 12674 2008-10-31 22:21:32Z njn01 $
!

! !USES:

   use kinds_mod
   use constants
   use exit_mod
   use time_management
   use tavg

   implicit none
   private
   save

! !PUBLIC MEMBER FUNCTIONS:

   public :: init_qflux
 
!EOP
!BOC

   integer (int_kind) :: &
      tavg_QFLUX          ! tavg id for QFLUX 

!EOC
!***********************************************************************

      contains

!***********************************************************************


   subroutine init_qflux 1,1

   character (char_len) :: string
 
   
   string = 'Internal Ocean Heat Flux Due to Ice Formation; ' /&
             &/ 'heat of fusion > 0 or ice-melting potential < 0 '
 
   call define_tavg_field(tavg_QFLUX,'QFLUX',2,               &
                          long_name=trim(string),             &
                          tavg_method=tavg_method_qflux,      &
                          units='Watts/meter^2',              &
                          coordinates  ='TLONG TLAT time',    &
                          grid_loc ='2111')

   end subroutine init_qflux
 
 
!***********************************************************************

 end module qflux_mod

!|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||