! $Id: $

MODULE infotrac_phy

   USE strings_mod, ONLY: maxlen
   INTEGER,                 SAVE :: nqtot                       !--- Tracers nb in dynamics (incl. higher moments + H2O)
   CHARACTER(LEN=maxlen),   SAVE :: type_trac                   !--- Keyword for tracers type
!$OMP THREADPRIVATE(nqtot, type_trac)

CONTAINS

SUBROUTINE init_infotrac_phy(nqtot_, type_trac_)
   IMPLICIT NONE
   INTEGER,          INTENT(IN) :: nqtot_
   CHARACTER(LEN=*), INTENT(IN) :: type_trac_
   CHARACTER(LEN=maxlen) :: modname='init_infotrac_phy'

   nqtot = nqtot_
   type_trac = type_trac_

  END SUBROUTINE init_infotrac_phy

END MODULE infotrac_phy