F77GFMFileOutput.h

Go to the documentation of this file.

// -*- C++ -*-

// Copyright (C) 2003-2007 California Institute of Technology
// Ralf Deiterding, ralf@amroc.net

#ifndef AMROC_F77_GFM_FILEOUTPUT_H
#define AMROC_F77_GFM_FILEOUTPUT_H

#include "F77Interfaces/F77FileOutput.h"
#include "GFMFileOutput.h"

template <class VectorType, class FixupType, class FlagType, int dim>
class F77GFMFileOutput : public F77OutBase<VectorType,dim>,
  public GFMFileOutput<VectorType,FixupType,FlagType,dim> {
  typedef GFMFileOutput<VectorType,FixupType,FlagType,dim> base;
  typedef F77OutBase<VectorType,dim> out_base;
public:
  typedef typename base::vec_grid_fct_type vec_grid_fct_type;  
  typedef typename base::grid_fct_type grid_fct_type;
  typedef typename base::grid_data_type grid_data_type;
  typedef typename base::gfm_solver_type gfm_solver_type;
  typedef typename out_base::generic_func_type generic_func_type;

  F77GFMFileOutput(gfm_solver_type& solver, generic_func_type out) : out_base(out), base(solver) {}

  virtual ~F77GFMFileOutput() {}
  
  virtual void WriteOut(vec_grid_fct_type& u, grid_fct_type& IOfunc) {
    if (!out_base::f_out) return;    
    for (int cnt=1; cnt<=base::Ncnt(); cnt++) { 
      if (base::CompName[cnt-1].c_str()[0] == '-') 
        continue;
      for (int lev=0; lev<=FineLevel(base::GH()); lev++) {
        int Time = CurrentTime(base::GH(),lev); 
        double t = GetPhysicalTime(u,Time,lev);
        out_base::Transform(u,IOfunc,Time,lev,cnt,t);
        base::WriteOut(IOfunc,base::CompName[cnt-1].c_str(),Time,lev,t);
      }
#ifndef DAGH_NO_MPI
      MPI_Barrier(comm_service::comm()); 
#endif
    }
  }

  virtual void WriteOut(grid_fct_type& IOfunc, const char* name) 
  { base::WriteOut(IOfunc,name); }  

  virtual void WriteOut(grid_fct_type& IOfunc, const char* name, 
                        const int& Time, const int& Level, const double& t) 
  { base::WriteOut(IOfunc,name,Time,Level,t); }

  virtual void WriteOut(grid_data_type& IOdata, const char* name, 
                        const int& Time, const int& Level, const double& t) {
    base::WriteOut(IOdata,name,Time,Level,t);
  }
};

#endif      

---