Phil, Mitch, and Tony For your information......           

  Doug,  I would like to request a change for the GTSPP files.  We will
  also need a change in the code for the P2 software.

  Melanie



Forwarded message:
> From dwright@NOS.NOAA.GOV  Wed Jul 26 15:36:33 1995
> From: dwright@NOS.NOAA.GOV
> Date: Wed, 26 Jul 95 15:27:35 -24000
> Message-ID: <vines.SRI8+OWd3kA@oes.nos.noaa.gov>
> X-Priority: 3 (Normal)
> To: <melanie@nodc.noaa.gov>
> Cc: <a_isenor@bionet.bio.dfo.ca>
> Subject: XBT Data Header Format
> MIME-Version: 1.0
> Content-type: text/plain;
>                charset=US-ASCII
> 
> Melanie,
> 
> The format I previously sent you was the format you are currently using, it 
> was not the new format.  The new format is as follows:
> 
> $include: 'master.inf'
> ****************************************************************
> *     standard XBT heading using unit 6 for output
> *     Unit 6 must be opened by calling routine
> 
>       subroutine xbthed
>       implicit integer*2 (a-z)
>       character*10 latstr,lonstr,yn*3(2),sstname*21
>       real*4 xbtht,bucket,sstdp
>       include 'posit.inc'
>       include 'timec.inc'
>       include 'probe.inc'
>       include 'cfsys.inc'
>       include 'bufrs.inc'
>       include 'bufrc.inc'
>       data yn/'No','Yes'/
>       data sstype/'Ship intake','Bucket','Hull contact sensor',
>      1'Reversing thermometer','STD/CTD sensor','Mechanical BT',
>      2'Expendable BT','Digital BT ','Thermistor Chain',
>      3'Infrared scanner','Microwave Scanner'/
>       data sstcode/0,1,2,3,4,5,6,7,8,9,10/
>       data problist/'Sippican T-4','Sippican T-5','Sippican Fast Deep',
>      1'Sippican T-6','Sippican T-7','Sippican Deep Blue',
>      2'Sippican T-10','Sippican T-11','TSK T-4','TSK T-6','TSK T-7',
>      3'Spartan XBT-1','Spartan XBT-3','Spartan XBT-4','Spartan XBT-5',
>      4'Spartan XBT-5DB','Spartan XBT-6','Spartan XBT-7',
>      5'Spartan XBT-7DB','Spartan XBT-10','Spartan XBT-20',
>      6'Spartan XBT-20DB','Mechanical BT','Hydrocast','Thermistor Chain',
>      7'CTD'/
>       data probcode/0,1,2,3,4,5,6,7,20,21,22,
>      1 40,41,42,43,44,45,46,47,48,49,50,80,81,82,83/
>       data recorder/'SIPPICAN MK-9','SIPPICAN MK-12',
>      1'SPARTAN SOC BT/SV PROCESSOR MODEL 100',
>      1'BATHY SYSTEMS SA-810','SCRIPPS METROBYTE CONTROLLER',
>      2'PROTECNO ETSM2','NAUTILUS MARINE SERVICE NMS-XBT','UNKNOWN'/
>       data rcdrcode/3,5,10,30,31,34,35,62/
>       anyp=obsp
> *     convert lat and long to character*10 strings
>       call la2str (latstr)
>       call lo2str (lonstr)
> 
> *     write all the information about the XBT drop
>       maxdep=idata(326)
>       if(idata(326).eq.miss)maxdep=9999
>       xbtht=idata(327)*.1
>       if(idata(327).eq.miss)xbtht=99.9
>       sstdp=idata(354)*.1
>       if(idata(354).eq.miss)sstdp=99.9
>       bucket=idata(356)*.1
>       if(idata(356).eq.miss)bucket=99.9
>       if(idata(359).eq.miss)then
>           ssttype=99
>           sstname=' '
>       else
>           ssttype=match(idata(359),sstcode,NSSTTYPE)
>           sstname=sstype(ssttype)
>       endif
>       write (6,1000)
>      1  seaver*.01,drop,problist(match(idata(328),probcode,NPRBTYPE)),
>      1  idata(328),idata(357),
>      2  recorder(match(idata(350),rcdrcode,NRCDTYPE)),idata(350),xbtht,
>      3  obs.tmmday,obs.tmmon+1,obs.tmyear,obs.tmhour,obs.tmmin,
>      3  latstr,lonstr,
>      4  cdata(2)(:30),cdata(11)(:20),
>      5  cdata(1)(:9),maxdep,yn(jjxx+1),
>      6  sstname,ssttype,bucket,
>      6  sstdp
> 1000  format (' SEAS Version ',f4.2,'  Drop ',i3.3,'  Probe Type ',
>      1 a18,' Code ',i2.2,' Equation ',i1//
>      2' Recorder ',a37,' Code ',i2.2,'  Launcher height ',f4.1,' M'//
>      3' Date/Time 'i2.2,'/',i2.2,'/',i2.2,1x,i2.2,':',i2.2,
>      3' GMT    Latitude ',a10,'    Longitude ',a10//
>      4' Ship ',a30,'      Cruise ',a20//
>      5' Call sign ',a9'  Bottom depth ',i5,' M            Transmitted ',
>      5 a3//
>      6' Reference Temp Type ',a21,' Code ',i2.2,' Value ',f4.1,
>      6' C   Depth ',f4.1,' M'//)
> 
>       return
>       end
> 
> 
> 
> This is probably more than you needed but I thought I'd included the whole 
> sub-routine.  
> 
> Anthony, I hope this works for you too.  If you have any questions please 
> call.
> 
> Regards,
> Darren
>