Changeset 9671 for NEMO/trunk
- Timestamp:
- 2018-05-29T11:59:10+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/stpctl.F90
r9598 r9671 137 137 IF(lwp) THEN 138 138 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' 140 140 WRITE(numout,*) ' ======= ' 141 141 WRITE(numout,9100) kt, zmax(1), iih, ijh … … 153 153 9100 FORMAT (' kt=',i8,' |ssh| max: ',1pg11.4,', at i j : ',2i5) 154 154 9200 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)155 9300 FORMAT (' kt=',i8,' S min: ',1pg11.4,', at i j : ',3i5) 156 156 ! 157 157 ! !== run statistics ==! ("run.stat" file)
Note: See TracChangeset
for help on using the changeset viewer.