Changeset 1702 for trunk

Timestamp:

2009-11-03T13:06:19+01:00 (14 years ago)

Author:

rblod

Message:

Fix a bug in IOF for some configurations, see ticket #375

File:

• trunk/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/fldread.F90

@@ -847 +847 @@
 
          ! create input grid, give it a halo to allow gradient calculations
-         ALLOCATE( ref_wgts(nxt_wgt)%fly_dta(ref_wgts(nxt_wgt)%jpiwgt+2, ref_wgts(nxt_wgt)%jpjwgt+2) )
-         IF( ref_wgts(nxt_wgt)%cyclic ) ALLOCATE( ref_wgts(nxt_wgt)%col2(2,ref_wgts(nxt_wgt)%jpjwgt+2) )
+         ! SA: +3 stencil is a patch to avoid out-of-bound computation in some configuration. 
+         ! a more robust solution will be given in next release
+         ALLOCATE( ref_wgts(nxt_wgt)%fly_dta(ref_wgts(nxt_wgt)%jpiwgt+3, ref_wgts(nxt_wgt)%jpjwgt+3) )
+         IF( ref_wgts(nxt_wgt)%cyclic ) ALLOCATE( ref_wgts(nxt_wgt)%col2(2,ref_wgts(nxt_wgt)%jpjwgt+3) )
 
          nxt_wgt = nxt_wgt + 1