subroutine init_itv_20 !! <LI> (20) temp_cp_average use numerics, only: lablxc, boundl, boundu implicit none lablxc(20) = 'temp_cp_average ' boundl(20) = 40.00D0 boundu(20) = 3.000D2 end subroutine init_itv_20