Yeah. Ok. I see.
So I've brought it down to the following:
module timers
implicit none
public
!integer, private :: time_array(8)
!real, private :: a3600, a60, a001
integer,private :: time_array(8)
real,private :: a3600=3600.
real,private :: a60=60.
!real,private :: a001=0.001
!a3600=3600...