write(15,'(a,1x,a)') * 'YEAR MO DY HR MN Hs Tp Dp Depth Ta Pres Wspd', * 'Wdir Temp Temp' write(15,'(a,1x,a)') * ' UTC m sec deg m sec mB m/s', * ' deg Air(C) Sea(C)'
write(15,'(i4.4,1x,i2.2,1x,i2.2,1x,i2.2,1x,i2.2,1x,f5.2,1x,f5.2, * 1x,a3,1x,f8.2,1x,f5.2,1x,f6.1,1x,f6.2,1x,a3,2x,f4.1, * 3x,f4.1)') * year, month, day, hour, minute, hs, tp, dp, depth, ta, pres, * wind_speed, wind_dir, temp_air, temp_sea~