Changeset 11080 for branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

Timestamp:

2019-06-06T15:32:24+02:00 (5 years ago)

Author:

jcastill

Message:

Latest changes from Jason

File:

• branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90 (modified) (3 diffs)

branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

@@ -39 +39 @@
    INTEGER ::   nspg = 0   ! type of surface pressure gradient scheme defined from lk_dynspg_... 
 
+   LOGICAL, PUBLIC ::  ln_ulimit
+   REAL(wp), PUBLIC :: cn_ulimit,cnn_ulimit
+
    !                       ! Parameter to control the surface pressure gradient scheme
    INTEGER, PARAMETER ::   np_TS  = 1   ! split-explicit time stepping (Time-Splitting)
@@ -183 +186 @@
       NAMELIST/namdyn_spg/ ln_dynspg_exp       , ln_dynspg_ts,   &
       &                    ln_bt_fw, ln_bt_av  , ln_bt_auto  ,   &
-      &                    nn_baro , rn_bt_cmax, nn_bt_flt
+      &                    nn_baro , rn_bt_cmax, nn_bt_flt   ,   &
+                           ln_ulimit, cn_ulimit, cnn_ulimit
       !!----------------------------------------------------------------------
       !
@@ -203 +207 @@
          WRITE(numout,*) '     Explicit free surface                  ln_dynspg_exp = ', ln_dynspg_exp
          WRITE(numout,*) '     Free surface with time splitting       ln_dynspg_ts  = ', ln_dynspg_ts
+         WRITE(numout,*) '     Limit velocities                       ln_ulimit     = ', ln_ulimit
+         WRITE(numout,*) '     Limit velocities      max inverse Courant number     = ', cn_ulimit
+         WRITE(numout,*) '     Limit velocities   multiplier for divergant flow     = ', cnn_ulimit
       ENDIF
       !                          ! Control of surface pressure gradient scheme options