<p><b>mpetersen@lanl.gov</b> 2011-10-31 14:58:34 -0600 (Mon, 31 Oct 2011)</p><p>Comment out line to initialize tracer1.  Standard grid files now have tracer1=1.  Also, change index so that compiler will give error if tracer1 is changed when tracer1 is not defined.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/performance/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- branches/ocean_projects/performance/src/core_ocean/mpas_ocn_mpas_core.F        2011-10-28 21:22:04 UTC (rev 1157)
+++ branches/ocean_projects/performance/src/core_ocean/mpas_ocn_mpas_core.F        2011-10-31 20:58:34 UTC (rev 1158)
@@ -255,7 +255,7 @@
 !              :block % mesh % nVertLevels,iCell) =  -1e34
 
 ! mrp 110516, added just to test for conservation of tracers
-         block % state % time_levs(1) % state % tracers % array(3,:,iCell) = 1.0
+!         block % state % time_levs(1) % state % tracers % array(block % state % time_levs(1) % state % index_tracer1,:,iCell) = 1.0
 
       end do
 

Modified: branches/ocean_projects/split_explicit_mrp/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- branches/ocean_projects/split_explicit_mrp/src/core_ocean/mpas_ocn_mpas_core.F        2011-10-28 21:22:04 UTC (rev 1157)
+++ branches/ocean_projects/split_explicit_mrp/src/core_ocean/mpas_ocn_mpas_core.F        2011-10-31 20:58:34 UTC (rev 1158)
@@ -250,7 +250,7 @@
 !              :block % mesh % nVertLevels,iCell) =  -1e34
 
 ! mrp 110516, added just to test for conservation of tracers
-         block % state % time_levs(1) % state % tracers % array(3,:,iCell) = 1.0
+!         block % state % time_levs(1) % state % tracers % array(block % state % time_levs(1) % state % index_tracer1,:,iCell) = 1.0
 
       end do
 

Modified: trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2011-10-28 21:22:04 UTC (rev 1157)
+++ trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2011-10-31 20:58:34 UTC (rev 1158)
@@ -248,7 +248,7 @@
 !              :block % mesh % nVertLevels,iCell) =  -1e34
 
 ! mrp 110516, added just to test for conservation of tracers
-         block % state % time_levs(1) % state % tracers % array(3,:,iCell) = 1.0
+!         block % state % time_levs(1) % state % tracers % array(block % state % time_levs(1) % state % index_tracer1,:,iCell) = 1.0
 
       end do
 

</font>
</pre>