Changeset 13056 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_nfd_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_nfd_generic.h90 (modified) (3 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_nfd_generic.h90

@@ -154 +154 @@
          ! a better test should be: a testing if "suppressed land-processors" belongs to the north-pole folding
          IF ( jpni*jpnj /= jpnij ) ztabr(:,:,:,:,:) = 0._wp
-         !
-         ! start waiting time measurement
-         IF( ln_timing ) CALL tic_tac(.TRUE.)
          !
          DO jr = 1, nsndto
@@ -208 +205 @@
          ENDIF
          !
-         IF( ln_timing ) CALL tic_tac(.FALSE.)
-         !
          ! North fold boundary condition
          !
@@ -248 +243 @@
          IF ( jpni*jpnj /= jpnij ) ztab(:,:,:,:,:) = 0._wp
          !
-         ! start waiting time measurement
-         IF( ln_timing ) CALL tic_tac(.TRUE.)
          CALL MPI_ALLGATHER( znorthloc  , ibuffsize, MPI_DOUBLE_PRECISION,                &
             &                znorthgloio, ibuffsize, MPI_DOUBLE_PRECISION, ncomm_north, ierr )
          !
-         ! stop waiting time measurement
-         IF( ln_timing ) CALL tic_tac(.FALSE.)
          !
          DO jr = 1, ndim_rank_north         ! recover the global north array