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 9671 for NEMO/trunk/src – NEMO

Changeset 9671 for NEMO/trunk/src


Ignore:
Timestamp:
2018-05-29T11:59:10+02:00 (6 years ago)
Author:
nicolasmartin
Message:

Fix for printed lines in clean exit for checks of ssh, U and S

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/stpctl.F90

    r9598 r9671  
    137137         IF(lwp) THEN 
    138138            WRITE(numout,cform_err) 
    139             WRITE(numout,*) ' stp_ctl: |ssh| > 10 m   or   |U| > 10 m/s   or   S < 0   or   NaN encounter in the tests' 
     139            WRITE(numout,*) ' stp_ctl: |ssh| > 10 m   or   |U| > 10 m/s   or   S <= 0   or   NaN encounter in the tests' 
    140140            WRITE(numout,*) ' ======= ' 
    141141            WRITE(numout,9100) kt,   zmax(1), iih, ijh 
     
    1531539100  FORMAT (' kt=',i8,'   |ssh| max: ',1pg11.4,', at  i j  : ',2i5) 
    1541549200  FORMAT (' kt=',i8,'   |U|   max: ',1pg11.4,', at  i j k: ',3i5) 
    155 9300  FORMAT (' kt=',i8,'   S     min: ',1pg11.4,', at  i j  : ',2i5) 
     1559300  FORMAT (' kt=',i8,'   S     min: ',1pg11.4,', at  i j  : ',3i5) 
    156156      ! 
    157157      !                                            !==  run statistics  ==!   ("run.stat" file) 
Note: See TracChangeset for help on using the changeset viewer.