UNESCO.cc File Reference

Example program to plot UNESCO sound velocity. More...

#include <iostream>
#include <iomanip>
#include <string>
#include "TROOT.h"
#include "TFile.h"
#include "TH1D.h"
#include "TH2D.h"
#include "JAcoustics/JUNESCO.hh"
#include "Jeep/JPrint.hh"
#include "Jeep/JParser.hh"
#include "Jeep/JMessage.hh"

Go to the source code of this file.

Functions
int	main (int argc, char **argv)

Detailed Description

Example program to plot UNESCO sound velocity.

Author

mdejong

Definition in file UNESCO.cc.

Function Documentation

main()

int main	(	int	argc,
		char **	argv )

Definition at line 58 of file UNESCO.cc.

{
  using namespace std;
  using namespace JPP;
 
  string   outputFile;
  double   D;
  double   S;
  double   T;
  string   model;
  int      debug;
 
  try {
 
    JParser<> zap("Example program to plot UNESCO sound velocity.");
 
    zap['o'] = make_field(outputFile);
    zap['D'] = make_field(D,     "Depth [m]");
    zap['S'] = make_field(S,     "Salinity [ppk]")    = 38.7;
    zap['T'] = make_field(T,     "Temperature [C]")   = 14.0;
    zap['M'] = make_field(model, "model")             = mackenzie_t, coppens_t, unesco_t, delgrosso_t;
    zap['d'] = make_field(debug)                      = 2;
 
    zap(argc, argv);
  }
  catch(const exception &error) {
    FATAL(error.what() << endl);
  }
 
 
  const double Z[] = { 2000.0, 3450.0 };
 
  STATUS("Velocity " 
         << setw(10) << left << model << right << ' '
         << FIXED(9,2) <<  getVelocity(Z[0], S, T, model) << ' '
         << SCIENTIFIC(12,3) << (getVelocity(Z[0], S, T, model) - getVelocity(Z[1], S, T, model)) / (Z[1] - Z[0]) << ' '
         << FIXED(9,2) << -Z[0] << endl);
 
  TFile out(outputFile.c_str(), "recreate");
 
  TH1D h1(MAKE_CSTRING("h1 [" << model << "]"), NULL, 1000, 2000.0, 3500);
  TH2D h2(MAKE_CSTRING("h2 [" << model << "]"), NULL, 1000, 10.0, 20.0, 1000, 25.0, 40.0);
 
  for (Int_t ix = 1; ix <= h1.GetXaxis()->GetNbins(); ++ix) {
 
    const Double_t D  = h1.GetXaxis()->GetBinCenter(ix);
    const double   V  = getVelocity(D, S, T, model);
      
    h1.SetBinContent(ix, V);
  }
 
  for (Int_t ix = 1; ix <= h2.GetXaxis()->GetNbins(); ++ix) {
    for (Int_t iy = 1; iy <= h2.GetXaxis()->GetNbins(); ++iy) {
 
      const Double_t T  = h2.GetXaxis()->GetBinCenter(ix);
      const Double_t S  = h2.GetYaxis()->GetBinCenter(iy);
 
      const double   V  = getVelocity(D, S, T, model);
      
      h2.SetBinContent(ix, iy, V);
    }
  }
 
  out.Write();
  out.Close();
}