Changeset 417

Timestamp:

2006-03-21T08:57:56+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_034 : CT : use the ABS function for Un field in the mpp_maxloc CALL

File:

• trunk/NEMO/OPA_SRC/stpctl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/stpctl.F90

@@ -124 +124 @@
          IF(lwp) WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax
       ENDIF
-      IF( zumax >  20.) THEN
-         IF (lk_mpp ) THEN
-            CALL mpp_maxloc(un,umask,zumax,ii,ij,ik)
+      IF( zumax > 20.) THEN
+         IF( lk_mpp ) THEN
+            CALL mpp_maxloc(ABS(un),umask,zumax,ii,ij,ik)
          ELSE
-           ilocu = MAXLOC( ABS( un(:,:,:) ) )
-           ii = ilocu(1) + nimpp - 1
-           ij = ilocu(2) + njmpp - 1
-           ik = ilocu(3)
+            ilocu = MAXLOC( ABS( un(:,:,:) ) )
+            ii = ilocu(1) + nimpp - 1
+            ij = ilocu(2) + njmpp - 1
+            ik = ilocu(3)
          ENDIF
          IF(lwp) THEN