Ignore:
Timestamp:
2017-04-13T09:00:34+02:00 (3 years ago)
Author:
gm
Message:

#1880: (HPC-08) stp_cfl, check |ssh| instead of ssh2 - correct a small error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7832_HPC08_lbclnk_3rd_dim/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

    r7902 r7903  
    4444      !!              - Print it each 50 time steps 
    4545      !!              - 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  
    4748      !!                                  negative sea surface salinity 
    4849      !! 
     
    8990      ENDIF 
    9091      ! 
    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) 
    9293         & zmax(2) > 10._wp .OR.   &                     ! too large velocity ( > 10 m/s) 
    9394         & zmax(3) >  0._wp ) THEN                       ! negative sea surface salinity 
     
    123124      IF(lwp) WRITE(numrun,9400) kt, zmax(1), zmax(2), - zmax(3) 
    124125      ! 
    125 9400  FORMAT(' it :', i8, '    |ssh|max: ', e16.10, ' |U|max: ',e16.10,' SSS min: ',e16.10) 
     1269400  FORMAT(' it :', i8, '    |ssh|_max: ', e16.10, ' |U|_max: ',e16.10,' SSS_min: ',e16.10) 
    126127      ! 
    127128   END SUBROUTINE stp_ctl 
Note: See TracChangeset for help on using the changeset viewer.