Changeset 7903

Timestamp:

2017-04-13T09:00:34+02:00 (7 years ago)

Author:

gm

Message:

#1880: (HPC-08) stp_cfl, check |ssh| instead of ssh^{2 - correct a small error}

File:

• branches/2017/dev_r7832_HPC08_lbclnk_3rd_dim/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (3 diffs)

branches/2017/dev_r7832_HPC08_lbclnk_3rd_dim/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -44 +44 @@
       !!              - Print it each 50 time steps
       !!              - Stop the run IF problem encountered by setting indic=-3
-      !!                Problems checked: |U| maximum larger than 10 m/s 
+      !!                Problems checked: |ssh| maximum larger than 10 m
+      !!                                  |U|   maximum larger than 10 m/s 
       !!                                  negative sea surface salinity
       !!
@@ -89 +90 @@
       ENDIF
       !
-      IF ( zmax(2) > 10._wp .OR.   &                     ! too large sea surface height ( > 10 m)
+      IF ( zmax(1) > 10._wp .OR.   &                     ! too large sea surface height ( > 10 m)
          & zmax(2) > 10._wp .OR.   &                     ! too large velocity ( > 10 m/s)
          & zmax(3) >  0._wp ) THEN                       ! negative sea surface salinity
@@ -123 +124 @@
       IF(lwp) WRITE(numrun,9400) kt, zmax(1), zmax(2), - zmax(3)
       !
-9400  FORMAT(' it :', i8, '    |ssh|max: ', e16.10, ' |U|max: ',e16.10,' SSS min: ',e16.10)
+9400  FORMAT(' it :', i8, '    |ssh|_max: ', e16.10, ' |U|_max: ',e16.10,' SSS_min: ',e16.10)
       !
    END SUBROUTINE stp_ctl