Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/stpctl_tam.F90

Timestamp:

2011-02-15T12:58:59+01:00 (13 years ago)

Author:

vidard

Message:

refer to ticket #798

File:

• branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/stpctl_tam.F90 (modified) (8 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/stpctl_tam.F90

@@ -161 +161 @@
          IF(lwp) WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax
       ENDIF
-!      IF( zumax > 100.) THEN
-      IF( zumax > 500.) THEN
+      IF( zumax > 50.) THEN
          IF( lk_mpp ) THEN
             CALL mpp_maxloc(ABS(un_tl),umask,zumax,ii,ij,ik)
@@ -173 +172 @@
          IF(lwp) THEN
             WRITE(numout,cform_err)
-            WRITE(numout,*) ' stpctl_tan: the zonal velocity is larger than 20 m/s'
+            WRITE(numout,*) ' stpctl_tan: the zonal velocity is larger than 50 m/s'
             WRITE(numout,*) ' ========= '
             WRITE(numout,9400) kt, zumax, ii, ij, ik
@@ -197 +196 @@
          IF(lwp) WRITE(numout,*) ' ==>> time-step= ',kt,' abs(V) max: ', zvmax
       ENDIF
-!      IF( zvmax > 100.) THEN
-      IF( zvmax > 500.) THEN
+      IF( zvmax > 50.) THEN
          IF( lk_mpp ) THEN
             CALL mpp_maxloc(ABS(vn_tl),vmask,zvmax,ii,ij,ik)
@@ -209 +207 @@
          IF(lwp) THEN
             WRITE(numout,cform_err)
-            WRITE(numout,*) ' stpctl_tan: the meridional  velocity is larger than 10 m/s'
+            WRITE(numout,*) ' stpctl_tan: the meridional  velocity is larger than 50 m/s'
             WRITE(numout,*) ' ========= '
             WRITE(numout,9410) kt, zvmax, ii, ij, ik
@@ -232 +230 @@
          IF(lwp) WRITE(numout,*) ' ==>> time-step= ',kt,' abs(T) max: ', zTmax
       ENDIF
-!      IF( ztmax > 300.) THEN
-      IF( ztmax > 600.) THEN
+      IF( ztmax > 80.) THEN
          IF( lk_mpp ) THEN
             CALL mpp_maxloc(ABS(tn_tl),tmask,ztmax,ii,ij,ik)
@@ -244 +241 @@
          IF(lwp) THEN
             WRITE(numout,cform_err)
-            WRITE(numout,*) ' stpctl_tan: the temperature is larger than 30 K'
+            WRITE(numout,*) ' stpctl_tan: the temperature is larger than 80 K'
             WRITE(numout,*) ' ========= '
             WRITE(numout,9420) kt, ztmax, ii, ij, ik
@@ -268 +265 @@
          IF(lwp) WRITE(numout,*) ' ==>> time-step= ',kt,' abs(S) max: ', zsmax
       ENDIF
-!      IF( zsmax > 200.) THEN
-      IF( zsmax > 600.) THEN
+      IF( zsmax > 100.) THEN
          IF( lk_mpp ) THEN
             CALL mpp_maxloc(ABS(sn_tl),tmask,zsmax,ii,ij,ik)
@@ -280 +276 @@
          IF(lwp) THEN
             WRITE(numout,cform_err)
-            WRITE(numout,*) ' stpctl_tan: the Salinity is larger than 20 o/oo'
+            WRITE(numout,*) ' stpctl_tan: the Salinity is larger than 100 o/oo'
             WRITE(numout,*) ' ========== '
             WRITE(numout,9430) kt, zsmax, ii, ij, ik