Changeset 14938

Timestamp:

2021-06-02T11:00:54+02:00 (3 years ago)

Author:

frrh

Message:

Raise SST limit to 50C

File:

• branches/UKMO/dev_r5518_GO6_package_SSTanom/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (2 diffs)

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

@@ -182 +182 @@
       IF( lk_mpp )   CALL mpp_min( ztmin )                ! min over the global domain
       !
-      IF( ztmax > 40.) THEN  ! we've got a problem
+      IF( ztmax > 50.) THEN  ! we've got a problem
          IF (lk_mpp) THEN
             CALL mpp_maxloc ( tsn(:,:,1,jp_tem),tmask(:,:,1), ztmax, ii,ij )
@@ -193 +193 @@
          IF(lwp) THEN
             WRITE(numout,*) 'stp_ctl:tracer anomaly: *****    WARNING     *****'
-            WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature > 40C'
+            WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature > 50C'
             WRITE(numout,9600) kt, ztmax, ii, ij
             WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING *****'