New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9844 – NEMO

Changeset 9844


Ignore:
Timestamp:
2018-06-26T11:42:19+02:00 (6 years ago)
Author:
smasson
Message:

dev_r9759_HPC09_ESIWACE: better tic_tac

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mpp_lnk_generic.h90

    r9814 r9844  
    179179      ! 
    180180      IF (ncom_stp <= ( nit000 + 1 ) .or. mod(ncom_stp,nn_comm_mod) == 0 ) THEN 
    181          ! 
    182          CALL tic_tac(.TRUE.) 
    183          ! 
    184181         IF ( TRIM(rname) == "simulated_lbc_lnk" ) THEN 
    185182            zt3we = zt3we + 1. ; zt3ew = zt3ew + 1. 
    186183         ENDIF 
     184         ! 
     185         CALL tic_tac(.TRUE.) 
     186         ! 
    187187         SELECT CASE ( nbondi ) 
    188188         CASE ( -1 ) 
     
    202202            IF(l_isend)   CALL mpi_wait(ml_req1, ml_stat, ml_err ) 
    203203         END SELECT 
     204         ! 
     205         CALL tic_tac(.FALSE.) 
     206         ! 
    204207      END IF 
    205208      ! 
     
    266269            zt3sn = zt3sn + 1. ; zt3ns = zt3ns + 1. 
    267270         ENDIF 
    268   
     271         ! 
     272         CALL tic_tac(.TRUE.) 
     273         !  
    269274         SELECT CASE ( nbondj ) 
    270275         CASE ( -1 ) 
Note: See TracChangeset for help on using the changeset viewer.