Changeset 12336 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ISF/isftbl.F90

Timestamp:

2020-01-24T17:25:42+01:00 (4 years ago)

Author:

acc

Message:

Branch 2019/dev_r11943_MERGE_2019. A few neutral changes to loop statements so that the perl scripts to perform the upcoming DO LOOP macros substitutions will recognise a few loops that diverge from the common coding convention. These include loops where ji and jj are unnecessarily swapped in order; loops that use jpi-1 (for example) instead of jpim1 and loops with comments between the END DO statements

File:

• NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ISF/isftbl.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ISF/isftbl.F90

@@ -259 +259 @@
       ! test: this routine run with pdep = 0 should return 1
       !
-      DO ji = 1, jpi
-         DO jj = 1, jpj
+      DO jj = 1, jpj
+         DO ji = 1, jpi
             ! comput ktop
             ikt = 2