Changeset 181 for trunk/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2004-11-05T15:08:18+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE126 : improve MPI send possiblities with mpi_bsen and mpi_isend; update the search of extremum of scale factors in mpp

File:

• trunk/NEMO/OPA_SRC/stpctl.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/stpctl.F90

@@ -117 +117 @@
       ENDIF
       IF( zumax >  20.) THEN
-         ilocu = MAXLOC( ABS( un(:,:,:) ) )
-         ii = ilocu(1) + nimpp - 1
-         ij = ilocu(2) + njmpp - 1
-         ik = ilocu(3)
-         IF( lk_mpp ) THEN
-            CALL mpp_isl( ii )
-            CALL mpp_isl( ij )
-            CALL mpp_isl( ik )
+         IF (lk_mpp ) THEN
+            CALL mpp_maxloc(un,umask,zumax,ii,ij,ik)
+         ELSE
+           ilocu = MAXLOC( ABS( un(:,:,:) ) )
+           ii = ilocu(1) + nimpp - 1
+           ij = ilocu(2) + njmpp - 1
+           ik = ilocu(3)
          ENDIF
          IF(lwp) THEN
@@ -156 +155 @@
       ENDIF
       IF( zsmin < 0.) THEN 
-         ilocs = MINLOC( sn(:,:,1), mask = tmask(:,:,1) == 1.e0 )
-         ii = ilocs(1) + nimpp - 1
-         ij = ilocs(2) + njmpp - 1
-         IF( lk_mpp )   CALL mpp_isl( ii )
-         IF( lk_mpp )   CALL mpp_isl( ij )
+         IF (lk_mpp) THEN
+            CALL mpp_minloc ( sn(:,:,1),tmask(:,:,1), zsmin, ii,ij )
+         ELSE
+            ilocs = MINLOC( sn(:,:,1), mask = tmask(:,:,1) == 1.e0 )
+            ii = ilocs(1) + nimpp - 1
+            ij = ilocs(2) + njmpp - 1
+         END IF
 
          IF(lwp) THEN