- Timestamp:
- 2017-04-13T09:00:34+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7832_HPC08_lbclnk_3rd_dim/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r7902 r7903 44 44 !! - Print it each 50 time steps 45 45 !! - Stop the run IF problem encountered by setting indic=-3 46 !! Problems checked: |U| maximum larger than 10 m/s 46 !! Problems checked: |ssh| maximum larger than 10 m 47 !! |U| maximum larger than 10 m/s 47 48 !! negative sea surface salinity 48 49 !! … … 89 90 ENDIF 90 91 ! 91 IF ( zmax( 2) > 10._wp .OR. & ! too large sea surface height ( > 10 m)92 IF ( zmax(1) > 10._wp .OR. & ! too large sea surface height ( > 10 m) 92 93 & zmax(2) > 10._wp .OR. & ! too large velocity ( > 10 m/s) 93 94 & zmax(3) > 0._wp ) THEN ! negative sea surface salinity … … 123 124 IF(lwp) WRITE(numrun,9400) kt, zmax(1), zmax(2), - zmax(3) 124 125 ! 125 9400 FORMAT(' it :', i8, ' |ssh| max: ', e16.10, ' |U|max: ',e16.10,' SSSmin: ',e16.10)126 9400 FORMAT(' it :', i8, ' |ssh|_max: ', e16.10, ' |U|_max: ',e16.10,' SSS_min: ',e16.10) 126 127 ! 127 128 END SUBROUTINE stp_ctl
Note: See TracChangeset
for help on using the changeset viewer.