Changeset 10297 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/lib_fortran.F90

Timestamp:

2018-11-12T16:20:57+01:00 (5 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of mppmin/max/sum, see #2133

File:

• NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/lib_fortran.F90 (modified) (15 diffs)

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/lib_fortran.F90

@@ -84 +84 @@
          CALL DDPDD( CMPLX( ztmp, 0.e0, wp ), ctmp )
          END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_1d = REAL(ctmp,wp)
       !
@@ -111 +111 @@
          END DO
       END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_2d = REAL(ctmp,wp)
       !
@@ -144 +144 @@
          END DO
       END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_3d = REAL(ctmp,wp)
       !
@@ -174 +174 @@
          END DO
       END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_2d_a = REAL(ctmp,wp)
       !
@@ -209 +209 @@
          END DO    
       END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_3d_a = REAL(ctmp,wp)
       !
@@ -236 +236 @@
          END DO
       END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_full_2d = REAL(ctmp,wp)
       !
@@ -268 +268 @@
          END DO
       END DO
-      IF( lk_mpp )   CALL mpp_sum( ctmp )   ! sum over the global domain
+      IF( lk_mpp )   CALL mpp_sum( 'lib_fortran', ctmp )   ! sum over the global domain
       glob_sum_full_3d = REAL(ctmp,wp)
       !
@@ -285 +285 @@
       !
       glob_min_2d = MINVAL( ptab(:,:)*tmask_i(:,:) )
-      IF( lk_mpp )   CALL mpp_min( glob_min_2d )
+      IF( lk_mpp )   CALL mpp_min( 'lib_fortran', glob_min_2d )
       !
    END FUNCTION glob_min_2d
@@ -308 +308 @@
          glob_min_3d = MIN( glob_min_3d, MINVAL( ptab(:,:,jk)*tmask_i(:,:) ) )
       END DO
-      IF( lk_mpp )   CALL mpp_min( glob_min_3d )
+      IF( lk_mpp )   CALL mpp_min( 'lib_fortran', glob_min_3d )
       !
    END FUNCTION glob_min_3d
@@ -325 +325 @@
       glob_min_2d_a(1) = MINVAL( ptab1(:,:)*tmask_i(:,:) )
       glob_min_2d_a(2) = MINVAL( ptab2(:,:)*tmask_i(:,:) )
-      IF( lk_mpp )   CALL mpp_min( glob_min_2d_a, 2 )
+      IF( lk_mpp )   CALL mpp_min( 'lib_fortran', glob_min_2d_a, 2 )
       !
    END FUNCTION glob_min_2d_a
@@ -351 +351 @@
          glob_min_3d_a(2) = MIN( glob_min_3d_a(2), MINVAL( ptab2(:,:,jk)*tmask_i(:,:) ) )
       END DO
-      IF( lk_mpp )   CALL mpp_min( glob_min_3d_a, 2 )
+      IF( lk_mpp )   CALL mpp_min( 'lib_fortran', glob_min_3d_a, 2 )
       !
    END FUNCTION glob_min_3d_a
@@ -367 +367 @@
       !
       glob_max_2d = MAXVAL( ptab(:,:)*tmask_i(:,:) )
-      IF( lk_mpp )   CALL mpp_max( glob_max_2d )
+      IF( lk_mpp )   CALL mpp_max( 'lib_fortran', glob_max_2d )
       !
    END FUNCTION glob_max_2d
@@ -390 +390 @@
          glob_max_3d = MAX( glob_max_3d, MAXVAL( ptab(:,:,jk)*tmask_i(:,:) ) )
       END DO
-      IF( lk_mpp )   CALL mpp_max( glob_max_3d )
+      IF( lk_mpp )   CALL mpp_max( 'lib_fortran', glob_max_3d )
       !
    END FUNCTION glob_max_3d
@@ -407 +407 @@
       glob_max_2d_a(1) = MAXVAL( ptab1(:,:)*tmask_i(:,:) )
       glob_max_2d_a(2) = MAXVAL( ptab2(:,:)*tmask_i(:,:) )
-      IF( lk_mpp )   CALL mpp_max( glob_max_2d_a, 2 )
+      IF( lk_mpp )   CALL mpp_max( 'lib_fortran', glob_max_2d_a, 2 )
       !
    END FUNCTION glob_max_2d_a
@@ -433 +433 @@
          glob_max_3d_a(2) = MAX( glob_max_3d_a(2), MAXVAL( ptab2(:,:,jk)*tmask_i(:,:) ) )
       END DO
-      IF( lk_mpp )   CALL mpp_max( glob_max_3d_a, 2 )
+      IF( lk_mpp )   CALL mpp_max( 'lib_fortran', glob_max_3d_a, 2 )
       !
    END FUNCTION glob_max_3d_a