Changeset 2330 for branches

Timestamp:

2010-10-28T13:21:18+02:00 (14 years ago)

Author:

sga

Message:

NEMO branch nemo_v3_3_beta

bugfix: correct indexing of fly_dta array

for 3d interpolation on the fly, the third index should be a ":" to allow for 1 or jpk levels

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

@@ -1071 +1071 @@
             ni = ref_wgts(kw)%data_jpi(jm,jn,jk)
             nj = ref_wgts(kw)%data_jpj(jm,jn,jk)
-            dta(jm,jn,:) = dta(jm,jn,:) + ref_wgts(kw)%data_wgt(jm,jn,jk) * ref_wgts(kw)%fly_dta(ni+1,nj+1,jk)
+            dta(jm,jn,:) = dta(jm,jn,:) + ref_wgts(kw)%data_wgt(jm,jn,jk) * ref_wgts(kw)%fly_dta(ni+1,nj+1,:)
           END DO
         END DO