New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12453 for NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/DYN/dynspg.F90 – NEMO

Ignore:
Timestamp:
2020-02-25T16:29:34+01:00 (4 years ago)
Author:
jcastill
Message:

First implementation of the branch - compiling after merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/DYN/dynspg.F90

    r11715 r12453  
    3939   INTEGER ::   nspg = 0   ! type of surface pressure gradient scheme defined from lk_dynspg_...  
    4040 
     41   LOGICAL, PUBLIC ::  ln_ulimit  
     42   REAL(wp), PUBLIC :: cn_ulimit,cnn_ulimit 
     43 
    4144   !                       ! Parameter to control the surface pressure gradient scheme 
    4245   INTEGER, PARAMETER ::   np_TS  = 1   ! split-explicit time stepping (Time-Splitting) 
     
    191194      NAMELIST/namdyn_spg/ ln_dynspg_exp       , ln_dynspg_ts,   & 
    192195      &                    ln_bt_fw, ln_bt_av  , ln_bt_auto  ,   & 
    193       &                    nn_baro , rn_bt_cmax, nn_bt_flt, rn_bt_alpha 
     196      &                    nn_baro , rn_bt_cmax, nn_bt_flt, rn_bt_alpha, & 
     197      &                    ln_ulimit, cn_ulimit, cnn_ulimit 
    194198      !!---------------------------------------------------------------------- 
    195199      ! 
     
    213217         WRITE(numout,*) '      Explicit free surface                  ln_dynspg_exp = ', ln_dynspg_exp 
    214218         WRITE(numout,*) '      Free surface with time splitting       ln_dynspg_ts  = ', ln_dynspg_ts 
     219         WRITE(numout,*) '     Limit velocities                       ln_ulimit     = ', ln_ulimit  
     220         WRITE(numout,*) '     Limit velocities      max inverse Courant number     = ', cn_ulimit  
     221         WRITE(numout,*) '     Limit velocities   multiplier for divergant flow     = ', cnn_ulimit 
    215222      ENDIF 
    216223      !                          ! Control of surface pressure gradient scheme options 
Note: See TracChangeset for help on using the changeset viewer.