Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

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

trunk/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -108 +108 @@
       !                                              !* Test minimum of salinity
       !                                              !  ------------------------
-      !! zsmin = MINVAL( sn(:,:,1), mask = tmask(:,:,1) == 1.e0 )  slower than the following loop on NEC SX5
+      !! zsmin = MINVAL( tsn(:,:,1,jp_sal), mask = tmask(:,:,1) == 1.e0 )  slower than the following loop on NEC SX5
       zsmin = 100.e0
       DO jj = 2, jpjm1
          DO ji = 1, jpi
-            IF( tmask(ji,jj,1) == 1) zsmin = MIN(zsmin,sn(ji,jj,1))
+            IF( tmask(ji,jj,1) == 1) zsmin = MIN(zsmin,tsn(ji,jj,1,jp_sal))
          END DO
       END DO
@@ -121 +121 @@
       IF( zsmin < 0.) THEN 
          IF (lk_mpp) THEN
-            CALL mpp_minloc ( sn(:,:,1),tmask(:,:,1), zsmin, ii,ij )
+            CALL mpp_minloc ( tsn(:,:,1,jp_sal),tmask(:,:,1), zsmin, ii,ij )
          ELSE
-            ilocs = MINLOC( sn(:,:,1), mask = tmask(:,:,1) == 1.e0 )
+            ilocs = MINLOC( tsn(:,:,1,jp_sal), mask = tmask(:,:,1) == 1.e0 )
             ii = ilocs(1) + nimpp - 1
             ij = ilocs(2) + njmpp - 1