Changeset 13497 for NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

Timestamp:

2020-09-21T14:37:46+02:00 (4 years ago)

Author:

techene

Message:

re-introduce comments that have been erased by loops transformation see #2525

File:

• NEMO/trunk/src/ICE/icedyn_rhg_evp.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

@@ -370 +370 @@
          CALL lbc_lnk( 'icedyn_rhg_evp', zds, 'F', 1.0_wp )
 
-         DO_2D( 0, 1, 0, 1 )
+         DO_2D( 0, 1, 0, 1 )   ! loop to jpi,jpj to avoid making a communication for zs1,zs2,zs12 ! no vector loop
 
             ! shear**2 at T points (doc eq. A16)
@@ -704 +704 @@
       END_2D
       
-      DO_2D( 0, 0, 0, 0 )
+      DO_2D( 0, 0, 0, 0 )   ! no vector loop
          
          ! tension**2 at T points