Changeset 8689 for branches/UKMO/dev_r5518_GO6_pkg_test_sst/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2017-11-10T12:07:01+01:00 (7 years ago)

Author:

frrh

Message:

Save revised form of magic word for PP search

File:

• branches/UKMO/dev_r5518_GO6_pkg_test_sst/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_pkg_test_sst/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -167 +167 @@
       IF( lk_mpp )   CALL mpp_min( ztmin )                ! min over the global domain
       !
-      IF( ztmax > 40.) THEN  ! we've got a problem
+      IF( ztmax > 33.9) THEN  ! we've got a problem
          IF (lk_mpp) THEN
             CALL mpp_maxloc ( tsn(:,:,1,jp_tem),tmask(:,:,1), ztmax, ii,ij )
@@ -177 +177 @@
          !
          IF(lwp) THEN
-            WRITE(numout,*) '***** WARNING *****'
-            WRITE(numout,*) 'stp_ctl : sea surface temperature > 40C'
-            WRITE(numout,*) '======= '
-            WRITE(numout,9600) kt, ztmax, ii, ij
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: *****     WARNING       *****'
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature > 33.9C'
+            WRITE(numout,'(A,A,I6,A,1pg11.4,A,I5,I5)') &
+                          ' stp_ctl:tracer anomaly: ',    &
+                          ' kt= ',kt,                  &
+                          ' max SST= ',ztmax,          &
+                          ' global ii,ij= ', ii, ij
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING    *****'
          ENDIF
       ENDIF
@@ -194 +198 @@
          !
          IF(lwp) THEN
-            WRITE(numout,*) '***** WARNING *****'
-            WRITE(numout,*) 'stp_ctl : sea surface temperature < -3C'
-            WRITE(numout,*) '======= '
-            WRITE(numout,9700) kt, ztmin, ii, ij
-         ENDIF
-      ENDIF
-9600  FORMAT (' kt=',i6,' max SST: ',1pg11.4,', i j: ',2i5)
-9700  FORMAT (' kt=',i6,' min SST: ',1pg11.4,', i j: ',2i5)
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: *****    WARNING        *****'
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature < -3C'
+            WRITE(numout,'(A,A,I6,A,1pg11.4,A,I5,I5)') &
+                          ' stp_ctl:tracer anomaly: ',    &
+                          ' kt= ',kt,                  &
+                          ' min SST= ',ztmin,          &
+                          ' global ii,ij= ', ii, ij
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING    *****'
+         ENDIF
+      ENDIF
 ! ====================================================================================================
 ! ====================================================================================================