Changeset 10314 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_allreduce_generic.h90

Timestamp:

2018-11-15T17:27:18+01:00 (5 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2: add generic glob_min/max/sum and locmin/max, complete timing and report (including bdy and icb), see #2133

File:

• NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_allreduce_generic.h90 (modified) (2 diffs)

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_allreduce_generic.h90

@@ -42 +42 @@
       INTEGER, OPTIONAL, INTENT(in   ) ::   kdim        ! optional pointer dimension
       INTEGER, OPTIONAL, INTENT(in   ) ::   kcom        ! optional communicator
+#if defined key_mpp_mpi
       !
       INTEGER :: ipi, ii, ierr
       INTEGER :: ierror, ilocalcomm
       TMP_TYPE(:)
+      !!-----------------------------------------------------------------------
+      !
+      IF( narea == 1 .AND. numcom == -1 ) CALL mpp_report( cdname, ld_glb = .TRUE. )
       !
       ilocalcomm = mpi_comm_oce
@@ -55 +59 @@
          ipi = I_SIZE(ptab)   ! 1st dimension
       ENDIF
-
+      !
+      ALLOCATE(work(ipi))
       IF( ln_timing ) CALL tic_tac(.TRUE., ld_global = .TRUE.)
-      ALLOCATE(work(ipi))
       CALL mpi_allreduce( ARRAY_IN(:), work, ipi, MPI_TYPE, MPI_OPERATION, ilocalcomm, ierror )
+      IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.)
       DO ii = 1, ipi
          ARRAY_IN(ii) = work(ii)
       ENDDO
       DEALLOCATE(work)
-      IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.)
-      !
-      IF( narea == 1 .AND. ncom_stp == nit000+5 ) THEN
-            IF( .NOT. ALLOCATED( crname_glb) ) THEN
-               ALLOCATE( crname_glb(2000), STAT=ierr )
-               IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'allreduce_generic, cannot allocate crname' )
-            ENDIF
-            n_sequence_glb = n_sequence_glb + 1
-            IF( n_sequence_glb > 2000 ) CALL ctl_stop( 'STOP', 'allreduce_generic, increase crname_glb first dimension' )
-            crname_glb(n_sequence_glb)   = cdname    ! keep the name of the calling routine
-      ENDIF
+#else
+      WRITE(*,*) 'ROUTINE_ALLREDUCE: You should not have seen this print! error?'
+#endif
 
    END SUBROUTINE ROUTINE_ALLREDUCE