From 6a9c9fb43067a6275fbebf9a406f42f8d118ca1b Mon Sep 17 00:00:00 2001 From: Ian Grooms Date: Tue, 12 May 2026 10:09:00 -0600 Subject: [PATCH] add dimensions to real var decl --- src/parameterizations/stochastic/MOM_stochastics.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parameterizations/stochastic/MOM_stochastics.F90 b/src/parameterizations/stochastic/MOM_stochastics.F90 index 42301f60c7..86e22ec57c 100644 --- a/src/parameterizations/stochastic/MOM_stochastics.F90 +++ b/src/parameterizations/stochastic/MOM_stochastics.F90 @@ -108,7 +108,7 @@ subroutine stochastics_init(dt, grid, GV, US, CS, param_file, diag, Time) integer :: nyT, nyB ! number of y-points including halo integer :: default_answer_date ! The default setting for the various ANSWER_DATE flags. integer :: i, j, k ! loop indices - real :: tmp(grid%isdB:grid%iedB,grid%jsdB:grid%jedB) ! Used to construct tapers and weights + real :: tmp(grid%isdB:grid%iedB,grid%jsdB:grid%jedB) ! Used to construct tapers [nondim] integer :: taper_width ! Width (in cells) of the taper that brings the stochastic velocity ! increments to 0 at the boundary. real :: sum_area_wts ! A rotationally symmetric sum of the surrounding area weights