! Write data  for date.dat
       write(14,fmt='(a10,1x,a5,2x,a7,2x,a7,2x,i3)')date2,
     $ dummy(MM)(42:46),dummy(MM)(12:20),dummy(MM)(22:30),i   !write the date,time, latitude, longitude, dive number

!        do k=1,j-2  !write 3 Columns data pres,temp & sal in date.dat
!drh 20161130 for downoff       do k=p-2,1,-1 !write 3 Columns data pres,temp & sal in date.dat j-2, up only
       do k=1,p-2,1 !write 3 Columns data pres,temp & sal in date.dat j-2, up only
       if ((sal2(k)+1).ne.sal2(k)) write(14,600)
     $ pres2(k),temp2(k),sal2(k) !DRH 20161021--NaN check, Yes, model wants pressure
       end do

  600    format(f7.2,f13.8,f13.8)