CoriolisForce.cu

Go to the documentation of this file.

//=======================================================================================
// ____          ____    __    ______     __________   __      __       __        __
// \    \       |    |  |  |  |   _   \  |___    ___| |  |    |  |     /  \      |  |
//  \    \      |    |  |  |  |  |_)   |     |  |     |  |    |  |    /    \     |  |
//   \    \     |    |  |  |  |   _   /      |  |     |  |    |  |   /  /\  \    |  |
//    \    \    |    |  |  |  |  | \  \      |  |     |   \__/   |  /  ____  \   |  |____
//     \    \   |    |  |__|  |__|  \__\     |__|      \________/  /__/    \__\  |_______|
//      \    \  |    |   ________________________________________________________________
//       \    \ |    |  |  ______________________________________________________________|
//        \    \|    |  |  |         __          __     __     __     ______      _______
//         \         |  |  |_____   |  |        |  |   |  |   |  |   |   _  \    /  _____)
//          \        |  |   _____|  |  |        |  |   |  |   |  |   |  | \  \   \_______
//           \       |  |  |        |  |_____   |   \_/   |   |  |   |  |_/  /    _____  |
//            \ _____|  |__|        |________|   \_______/    |__|   |______/    (_______/
//
//  This file is part of VirtualFluids. VirtualFluids 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.
//
//  VirtualFluids 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.
//
//  SPDX-License-Identifier: GPL-3.0-or-later
//  SPDX-FileCopyrightText: Copyright © VirtualFluids Project contributors, see AUTHORS.md in root folder
//
#include "CoriolisForce.h"
 
#include <cstdlib>
 
#include <basics/DataTypes.h>
#include <basics/constants/NumericConstants.h>
 
#include "cuda_helper/CudaGrid.h"
#include <cuda_helper/CudaIndexCalculation.h>
 
namespace vf::gpu {
 
__global__ void computeCoriolis(unsigned long long numberOfNodes, const real* velocityX, const real* velocityY, real* forceX,
                                real* forceY, const real geostrophicWindX, const real geostrophicWindY,
                                const real coriolisParameter)
{
    const uint nodeIndex = vf::cuda::get1DIndexFrom2DBlock();
    if (nodeIndex >= numberOfNodes)
        return;
    forceX[nodeIndex] += -(geostrophicWindY - velocityY[nodeIndex]) * coriolisParameter;
    forceY[nodeIndex] += (geostrophicWindX - velocityX[nodeIndex]) * coriolisParameter;
}
 
void CoriolisForce::interact(int level, uint /**/)
{
    auto parD = para->getParD(level);
    const real velocityRatio = para->getScaledVelocityRatio(level);
    const real timeRatio = para->getScaledTimeRatio(level);
    vf::cuda::CudaGrid grid(parD->numberofthreads, parD->numberOfNodes);
    computeCoriolis<<<grid.grid, grid.threads>>>(parD->numberOfNodes, parD->velocityX, parD->velocityY, parD->forceX_SP,
                                                 parD->forceY_SP, geostrophicWindX / velocityRatio,
                                                 geostrophicWindY / velocityRatio, coriolisParameter * timeRatio);
}
 
}