Changeset 5887 for branches/2015/nemo_v3_6_STABLE
- Timestamp:
- 2015-11-13T17:45:21+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
r5215 r5887 115 115 ! 116 116 #if defined key_lim2 117 DO jb = 1, idx%nblen (jgrd)117 DO jb = 1, idx%nblenrim(jgrd) 118 118 ji = idx%nbi(jb,jgrd) 119 119 jj = idx%nbj(jb,jgrd) … … 135 135 136 136 DO jl = 1, jpl 137 DO jb = 1, idx%nblen (jgrd)137 DO jb = 1, idx%nblenrim(jgrd) 138 138 ji = idx%nbi(jb,jgrd) 139 139 jj = idx%nbj(jb,jgrd) … … 171 171 172 172 DO jl = 1, jpl 173 DO jb = 1, idx%nblen (jgrd)173 DO jb = 1, idx%nblenrim(jgrd) 174 174 ji = idx%nbi(jb,jgrd) 175 175 jj = idx%nbj(jb,jgrd) … … 324 324 325 325 jgrd = 2 ! u velocity 326 DO jb = 1, idx_bdy(ib_bdy)%nblen (jgrd)326 DO jb = 1, idx_bdy(ib_bdy)%nblenrim(jgrd) 327 327 ji = idx_bdy(ib_bdy)%nbi(jb,jgrd) 328 328 jj = idx_bdy(ib_bdy)%nbj(jb,jgrd) … … 353 353 354 354 jgrd = 3 ! v velocity 355 DO jb = 1, idx_bdy(ib_bdy)%nblen (jgrd)355 DO jb = 1, idx_bdy(ib_bdy)%nblenrim(jgrd) 356 356 ji = idx_bdy(ib_bdy)%nbi(jb,jgrd) 357 357 jj = idx_bdy(ib_bdy)%nbj(jb,jgrd)
Note: See TracChangeset
for help on using the changeset viewer.