New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8689 – NEMO

Changeset 8689


Ignore:
Timestamp:
2017-11-10T12:07:01+01:00 (6 years ago)
Author:
frrh
Message:

Save revised form of magic word for PP search

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r8677 r8689  
    167167      IF( lk_mpp )   CALL mpp_min( ztmin )                ! min over the global domain 
    168168      ! 
    169       IF( ztmax > 40.) THEN  ! we've got a problem 
     169      IF( ztmax > 33.9) THEN  ! we've got a problem 
    170170         IF (lk_mpp) THEN 
    171171            CALL mpp_maxloc ( tsn(:,:,1,jp_tem),tmask(:,:,1), ztmax, ii,ij ) 
    … …  
    177177         ! 
    178178         IF(lwp) THEN 
    179             WRITE(numout,*) '***** WARNING *****' 
    180             WRITE(numout,*) 'stp_ctl : sea surface temperature > 40C' 
    181             WRITE(numout,*) '======= ' 
    182             WRITE(numout,9600) kt, ztmax, ii, ij 
     179            WRITE(numout,*) 'stp_ctl:tracer anomaly: *****     WARNING       *****' 
     180            WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature > 33.9C' 
     181            WRITE(numout,'(A,A,I6,A,1pg11.4,A,I5,I5)') & 
     182                          ' stp_ctl:tracer anomaly: ',    & 
     183                          ' kt= ',kt,                  & 
     184                          ' max SST= ',ztmax,          & 
     185                          ' global ii,ij= ', ii, ij 
     186            WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING    *****' 
    183187         ENDIF 
    184188      ENDIF 
    … …  
    194198         ! 
    195199         IF(lwp) THEN 
    196             WRITE(numout,*) '***** WARNING *****' 
    197             WRITE(numout,*) 'stp_ctl : sea surface temperature < -3C' 
    198             WRITE(numout,*) '======= ' 
    199             WRITE(numout,9700) kt, ztmin, ii, ij 
    200          ENDIF 
    201       ENDIF 
    202 9600  FORMAT (' kt=',i6,' max SST: ',1pg11.4,', i j: ',2i5) 
    203 9700  FORMAT (' kt=',i6,' min SST: ',1pg11.4,', i j: ',2i5) 
     200            WRITE(numout,*) 'stp_ctl:tracer anomaly: *****    WARNING        *****' 
     201            WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature < -3C' 
     202            WRITE(numout,'(A,A,I6,A,1pg11.4,A,I5,I5)') & 
     203                          ' stp_ctl:tracer anomaly: ',    & 
     204                          ' kt= ',kt,                  & 
     205                          ' min SST= ',ztmin,          & 
     206                          ' global ii,ij= ', ii, ij 
     207            WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING    *****' 
     208         ENDIF 
     209      ENDIF 
    204210! ==================================================================================================== 
    205211! ==================================================================================================== 
Note: See TracChangeset for help on using the changeset viewer.