From 9b3829c5c51deb0b0c7067307243bfbe6c8e3b62 Mon Sep 17 00:00:00 2001 From: CFLAG Date: Tue, 26 Nov 2024 13:11:33 +0100 Subject: [PATCH] Use lowercase for the variable name --- src/acl_source.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/acl_source.f90 b/src/acl_source.f90 index 0f585a49..5112f12d 100644 --- a/src/acl_source.f90 +++ b/src/acl_source.f90 @@ -264,7 +264,7 @@ subroutine Compute_Momentum_Source_Term_pointwise implicit none real(mytype), allocatable, dimension(:,:,:) :: ux1_halo, uy1_halo, uz1_halo real(mytype) :: xmesh, ymesh,zmesh - real(mytype) :: dist, epsilon, Kernel + real(mytype) :: dist, epsilon, kernel real(mytype) :: dist2, dist2_max, epsilon2, prefactor, invepsilon2 real(mytype) :: distz2, disty2 real(mytype) :: min_dist, ymax,ymin,zmin,zmax @@ -519,10 +519,10 @@ subroutine Compute_Momentum_Source_Term_pointwise dist2 = disty2 + (Sx(isource)-xmesh)**2 if (dist2 > dist2_max) cycle ! First apply a constant lift to induce the - Kernel = prefactor * exp( - dist2 * invepsilon2) - FTx(i,j,k)=FTx(i,j,k)-SFx(isource)*Kernel - FTy(i,j,k)=FTy(i,j,k)-SFy(isource)*Kernel - FTz(i,j,k)=FTz(i,j,k)-SFz(isource)*Kernel + kernel = prefactor * exp( - dist2 * invepsilon2) + FTx(i,j,k)=FTx(i,j,k)-SFx(isource)*kernel + FTy(i,j,k)=FTy(i,j,k)-SFy(isource)*kernel + FTz(i,j,k)=FTz(i,j,k)-SFz(isource)*kernel enddo enddo enddo