Changeset 13492 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfgls.F90
- Timestamp:
- 2020-09-18T17:27:27+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfgls.F90
r13284 r13492 445 445 END DO 446 446 END DO 447 DO jk = 2, jpk 447 DO jk = 2, jpkm1 ! Second recurrence : Lk = RHSk - Lk / Dk-1 * Lk-1 448 448 DO jj = 2, jpjm1 449 449 DO ji = fs_2, fs_jpim1 ! vector opt. … … 452 452 END DO 453 453 END DO 454 DO jk = jpk -1, 2, -1 ! thrid recurrence : Ek = ( Lk - Uk * Ek+1 ) / Dk454 DO jk = jpkm1, 2, -1 ! thrid recurrence : Ek = ( Lk - Uk * Ek+1 ) / Dk 455 455 DO jj = 2, jpjm1 456 456 DO ji = fs_2, fs_jpim1 ! vector opt. … … 673 673 END DO 674 674 END DO 675 DO jk = 2, jpk 675 DO jk = 2, jpkm1 ! Second recurrence : Lk = RHSk - Lk / Dk-1 * Lk-1 676 676 DO jj = 2, jpjm1 677 677 DO ji = fs_2, fs_jpim1 ! vector opt. … … 680 680 END DO 681 681 END DO 682 DO jk = jpk -1, 2, -1 ! Third recurrence : Ek = ( Lk - Uk * Ek+1 ) / Dk682 DO jk = jpkm1, 2, -1 ! Third recurrence : Ek = ( Lk - Uk * Ek+1 ) / Dk 683 683 DO jj = 2, jpjm1 684 684 DO ji = fs_2, fs_jpim1 ! vector opt.
Note: See TracChangeset
for help on using the changeset viewer.