Changeset 2330


Ignore:
Timestamp:
2010-10-28T13:21:18+02:00 (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r2287 r2330  
    10711071            ni = ref_wgts(kw)%data_jpi(jm,jn,jk) 
    10721072            nj = ref_wgts(kw)%data_jpj(jm,jn,jk) 
    1073             dta(jm,jn,:) = dta(jm,jn,:) + ref_wgts(kw)%data_wgt(jm,jn,jk) * ref_wgts(kw)%fly_dta(ni+1,nj+1,jk) 
     1073            dta(jm,jn,:) = dta(jm,jn,:) + ref_wgts(kw)%data_wgt(jm,jn,jk) * ref_wgts(kw)%fly_dta(ni+1,nj+1,:) 
    10741074          END DO 
    10751075        END DO 
Note: See TracChangeset for help on using the changeset viewer.