UNESCO.cc

Go to the documentation of this file.

#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"
 
namespace {
 
  using namespace JPP;
 
  const char* const mackenzie_t  =  "Mackenzie";
  const char* const coppens_t    =  "Coppens";
  const char* const unesco_t     =  "UNESCO";
  const char* const delgrosso_t  =  "DelGrosso";
 
  /**
   * Get sound velocity.
   *
   * \param  D            depth [m]
   * \param  S            salinity [ppk]
   * \param  T            temperature [C]
   * \param  model        model
   * \return              sound velocity [m/s]
   */
  inline double getVelocity(const double D, const double S, const double T, const std::string& model)
  {
    const double latitude = 36.0 + 16.0/60.0;                  // [deg]
    const double P        = getPressure(D, latitude, true);    // [MPa]
 
    if      (model == mackenzie_t)
      return getVelocityMackenzie(D, S, T);
    else if (model == coppens_t)
      return getVelocityCoppens(D, S, T);
    else if (model == unesco_t)
      return getVelocityUNESCO(P * 1e1, S, T);
    else if (model == delgrosso_t)
      return getVelocityDelGrosso(P * 1e1, S, T);
    else
      return 0.0;
  }
}
 
/**
 * \file
 *
 * Example program to plot UNESCO sound velocity.
 * \author mdejong
 */
int main(int argc, char **argv)
{
  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();
}