Merge pull request #86 from gustavo-marques/bug_fix_convert_IOB_to_fo…

…rces Move pointer assignment outside of loop
NOAA-GFDL · Dec 12, 2018 · dd6cb7f · dd6cb7f
2 parents ca03196 + 88fd8c6
commit dd6cb7f
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/config_src/mct_driver/MOM_surface_forcing.F90 b/config_src/mct_driver/MOM_surface_forcing.F90
@@ -599,13 +599,14 @@ subroutine convert_IOB_to_forces(IOB, forces, index_bounds, Time, G, CS)
         forces%p_surf(i,j) = forces%p_surf_full(i,j)
       endif
 
-      if (CS%use_limited_P_SSH) then
-        forces%p_surf_SSH => forces%p_surf
-      else
-        forces%p_surf_SSH => forces%p_surf_full
-      endif
-    end if
-  end do; end do
+    endif
+  enddo; enddo
+
+  if (CS%use_limited_P_SSH) then
+    forces%p_surf_SSH => forces%p_surf
+  else
+    forces%p_surf_SSH => forces%p_surf_full
+  endif
 
   ! GMM, CIME uses AGRID. All the BGRID_NE code can be cleaned later
   wind_stagger = AGRID