Changeset 9844

Timestamp:

2018-06-26T11:42:19+02:00 (5 years ago)

Author:

smasson

Message:

dev_r9759_HPC09_ESIWACE: better tic_tac

File:

• NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mpp_lnk_generic.h90 (modified) (3 diffs)

NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mpp_lnk_generic.h90

@@ -179 +179 @@
       !
       IF (ncom_stp <= ( nit000 + 1 ) .or. mod(ncom_stp,nn_comm_mod) == 0 ) THEN
-         !
-         CALL tic_tac(.TRUE.)
-         !
          IF ( TRIM(rname) == "simulated_lbc_lnk" ) THEN
             zt3we = zt3we + 1. ; zt3ew = zt3ew + 1.
          ENDIF
+         !
+         CALL tic_tac(.TRUE.)
+         !
          SELECT CASE ( nbondi )
          CASE ( -1 )
@@ -202 +202 @@
             IF(l_isend)   CALL mpi_wait(ml_req1, ml_stat, ml_err )
          END SELECT
+         !
+         CALL tic_tac(.FALSE.)
+         !
       END IF
       !
@@ -266 +269 @@
             zt3sn = zt3sn + 1. ; zt3ns = zt3ns + 1.
          ENDIF
- 
+         !
+         CALL tic_tac(.TRUE.)
+         ! 
          SELECT CASE ( nbondj )
          CASE ( -1 )