Changeset 14930

Timestamp:

2021-05-31T13:03:57+02:00 (3 years ago)

Author:

sparonuz

Message:

Need to disentangle the dependency between these two variables

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/zpshde.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/zpshde.F90

@@ -491 +491 @@
 
          END_2D
-         IF (nn_hls.EQ.1) CALL lbc_lnk( 'zpshde', pgrui, 'U', -1.0_wp , pgrvi, 'V', -1.0_wp )   ! Lateral boundary conditions
+         IF (nn_hls.EQ.1) THEN
+           CALL lbc_lnk( 'zpshde', pgrui, 'U', -1.0_wp)
+           CALL lbc_lnk( 'zpshde', pgrvi, 'V', -1.0_wp )   ! Lateral boundary conditions
+         ENDIF
          !
       END IF