Changeset 13204 for utils/tools/DOMAINcfg/src/mpp_nfd_generic.h90

Timestamp:

2020-07-02T10:38:35+02:00 (4 years ago)

Author:

smasson

Message:

tools: update with tools_dev_r12970_AGRIF_CMEMS

File:

• utils/tools/DOMAINcfg/src/mpp_nfd_generic.h90 (modified) (4 diffs)

utils/tools/DOMAINcfg/src/mpp_nfd_generic.h90

@@ -95 +95 @@
          l_full_nf_update = .TRUE.
 
-         ! Two lines update (slower but necessary to avoid different values ion identical grid points
-         IF ( l_full_nf_update .OR.                          &    ! if coupling fields
-              ( ncom_stp == nit000 .AND. .NOT. ln_rstart ) ) &    ! at first time step, if not restart
-            ipj_s(:) = 2
+         ipj_s(:) = 2
 
          ! Index of modifying lines in input
@@ -154 +151 @@
          ! 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 +202 @@
          ENDIF
          !
-         IF( ln_timing ) CALL tic_tac(.FALSE.)
-         !
          ! North fold boundary condition
          !
@@ -248 +240 @@
          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