INTEGER tidePotStartdate1
& tidePotStartdate1, tidePotStartdate2,
I tidePotStartdate1, tidePotStartdate2,
& tidePotFile, tidePotStartdate1, tidePotStartdate2,
tidePotStartdate1 = 0