Changeset 14215 for NEMO/trunk/src/OCE/TRA/trabbl.F90
- Timestamp:
- 2020-12-18T14:49:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/trabbl.F90
r14189 r14215 248 248 DO jn = 1, kjpt ! tracer loop 249 249 ! ! =========== 250 DO_2D( is j, 0, isi, 0 ) ! CAUTION start from i=1 to update i=2 when cyclic east-west250 DO_2D( isi, 0, isj, 0 ) ! CAUTION start from i=1 to update i=2 when cyclic east-west 251 251 IF( utr_bbl(ji,jj) /= 0.e0 ) THEN ! non-zero i-direction bbl advection 252 252 ! down-slope i/k-indices (deep) & up-slope i/k indices (shelf)
Note: See TracChangeset
for help on using the changeset viewer.