Changeset 10415 for NEMO/trunk/src/OCE

Timestamp:

2018-12-19T12:28:25+01:00 (5 years ago)

Author:

clem

Message:

correct the advection for ice ponds, make a couple of cosmetic changes and fix the conservation issue for sea ice advection (just a bugged control print)

File:

• NEMO/trunk/src/OCE/stpctl.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/stpctl.F90

@@ -50 +50 @@
       !!              - Print it each 50 time steps
       !!              - Stop the run IF problem encountered by setting indic=-3
-      !!                Problems checked: |ssh| maximum larger than 10 m
+      !!                Problems checked: |ssh| maximum larger than 20 m
       !!                                  |U|   maximum larger than 10 m/s 
       !!                                  negative sea surface salinity
@@ -136 +136 @@
       ENDIF
       !
-      IF (  zmax(1) >   15._wp .OR.   &                    ! too large sea surface height ( > 15 m )
+      IF (  zmax(1) >   20._wp .OR.   &                    ! too large sea surface height ( > 20 m )
          &  zmax(2) >   10._wp .OR.   &                    ! too large velocity ( > 10 m/s)
          &  zmax(3) >=   0._wp .OR.   &                    ! negative or zero sea surface salinity
@@ -159 +159 @@
          IF(lwp) THEN
             WRITE(numout,cform_err)
-            WRITE(numout,*) ' stp_ctl: |ssh| > 10 m  or  |U| > 10 m/s  or  S <= 0  or  S >= 100  or  NaN encounter in the tests'
+            WRITE(numout,*) ' stp_ctl: |ssh| > 20 m  or  |U| > 10 m/s  or  S <= 0  or  S >= 100  or  NaN encounter in the tests'
             WRITE(numout,*) ' ======= '
             WRITE(numout,9100) kt,   zmax(1), iih , ijh