Bug fix.

cerfacs-globc · Jun 29, 2020 · 32d3035 · 32d3035
1 parent 6f8a184
commit 32d3035
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/libtracks_tools.ftn b/libtracks_tools.ftn
@@ -2857,7 +2857,7 @@ c     Grille coeur - copier-coller
       enddo
 
 c     Extension Ouest
-      do j=ext_j+1,njext_j-ext
+      do j=ext_j+1,njext_j-ext_j
         do i=ext_i,1,-1
             grad=bufext(ext_i+2,j)-bufext(ext_i+1,j)
             gradm=(pp_i*i+bp_i)*grad