From 862929e41904566a4840956b60fbbce21184b54d Mon Sep 17 00:00:00 2001 From: wpbonelli Date: Tue, 31 Dec 2024 17:40:05 -0500 Subject: [PATCH] revert cellrect.f90 --- src/Solution/ParticleTracker/CellRect.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Solution/ParticleTracker/CellRect.f90 b/src/Solution/ParticleTracker/CellRect.f90 index 7acf2e73238..0105fcd5568 100644 --- a/src/Solution/ParticleTracker/CellRect.f90 +++ b/src/Solution/ParticleTracker/CellRect.f90 @@ -17,10 +17,6 @@ module CellRectModule double precision, public :: sinrot ! sine of rotation angle for local (x, y) double precision, public :: cosrot ! cosine of rotation angle for local (x, y) - double precision, public :: xOrigin ! model x origin for local (x, y) - double precision, public :: yOrigin ! model y origin for local (x, y) - double precision, public :: zOrigin ! model z origin for local z - double precision, public :: vx1 ! west-boundary local-x velocity double precision, public :: vx2 ! east-boundary local-x velocity double precision, public :: vy1 ! south-boundary local-y velocity @@ -29,6 +25,10 @@ module CellRectModule double precision, public :: vz2 ! top-boundary z velocity integer, public :: ipvOrigin ! origin vertex + double precision, public :: xOrigin ! model x origin for local (x, y) + double precision, public :: yOrigin ! model y origin for local (x, y) + double precision, public :: zOrigin ! model z origin for local z + contains procedure :: destroy => destroy_rect ! destructor for the cell end type CellRectType