Changeset 69

Timestamp:

08/02/12 20:41:23 (12 years ago)

Author:

dubos

Message:

Bugfix in advect.f90 (halo)

File:

• codes/icosagcm/trunk/src/advect.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/advect.f90

@@ -144 +144 @@
     !go to  123
     DO l = 1,llm
-       DO j=jj_begin,jj_end
-          DO i=ii_begin,ii_end
+       DO j=jj_begin-1,jj_end+1
+          DO i=ii_begin-1,ii_end+1
              n=(j-1)*iim+i