hot_strot_diff_cfc_faitomeg.C

/*
 * Functions Hot_star_rot_diff_CFC::fait_omega_field
 *       Hot_star_rot_diff_CFC::fait_prim_field
 *
 *    (see file hot_star_rot_diff_cfc.h for documentation).
 *
 */

/*
 *   Copyright (c) 2025 Santiago Jaraba
 *
 *   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
 *
 */

// Lorene headers
#include "hot_star_rot_diff_cfc.h"
#include "utilitaires.h"
#include "param.h"

namespace Lorene {
    namespace {
        const Hot_star_rot_diff_CFC* p_hotstar = nullptr;
    }

    double strot_diff_fzero(double omeg, const Param& par) ;
    
                //-----------------------------------//
                //      fait_omega_field         //
                //-----------------------------------//
    
    void Hot_star_rot_diff_CFC::fait_omega_field(double omeg_min, double omeg_max,
                       double precis, int nitermax) {
        
        const Mg3d& mg = *(mp.get_mg()) ; 
        int nz = mg.get_nzone() ; 
        int nzm1 = nz - 1 ; 
    
        // Computation of auxiliary quantities:
        // -----------------------------------
        
        Scalar nnn2 = nn * nn ; 
        Scalar rsint(mp) ;
        rsint = 1 ;
        rsint.annule_domain(nzm1) ; 
        rsint.std_spectral_base() ;
        rsint.mult_rsint() ;
    
        Param par ; 
        par.add_scalar(nnn2, 0) ; 
        par.add_scalar(psi4, 1) ; 
        par.add_scalar(beta(3), 2) ;
        par.add_scalar(rsint, 3) ;
    
        int l, k, j, i ;
        par.add_int(l, 0) ;
        par.add_int(k, 1) ;
        par.add_int(j, 2) ;
        par.add_int(i, 3) ;
    
        // par.add_star(*this) ;
        p_hotstar = this ;

        // Loop on the grid points
    // -----------------------

    int niter ;
    
    bool prev_zero = (omega_field.get_etat() == ETATZERO) ;
    
    omega_field.allocate_all() ;

    for (l=0; l<nzet+1; l++) {
        Tbl& tom = omega_field.set_domain(l) ;
    for (k=0; k<mg.get_np(l); k++) {
        for (j=0; j<mg.get_nt(l); j++) {
        for (i=0; i<mg.get_nr(l); i++) {

            double& omeg =  tom.set(k, j, i) ; 

            double omeg_min1, omeg_max1 ; 
            if ( prev_zero || omeg == double(0)) {
            omeg_min1 = omeg_min ; 
            omeg_max1 = omeg_max ; 
            } 
            else{
            omeg_min1 = 0.8 * omeg ; 
            omeg_max1 = 1.2 * omeg ; 
            } 
        
            omeg = zerosec(strot_diff_fzero, par, omeg_min1,
                   omeg_max1, precis, nitermax, niter) ;

        }
        }
    }
    }

    p_hotstar = nullptr ;

    // omega_field is set to 0 far from the star:
    // ---------------------------------------------------
    for (l=nzet+1; l<nz; l++) {
    omega_field.set_domain(l) = 0 ;
    }

    omega_field.std_spectral_base() ;
    
    // Min and Max of Omega
    // --------------------
    
    omega_min = min( omega_field.domain(0) ) ; 
    for (l=1; l<nzet; l++) {
    double xx = min( omega_field.domain(l) ) ; 
    omega_min = (xx < omega_min) ? xx : omega_min ; 
    }
    
    omega_max = max( max( omega_field ) ) ;  

    // Update of prim_field
    // -------------------- 
    fait_prim_field() ;

}


            //----------------------------------------//
            //      strot_diff_fzero        //
            //----------------------------------------//

double strot_diff_fzero(double omeg, const Param& par) {

    const Scalar& nnn2 =  par.get_scalar(0) ;
    const Scalar& p4 = par.get_scalar(1) ;
    const Scalar& beta_phi = par.get_scalar(2) ;
    const Scalar& rsint = par.get_scalar(3) ;
    int l = par.get_int(0) ;
    int k = par.get_int(1) ;
    int j = par.get_int(2) ;
    int i = par.get_int(3) ;
    
    //const Hot_star_rot_diff_CFC* star =
    //  dynamic_cast<const Hot_star_rot_diff_CFC*>(&par.get_star()) ;
        
        double omnp = omeg*rsint.val_grid_point(l, k, j, i) + beta_phi.val_grid_point(l, k, j, i) ;
        double fom = p4.val_grid_point(l, k, j, i)*rsint.val_grid_point(l, k, j, i) * omnp /
        ( nnn2.val_grid_point(l, k, j, i) - 
         p4.val_grid_point(l, k, j, i) * omnp * omnp ) ;

        // cout << omeg << " " << omeg - star->omega_funct(fom) << endl ;

        return omeg - p_hotstar->omega_funct(fom) ;

}


            //-----------------------------------//
            //      fait_prim_field          //
            //-----------------------------------//


void Hot_star_rot_diff_CFC::fait_prim_field() {
   
    const Mg3d& mg = *(mp.get_mg()) ; 
    int nz = mg.get_nzone() ; 
    int nzm1 = nz - 1 ; 

    Scalar rsint(mp) ;
    rsint = 1 ;
    rsint.annule_domain(nzm1) ; 
    rsint.std_spectral_base() ;
    rsint.mult_rsint() ;
    
    Scalar nnn2 = nn * nn ;

    // Loop on the grid points in the vicinity of the star
    // ---------------------------------------------------

    prim_field.allocate_all() ;

    for (int l=0; l<nzet+1; l++) {
        Tbl& tprim = prim_field.set_domain(l) ;
    for (int k=0; k<mg.get_np(l); k++) {
        for (int j=0; j<mg.get_nt(l); j++) {
        for (int i=0; i<mg.get_nr(l); i++) {
            double omnp = omega_field.val_grid_point(l, k, j, i)*rsint.val_grid_point(l, k, j, i)
                            + beta(3).val_grid_point(l, k, j, i) ;

            double F = psi4.val_grid_point(l, k, j, i)*rsint.val_grid_point(l, k, j, i) * omnp /
            ( nnn2.val_grid_point(l, k, j, i) - 
             psi4.val_grid_point(l, k, j, i) * omnp * omnp ) ;
        
            tprim.set(k, j, i) = 
                primfrot( F, par_frot ) ; 
            
        }
        }
    }
    }

    // prim_field is set to 0 far from the star:
    // -----------------------------------------
    for (int l=nzet+1; l<nz; l++) {
    prim_field.set_domain(l) = 0 ;
    }

    prim_field.std_spectral_base() ;
    
    
}

}