[Dart-dev] DART/releases Revision: 12912

[dart at ucar.edu]

jla at ucar.edu
2018-10-24 13:03:37 -0600 (Wed, 24 Oct 2018)
104
Replacing bad magic number with NVARS - 1; Should be no change in standard configuration functionality.



Modified: DART/releases/Manhattan/models/simple_advection/model_mod.f90
===================================================================
--- DART/releases/Manhattan/models/simple_advection/model_mod.f90	2018-10-24 17:37:42 UTC (rev 12911)
+++ DART/releases/Manhattan/models/simple_advection/model_mod.f90	2018-10-24 19:03:37 UTC (rev 12912)
@@ -181,7 +181,7 @@
 ! Define the locations of the model state variables
 do i = 1, num_grid_points
    x_loc = (i - 1.0_r8) / num_grid_points
-   do j = 0, 4
+   do j = 0, NVARS - 1 
       state_loc(num_grid_points * j + i) = set_location(x_loc)
    enddo
 enddo