module mod_modtype
type data_new
   real day    ! Time in days rel ref year
   real s      ! saln psu
   real t      ! temp deg C
   real dir    ! degrees 0 is North, and clockwise
   real speed  ! cm/s
   real u      ! dir east   cm/s
   real v      ! dir north  cm/s
end type data_new
real , parameter :: pi=3.1415927
end module mod_modtype