- Timestamp:
- 2015-12-21T14:20:48+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_agrif_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
r6092 r6146 119 119 ! 120 120 #if defined key_lim2 121 DO jb = 1, idx%nblen (jgrd)121 DO jb = 1, idx%nblenrim(jgrd) 122 122 ji = idx%nbi(jb,jgrd) 123 123 jj = idx%nbj(jb,jgrd) … … 139 139 140 140 DO jl = 1, jpl 141 DO jb = 1, idx%nblen (jgrd)141 DO jb = 1, idx%nblenrim(jgrd) 142 142 ji = idx%nbi(jb,jgrd) 143 143 jj = idx%nbj(jb,jgrd) … … 175 175 176 176 DO jl = 1, jpl 177 DO jb = 1, idx%nblen (jgrd)177 DO jb = 1, idx%nblenrim(jgrd) 178 178 ji = idx%nbi(jb,jgrd) 179 179 jj = idx%nbj(jb,jgrd) … … 328 328 329 329 jgrd = 2 ! u velocity 330 DO jb = 1, idx_bdy(ib_bdy)%nblen (jgrd)330 DO jb = 1, idx_bdy(ib_bdy)%nblenrim(jgrd) 331 331 ji = idx_bdy(ib_bdy)%nbi(jb,jgrd) 332 332 jj = idx_bdy(ib_bdy)%nbj(jb,jgrd) … … 357 357 358 358 jgrd = 3 ! v velocity 359 DO jb = 1, idx_bdy(ib_bdy)%nblen (jgrd)359 DO jb = 1, idx_bdy(ib_bdy)%nblenrim(jgrd) 360 360 ji = idx_bdy(ib_bdy)%nbi(jb,jgrd) 361 361 jj = idx_bdy(ib_bdy)%nbj(jb,jgrd)
Note: See TracChangeset
for help on using the changeset viewer.