3 calls to
GET_UNUSED_UNIT
CALC_TS_LOCATIONS
WRITE_TS
WRF_TSIN