Changeset 14938 for branches/UKMO/dev_r5518_GO6_package_SSTanom/NEMOGCM
- Timestamp:
- 2021-06-02T11:00:54+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_SSTanom/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r12233 r14938 182 182 IF( lk_mpp ) CALL mpp_min( ztmin ) ! min over the global domain 183 183 ! 184 IF( ztmax > 40.) THEN ! we've got a problem184 IF( ztmax > 50.) THEN ! we've got a problem 185 185 IF (lk_mpp) THEN 186 186 CALL mpp_maxloc ( tsn(:,:,1,jp_tem),tmask(:,:,1), ztmax, ii,ij ) … … 193 193 IF(lwp) THEN 194 194 WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** WARNING *****' 195 WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature > 40C'195 WRITE(numout,*) 'stp_ctl:tracer anomaly: sea surface temperature > 50C' 196 196 WRITE(numout,9600) kt, ztmax, ii, ij 197 197 WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING *****'
Note: See TracChangeset
for help on using the changeset viewer.