Changeset 13056 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_lnk_generic.h90

Timestamp:

2020-06-07T18:26:09+02:00 (4 years ago)

Author:

rblod

Message:

ticket #2129 : cleaning domcfg

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_lnk_generic.h90 (modified) (4 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_lnk_generic.h90

@@ -154 +154 @@
       imigr = nn_hls * jpj * ipk * ipl * ipf      
       !
-      IF( ln_timing ) CALL tic_tac(.TRUE.)
-      !
       SELECT CASE ( nbondi )
       CASE ( -1 )
@@ -173 +171 @@
          IF(l_isend)   CALL mpi_wait(ml_req1, ml_stat, ml_err )
       END SELECT
-      !
-      IF( ln_timing ) CALL tic_tac(.FALSE.)
       !
       !                           ! Write Dirichlet lateral conditions
@@ -276 +272 @@
       imigr = nn_hls * jpi * ipk * ipl * ipf
       !
-      IF( ln_timing ) CALL tic_tac(.TRUE.)
-      ! 
       SELECT CASE ( nbondj )
       CASE ( -1 )
@@ -296 +290 @@
       END SELECT
       !
-      IF( ln_timing ) CALL tic_tac(.FALSE.)
-      !                           ! Write Dirichlet lateral conditions
       ijhom = nlcj-nn_hls
       !