Changeset 12336 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfiwm.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/ZDF/zdfiwm.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfiwm.F90

@@ -169 +169 @@
             END DO
          END DO
+      END DO
 !!gm delta(gde3w) = e3t(:,:,:,Kmm)  !!  Please verify the grid-point position w versus t-point
 !!gm it seems to me that only 1/hcri_iwm  is used ==>  compute it one for all
 
-      END DO
 
       !                        !* Pycnocline-intensified mixing: distribute energy over the time-varying