<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>