#!/usr/bin/perl -w
#
# mocpro_level0.pl

# mocness tow data file processing routine - level0 
# November 4, 1997  rcg
# November 14, 1997 rcg Change output message to say displayed by.
# March 23, 1999.  Change script location to be /data/cashjian.  rcg
# April 14, 1999.  Make Ashjian enhancements the real one.  Change script
#	 location back to /data/rgroman/ctd_mocness.  rcg
# January 28, 2000. Fix Y2K.  Add undef in message routine.  Show month 
#	correctly in message routine rcg
# October 3, 2001.  V1.24so Set up for Southern Ocean program.  Same 
#	routine as used by Georges Bank.  At least to start with.  rcg
# December 24, 2001.  Modified for ZooGene data.  rcg
# March 6, 2003. V1.26ZG  Modified March 6, 2003.  Change location of
# 	script file and file names to be /data1/zoogene_data/mocness from
# 	/data1/zoogene/Scripts/mocness.  rcg
# July 10, 2006. V1.27CM Modified for CMarZ data. mda
# Dec. 12, 2011. V1.28BC Modified for BCO-DMO data.  mda + rcg
#
# Sets up level 0 for MOCNESS CTD data object.

$version="V1.28BC/December 12, 2011";

#some definitions
# top level data directories
$script_loc="/data/Scripts/ctd_mocness";   # script location dir
$i_am_level=0;
$script_name="mocpro_level1.pl";           
$fieldnames_level[0]="/data/Scripts/ctd_mocness/fieldnames_level0";
$fieldnames_level[1]="/data/Scripts/ctd_mocness/fieldnames_level1";
$fieldnames_level[2]="/data/Scripts/ctd_mocness/fieldnames_level2";
$fieldnames_level[3]="/data/Scripts/ctd_mocness/fieldnames_level3";

print STDOUT ("#Displayed by $0, $version\n");

# headers - 3 o/p by level0 Read from files

for ($i=$i_am_level; $i <= $#fieldnames_level; $i=$i+1) {
	open FIELDNAMES, $fieldnames_level[$i] or 
	   die "#Could not get $0 field names from $fieldnames_level[$i], $!";
		@fieldnames=<FIELDNAMES>;
	close FIELDNAMES;
	chomp (@fieldnames);
	foreach $variable (@fieldnames) {
		print STDOUT 
			"$variable\t" unless (index $variable, "#") >= 0;
	}
	print STDOUT "\n";
}
print STDOUT 
	("MOCNESS_.25\t(",$script_loc,"/",$script_name," MOC.25 pro)\n",
	 "MOCNESS_1\t(",$script_loc,"/",$script_name," MOC1 pro)\n",
	 "MOCNESS_10\t(",$script_loc,"/",$script_name," MOC10 pro)\n");

exit 0;

#-----------------------------------------------
sub sendmessage {

#Send a message to the user.
#The message sent will be in the strings $_[0] and $_[1]

my ( @args, $mailfile, $message0, $message1);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

$message0=$_[0];
$message1=$_[1];
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
if ($year >= 100 and $year <1000) { $year = $year + 1900; }
$mon++;
undef $sec;
undef $isdst;
undef $wday;
undef $yday;
print "#Message from $0\n";
print "# Date of message: $year/$mon/$mday $hour:$min\n";
print ("# $message0\n");
print ("# $message1\n");
return 0;
}