Changeset 14215 for NEMO/trunk/src/ICE/icedyn_adv_pra.F90

Timestamp:

2020-12-18T14:49:22+01:00 (3 years ago)

Author:

acc

Message:

trunk changes to swap the order of arguments to the DO LOOP macros. These changes result in a more natural i-j-k ordering as explained in #2595. SETTE is passed before and after these changes and results are unchanged. This fixes #2595

File:

• NEMO/trunk/src/ICE/icedyn_adv_pra.F90 (modified) (3 diffs)

NEMO/trunk/src/ICE/icedyn_adv_pra.F90

@@ -582 +582 @@
          !
          ! Limitation of moments.
-         DO_2D( 1, 1, ji0, ji0 )
+         DO_2D( ji0, ji0, 1, 1 )
             !
             zpsm  = psm (ji,jj,jl) ! optimization
@@ -642 +642 @@
          END_2D
          !
-         DO_2D( 1, 0, ji0, ji0 )
+         DO_2D( ji0, ji0, 1, 0 )
             !                                !  Flux from j+1 to j when v LT 0.
             zalf          = MAX( 0._wp, -pvt(ji,jj) ) * pdt / psm(ji,jj+1,jl)
@@ -662 +662 @@
          END_2D
 
-         DO_2D( 0, 0, ji0, ji0 )
+         DO_2D( ji0, ji0, 0, 0 )
             !                                !  Readjust moments remaining in the box.
             zbt  =         zbet(ji,jj-1)