& tidalPeriod,
_RL tidalPeriod(tidalComponents)
& tidalPeriod(td) )
CALL WRITE_1D_RL( tidalPeriod, tidalComponents, INDEX_I,
& tidalPeriod
tidalPeriod(i) = 0. _d 0