[AnjaMiehe]

Hello everyone,

I am trying to implement the following:
- the thermophysical property "DT" shall be read from a data file and interpolated according to the temperature in the solution domain.

Reading some posts here on cfd-online.com I got quite far, only the bounary values of the "DT" field are not calculated.

#######
The Solver - based on icoFoam with TEqn according to wiki, but "DT" as volScalarField
#######

The icoFileFoam.C file

/*---------------------------------------------------------------------------*\
  =========                 |
  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   \\    /   O peration     |
    \\  /    A nd           | Copyright (C) 2011 OpenFOAM Foundation
     \\/     M anipulation  |
-------------------------------------------------------------------------------
License
    This file is part of OpenFOAM.

    OpenFOAM 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 3 of the License, or
    (at your option) any later version.

    OpenFOAM 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 OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.

Application
    icoFoam

Description
    Transient solver for incompressible, laminar flow of Newtonian fluids.

\*---------------------------------------------------------------------------*/

#include "fvCFD.H"
#include "IFstream.H"
#include "graph.H"
#include "interpolateXY.H"

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //

int main(int argc, char *argv[])
{
    #include "setRootCase.H"

    #include "createTime.H"
    #include "createMesh.H"
    #include "createFields.H"
    #include "initContinuityErrs.H"
    #include "interpolateProperties.H"

    // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //

    Info<< "\nStarting time loop\n" << endl;

    while (runTime.loop())
    {
        Info<< "Time = " << runTime.timeName() << nl << endl;

        #include "readPISOControls.H"
        #include "CourantNo.H"

        fvVectorMatrix UEqn
        (
            fvm::ddt(U)
          + fvm::div(phi, U)
          - fvm::laplacian(nu, U)
        );

        solve(UEqn == -fvc::grad(p));

        // --- PISO loop

        for (int corr=0; corr<nCorr; corr++)
        {
            volScalarField rAU(1.0/UEqn.A());

            U = rAU*UEqn.H();
            phi = (fvc::interpolate(U) & mesh.Sf())
                + fvc::ddtPhiCorr(rAU, U, phi);

            adjustPhi(phi, U, p);

            for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
            {
                fvScalarMatrix pEqn
                (
                    fvm::laplacian(rAU, p) == fvc::div(phi)
                );

                pEqn.setReference(pRefCell, pRefValue);
                pEqn.solve();

                if (nonOrth == nNonOrthCorr)
                {
                    phi -= pEqn.flux();
                }
            }

            #include "continuityErrs.H"

            U -= rAU*fvc::grad(p);
            U.correctBoundaryConditions();
        }

        #include "interpolateProperties.H"

        fvScalarMatrix TEqn
        (
            fvm::ddt(T)
            + fvm::div(phi, T)
            - fvm::laplacian(DT, T)
        );

        TEqn.solve();

        runTime.write();

        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
            << nl << endl;
    }

    Info<< "End\n" << endl;

    return 0;
}


// ************************************************************************* //

The createFields.H

    Info<< "Reading transportProperties\n" << endl;

    IOdictionary transportProperties
    (
        IOobject
        (
            "transportProperties",
            runTime.constant(),
            mesh,
            IOobject::MUST_READ_IF_MODIFIED,
            IOobject::NO_WRITE
        )
    );

    dimensionedScalar nu
    (
        transportProperties.lookup("nu")
    );

    Info<< "Reading field p\n" << endl;
    volScalarField p
    (
        IOobject
        (
            "p",
            runTime.timeName(),
            mesh,
            IOobject::MUST_READ,
            IOobject::AUTO_WRITE
        ),
        mesh
    );


    Info<< "Reading field U\n" << endl;
    volVectorField U
    (
        IOobject
        (
            "U",
            runTime.timeName(),
            mesh,
            IOobject::MUST_READ,
            IOobject::AUTO_WRITE
        ),
        mesh
    );

    Info<< "Reading field T\n" <<endl;
    volScalarField T
    (
        IOobject
        (
             "T",
             runTime.timeName(),
             mesh,
             IOobject::MUST_READ,
             IOobject::AUTO_WRITE
         ),
         mesh
    );

    volScalarField DT
    (
        IOobject
        (
             "DT",
             runTime.timeName(),
             mesh,
             IOobject::NO_READ,
             IOobject::AUTO_WRITE
         ),
         mesh,
         dimensionedScalar ("DT",dimensionSet (0,2,-1,0,0,0,0), 1e-3) // this is just for initializing 
    );


#   include "createPhi.H"


    label pRefCell = 0;
    scalar pRefValue = 0.0;
    setRefCell(p, mesh.solutionDict().subDict("PISO"), pRefCell, pRefValue);

the interpolateProperties.H

    Info << "Reading DT property file and interpolate" << endl; 
    IFstream file_DT(runTime.path()/runTime.constant()/"DT"); 
    
    //Read file
    graph DTGraph
    (
        "DT_data_file",
        "T_data",
        "DT_data",
        file_DT
    ); 
    
    //Interpolation
    DT.field() = interpolateXY
    (
        T.field(),
        DTGraph.x(),
        DTGraph.y()
    );

The complete code is attached as zip.

######
The test case
######
It is conduction only, a block 1 m long, 0.1 m high and 0.01 m in width with 100x10x1 cells. Every boundary is a wall (or empty), no velocity and the temperature is set to 273.15 K except for the right wall being 373.15 K.
I used funkySetFields -time 0 -field T -keepPatches -expression "pos().x*50.0+273.15" to see the effect of interpolated "DT" field. As coded, the file "DT" is in the folder "constant".

The test case is attached as zip, too.

All this works fine. The "DT" field is written to the time directory as demanded and interpolated. Only, the boundary values of the "DT" stay 1e-3 as given in the createFields.H for initialisation (that's also why I chose this odd value). Therefore, the temperature does not build up to a linear slope from left to right, from 273.15 K to 373.15 K as it should. The written-out "DT" file gives sensible values in the internal field, but only "calculated 1e-3" for every boundary.

This means, the boundary values of "DT" are not updated. Can anyone tell me, what line of coding is missing to interpolated these according to temperature, too ? Or maybe, anyone knows that the error is somewhere else?

Thanks in advance
Anja

[AnjaMiehe]

I got it.
The interpolateProperties.H has to look as follows to account for the boundary values as well:

    IFstream file_DT(runTime.path()/runTime.constant()/"DT");
    //Read file
    graph DTGraph
    (
        "DT_data_file",
        "T_data",
        "DT_data",
        file_DT
    ); 
    
    //Interpolation internal field
    DT.field() = interpolateXY
    (
        T.field(),
        DTGraph.x(),
        DTGraph.y()
    );

    //Interpolation boundary field
    forAll(DT.boundaryField(), patchi)
    {
        DT.boundaryField()[patchi] = interpolateXY
        (
            T.boundaryField()[patchi],
            DTGraph.x(),
            DTGraph.y()
        );
    }

Now it works, have fun using it.
Anja

[armyou]

Thank you for sharing. Anja

[pmdelgado2]

When I run this interpolateProperties.H file in parallel, I get the following error (OF2.3.1):

error in IOstream "/path/to/case/directory/processor3/constant/DT" for operation operator >>(Istream&,List<T>&) from function IOstream::fatalCheck(const char*) .

Has anyone else tried this code in parallel? Is there any way I can modify this code so that it runs in parallel?

[pmdelgado2]

I figured out what the problem was with doing this in parallel.

Apparently, when you run decomposePar, the solver will automatically look for the tabular files in the subfolders

/path/to/case/directory/processor0/constant/
/path/to/case/directory//processor1/constant/
etc..,

instead of just in the directory

/path/to/case/directory/constant/

To resolve this issue, you need to copy the tabular file "DT" from

/path/to/case/directory/constant/DT

to

/path/to/case/directory/processor0/constant/DT
/path/to/case/directory/processor1/constant/DT
etc...

It may be helpful to do this in a loop within your script.

[Annier]

Thanks for this discussion and it has proved quite helpful for me to define temperature dependent properties in OpenFOAM.

[GooseEast]

I recurrent it in OpenFOAM-v2306 and get the following error:
interpolateProperties.H:29:9: error: passing ‘const Foam::fvPatchField<double>’ as ‘this’ argument discards qualifiers [-fpermissive] 29 | ); | ^
which the error part is://Interpolation boundary field
forAll(DT.boundaryField(), patchi)
{
DT.boundaryField()[patchi] = interpolateXY
(
T.boundaryField()[patchi],
DTGraph.x(),
DTGraph.y()
);
}
Is there any way I can modify this part code so that it runs in OpenFOAM-v2306?

[makaveli_lcf]

Hi!


The error is that you send a 'constant' field as an argument to function where it must be modified. Check syntax of the interpolateXY() function for your OF version.