Changeset 3369 for branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

Timestamp:

2012-04-26T09:23:19+02:00 (12 years ago)

Author:

sga

Message:

NEMO branch dev_r3337_NOCS10_ICB: bugfix to calculation of iceberg domain and small text changes

File:

• branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90 (modified) (2 diffs)

branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

@@ -193 +193 @@
          i2 = INT( i3/nicbpack )
          i1 = i3 - i2*nicbpack
-         IF( i1 == nimpp+ji-1 ) THEN
+         i3 = INT( src_calving_hflx(ji,jj) )
+         IF( i1 == nimpp+ji-1 .AND. i3 == narea ) THEN
             IF( nicbdi < 0 ) THEN
                nicbdi = ji
@@ -210 +211 @@
          i2 = INT( i3/nicbpack )
          i1 = i3 - i2*nicbpack
-         IF( i2 == njmpp+jj-1 ) THEN
+         i3 = INT( src_calving_hflx(ji,jj) )
+         IF( i2 == njmpp+jj-1 .AND. i3 == narea ) THEN
             IF( nicbdj < 0 ) THEN
                nicbdj = jj