subroutine init_itv_11 !! <LI> (11) pheat use numerics, only: lablxc, boundl, boundu implicit none lablxc(11) = 'pheat ' boundl(11) = 1.00D-3 boundu(11) = 1.000D3 end subroutine init_itv_11