<p><b>dwj07@fsu.edu</b> 2012-04-12 11:07:47 -0600 (Thu, 12 Apr 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Fixing segfaults caused by split_explicit halo updates.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/io/src/core_ocean/mpas_ocn_time_integration_split.F
===================================================================
--- branches/omp_blocks/io/src/core_ocean/mpas_ocn_time_integration_split.F        2012-04-11 16:58:01 UTC (rev 1773)
+++ branches/omp_blocks/io/src/core_ocean/mpas_ocn_time_integration_split.F        2012-04-12 17:07:47 UTC (rev 1774)
@@ -163,10 +163,10 @@
! --- update halos for diagnostic variables
call mpas_timer_start("se halo diag", .false., timer_halo_diagnostic)
- call mpas_dmpar_exch_halo_field(block % state % time_levs(2) % state % Vor_edge)
+ call mpas_dmpar_exch_halo_field(domain % blocklist % state % time_levs(2) % state % Vor_edge)
if (config_h_mom_eddy_visc4 > 0.0) then
- call mpas_dmpar_exch_halo_field(block % state % time_levs(2) % state % divergence)
- call mpas_dmpar_exch_halo_field(block % state % time_levs(2) % state % vorticity)
+ call mpas_dmpar_exch_halo_field(domain % blocklist % state % time_levs(2) % state % divergence)
+ call mpas_dmpar_exch_halo_field(domain % blocklist % state % time_levs(2) % state % vorticity)
end if
call mpas_timer_stop("se halo diag", timer_halo_diagnostic)
@@ -695,7 +695,7 @@
! update halo for thickness and tracer tendencies
call mpas_timer_start("se halo tracers", .false., timer_halo_tracers)
- call mpas_dmpar_exch_halo_field(block % tend % tracers)
+ call mpas_dmpar_exch_halo_field(domain % blocklist % tend % tracers)
call mpas_timer_stop("se halo tracers", timer_halo_tracers)
block => domain % blocklist
</font>
</pre>