MODULE tracstoke_phy_mod

  INTEGER,SAVE :: istphy
!$OMP THREADPRIVATE(istphy)

END MODULE tracstoke_phy_mod