Module Time_Module USE Numeric_Kinds_Module Implicit None Save INTEGER :: tstep, tdelaystep REAL(dp) :: deltat, tdelay End Module Time_Module