- Timestamp:
- 2012-04-30T13:24:25+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbdyn.F90
r3373 r3374 194 194 ! 195 195 ! map into current processor 196 ii0 = ii0 - nimpp + 1197 ij0 = ij0 - njmpp + 1198 ii = ii - nimpp + 1199 ij = ij - njmpp + 1196 ii0 = mi1( ii0 ) 197 ij0 = mj1( ij0 ) 198 ii = mi1( ii ) 199 ij = mj1( ij ) 200 200 ! 201 201 IF( tmask(ii,ij,1) /= 0._wp ) RETURN ! berg reach a new t-cell, but an ocean one
Note: See TracChangeset
for help on using the changeset viewer.