- Timestamp:
- 2018-06-20T15:41:08+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mpp_nfd_generic.h90
r9690 r9814 110 110 END DO 111 111 END DO 112 ! 113 IF (ncom_stp <= ( nit000 + 1 ) .or. mod(ncom_stp,nn_comm_mod) == 0 ) THEN 114 ! start waiting time measurement 115 CALL tic_tac(.TRUE.) 112 116 ! 113 117 DO jr = 1, nsndto … … 157 161 END DO 158 162 ENDIF 163 ! stop waiting time measurement 164 CALL tic_tac(.FALSE.) 165 ENDIF 166 ! 159 167 DO jf = 1, ipf 160 168 CALL lbc_nfd_nogather( ztabl(:,:,:,:,jf), ztabr(:,:,:,:,jf), cd_nat LBC_ARG, psgn LBC_ARG ) ! North fold boundary condition … … 179 187 ALLOCATE( znorthgloio(jpimax,4,ipk,ipl,ipf,jpni) ) 180 188 ! 181 CALL MPI_ALLGATHER( znorthloc , itaille, MPI_DOUBLE_PRECISION, & 182 & znorthgloio, itaille, MPI_DOUBLE_PRECISION, ncomm_north, ierr ) 189 IF (ncom_stp <= ( nit000 + 1 ) .or. mod(ncom_stp,nn_comm_mod) == 0 ) THEN 190 ! start waiting time measurement 191 CALL tic_tac(.TRUE.) 192 IF (ncom_stp <= ( nit000 + 1 ) .or. mod(ncom_stp,nn_comm_mod) == 0 ) THEN 193 CALL MPI_ALLGATHER( znorthloc , itaille, MPI_DOUBLE_PRECISION, & 194 & znorthgloio, itaille, MPI_DOUBLE_PRECISION, ncomm_north, ierr ) 195 ENDIF 196 ! 197 ! stop waiting time measurement 198 CALL tic_tac(.FALSE.) 199 ENDIF 183 200 ! 184 201 ztab(:,:,:,:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.