Fix OBC check if not associated.

Author: kshedstrom

src/tracer/MOM_tracer_advect.F90

@@ -649,17 +649,19 @@ subroutine advect_x(Tr, hprev, uhr, uh_neglect, OBC, domore_u, ntr, Idt, &
     enddo
 
     ! Update do_i so that nothing changes outside of the OBC (problem for interior OBCs only)
-    if (associated(OBC) .and. (OBC%exterior_OBC_bug .eqv. .false.)) then ; if (OBC%OBC_pe) then
-      if (OBC%specified_u_BCs_exist_globally .or. OBC%open_u_BCs_exist_globally) then
-        do i=is,ie-1 ; if (OBC%segnum_u(I,j) /= OBC_NONE) then
-          if (OBC%segment(OBC%segnum_u(I,j))%direction == OBC_DIRECTION_E) then
-            do_i(i+1,j) = .false.
-          elseif (OBC%segment(OBC%segnum_u(I,j))%direction == OBC_DIRECTION_W) then
-            do_i(i,j) = .false.
-          endif
-        endif ; enddo
+    if (associated(OBC)) then
+      if ((OBC%exterior_OBC_bug .eqv. .false.) .and. (OBC%OBC_pe)) then
+        if (OBC%specified_u_BCs_exist_globally .or. OBC%open_u_BCs_exist_globally) then
+          do i=is,ie-1 ; if (OBC%segnum_u(I,j) /= OBC_NONE) then
+            if (OBC%segment(OBC%segnum_u(I,j))%direction == OBC_DIRECTION_E) then
+              do_i(i+1,j) = .false.
+            elseif (OBC%segment(OBC%segnum_u(I,j))%direction == OBC_DIRECTION_W) then
+              do_i(i,j) = .false.
+            endif
+          endif ; enddo
+        endif
       endif
-    endif ; endif
+    endif
 
     ! update tracer concentration from i-flux and save some diagnostics
     do m=1,ntr
@@ -1053,22 +1055,24 @@ subroutine advect_y(Tr, hprev, vhr, vh_neglect, OBC, domore_v, ntr, Idt, &
     enddo
 
     ! Update do_i so that nothing changes outside of the OBC (problem for interior OBCs only)
-    if (associated(OBC) .and. (OBC%exterior_OBC_bug .eqv. .false.)) then ; if (OBC%OBC_pe) then
-      if (OBC%specified_v_BCs_exist_globally .or. OBC%open_v_BCs_exist_globally) then
-        do i=is,ie
-          if (OBC%segnum_v(i,J-1) /= OBC_NONE) then
-            if (OBC%segment(OBC%segnum_v(i,J-1))%direction == OBC_DIRECTION_N) then
-              do_i(i,j) = .false.
+    if (associated(OBC)) then
+      if ((OBC%exterior_OBC_bug .eqv. .false.) .and. (OBC%OBC_pe)) then
+        if (OBC%specified_v_BCs_exist_globally .or. OBC%open_v_BCs_exist_globally) then
+          do i=is,ie
+            if (OBC%segnum_v(i,J-1) /= OBC_NONE) then
+              if (OBC%segment(OBC%segnum_v(i,J-1))%direction == OBC_DIRECTION_N) then
+                do_i(i,j) = .false.
+              endif
             endif
-          endif
-          if (OBC%segnum_v(i,J) /= OBC_NONE) then
-            if (OBC%segment(OBC%segnum_v(i,J))%direction == OBC_DIRECTION_S) then
-              do_i(i,j) = .false.
+            if (OBC%segnum_v(i,J) /= OBC_NONE) then
+              if (OBC%segment(OBC%segnum_v(i,J))%direction == OBC_DIRECTION_S) then
+                do_i(i,j) = .false.
+              endif
             endif
-          endif
-        enddo
+          enddo
+        endif
       endif
-    endif ; endif
+    endif
 
     ! update tracer and save some diagnostics
     do m=1,ntr