et_rot_diff.h

/*
 *  Definition of Lorene class Et_rot_diff
 *
 */
 
/*
 *   Copyright (c) 2001 Eric Gourgoulhon
 *
 *   This file is part of LORENE.
 *
 *   LORENE is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   LORENE is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with LORENE; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */
 
 
#ifndef __ET_ROT_DIFF_H_ 
#define __ET_ROT_DIFF_H_ 
 
/*
 * $Id: et_rot_diff.h,v 1.6 2021/04/13 11:24:53 j_novak Exp $
 * $Log: et_rot_diff.h,v $
 * Revision 1.6  2021/04/13 11:24:53  j_novak
 * Corrected a bug in Etoile_rot::fait_shift() which was missing the np=1 case.
 *
 * Revision 1.5  2014/10/13 08:52:34  j_novak
 * Lorene classes and functions now belong to the namespace Lorene.
 *
 * Revision 1.4  2005/10/05 15:14:47  j_novak
 * Added a Param* as parameter of Etoile_rot::equilibrium
 *
 * Revision 1.3  2004/03/22 13:12:41  j_novak
 * Modification of comments to use doxygen instead of doc++
 *
 * Revision 1.2  2002/09/13 09:17:33  j_novak
 * Modif. commentaires
 *
 * Revision 1.1.1.1  2001/11/20 15:19:27  e_gourgoulhon
 * LORENE
 *
 * Revision 1.2  2001/10/25  09:20:35  eric
 * Ajout de la fonction virtuelle display_poly.
 *
 * Revision 1.1  2001/10/19  08:17:59  eric
 * Initial revision
 *
 *
 * $Header: /cvsroot/Lorene/C++/Include/et_rot_diff.h,v 1.6 2021/04/13 11:24:53 j_novak Exp $
 *
 */
 
// Headers Lorene
#include "etoile.h"
 
namespace Lorene {
 
class Et_rot_diff : public Etoile_rot {
 
    // Data : 
    // -----
    protected:
    double (*frot)(double, const Tbl&) ;
    
    double (*primfrot)(double, const Tbl&) ;
    
    Tbl par_frot ; 
    
    Tenseur omega_field ; 
    
    double omega_min ;   
    double omega_max ;   
    
    Tenseur prim_field ; 
    
    // Constructors - Destructor
    // -------------------------
    public:
    Et_rot_diff(Map& mp_i, int nzet_i, bool relat, const Eos& eos_i, 
            double (*frot_i)(double, const Tbl&), 
            double (*primfrot_i)(double, const Tbl&), 
            const Tbl& par_frot_i) ;            
 
    Et_rot_diff(const Et_rot_diff& ) ;      

    Et_rot_diff(Map& mp_i, const Eos& eos_i, FILE* fich,
            double (*frot_i)(double, const Tbl&), 
            double (*primfrot_i)(double, const Tbl&) ) ;            
    
    virtual ~Et_rot_diff() ;            
 
 
    // Memory management
    // -----------------
 
    // Everything is inherited from Etoile_rot
 
    // Mutators / assignment
    // ---------------------
    public:
    void operator=(const Et_rot_diff& ) ;   
    
    // Accessors
    // ---------
    public:
    const Tenseur& get_omega_field() const {return omega_field;} ; 
 
    virtual double get_omega_c() const ;        
 
    // Outputs
    // -------
    public:
    virtual void sauve(FILE *) const ;      
    
    virtual void display_poly(ostream& ) const ; 
 
    protected:
    virtual ostream& operator>>(ostream& ) const ;    
 
 
    // Computational routines
    // ----------------------
    public: 
 
    virtual double tsw() const ;        

    virtual void hydro_euler() ; 

    void fait_omega_field(double omeg_min, double omeg_max,
                  double precis, int nitermax) ;
    
    void fait_prim_field() ;
    
    double funct_omega(double omeg) const ;     

    double prim_funct_omega(double omeg) const ;    

    virtual void equilibrium(double ent_c, double omega0, double fact_omega, 
             int nzadapt, const Tbl& ent_limit,
             const Itbl& icontrol, const Tbl& control,
             double mbar_wanted, double aexp_mass, 
             Tbl& diff, Param* = 0x0) ;
    
 };
 
}
#endif