Derived.hs

module SaltMarsh.Derived where

-- Module
import           SaltMarsh.Constants

{- Derived simulation parameters
 -
 - XXX: this is not a good way to do it. The size of the grid should be
 - taken directly from the 'shape' of the input array.
 -   * TLM 2019-04-02
 -}

grid_Width  = block_Size_X * block_Number_X     -- Matrix A width
grid_Height = block_Size_Y * block_Number_Y     -- Matrix A height

dX, dY :: Exp Float
dX =  lengthX / grid_Width
dY =  lengthY / grid_Height

{-  Symbol        Description
 -  ----------------------------------------------------------------------------
 -  grid_Width    Matrix A width
 -  grid_Height   Matrix A height
 -  dX            Space step
 -  dY            Space step
 -}