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.
#1867 (Volume control when using BDY and Time-splitting is not ready for use) – NEMO

Opened 7 years ago

Closed 5 years ago

Last modified 2 years ago

#1867 closed Bug (wontfix)

Volume control when using BDY and Time-splitting is not ready for use

Reported by: ctlod Owned by: greffray
Priority: low Milestone:
Component: BDY Version: v3.6
Severity: minor Keywords: v3.6
Cc:

Description (last modified by nicolasmartin)

Context

When using CPP key key_bdy + key_dynspg_ts and set ln_vol = .true. in ocean namelist, no volume control is applied along open boundaries.
But no error message arises at running time, so the user can believe that it is activated while it is not.

Analysis

This option has not been implemented yet in combinaison with time-splitting algorithm.
This maybe also the case in the trunk.

Fix

Add a USE module as follows at the beginning of the bodying.F90 module.

USE dynspg_oce, ONLY: lk_dynspg_ts ! Split-explicit free surface flag

Add a control line in bdy_init subroutine close to the line 372:

......
     IF (nb_bdy .gt. 0) THEN 
        '''IF( ln_vol .AND. lk_dynspg_ts ) CALL ctl_stop( 'The volume control through BDY is not yet available in time-splitting ' )''' 
        IF( ln_vol ) THEN                     ! check volume conservation (nn_volctl value)
          IF(lwp) WRITE(numout,*) 'Volume correction applied at open boundaries'
          IF(lwp) WRITE(numout,*)
          SELECT CASE ( nn_volctl )
            CASE( 1 )      ;   IF(lwp) WRITE(numout,*) '      The total volume will be constant'
            CASE( 0 )      ;   IF(lwp) WRITE(numout,*) '      The total volume will vary according to the surface E-P flux'
            CASE DEFAULT   ;   CALL ctl_stop( 'nn_volctl must be 0 or 1' )
          END SELECT
          IF(lwp) WRITE(numout,*)
        ELSE 
          IF(lwp) WRITE(numout,*) 'No volume correction applied at open boundaries'
          IF(lwp) WRITE(numout,*)
        ENDIF
...


Commit History (0)

(No commits)

Change History (5)

comment:1 Changed 7 years ago by clevy

  • Owner changed from nemo to greffray
  • Status changed from new to assigned

comment:2 Changed 7 years ago by nicolasmartin

  • Description modified (diff)

comment:3 Changed 5 years ago by jchanut

  • Component changed from OCE to BDY
  • Severity set to minor

comment:4 Changed 5 years ago by gsamson

  • Resolution set to wontfix
  • Status changed from assigned to closed

volume control is now working with BDY and time-splitting in trunk and nemo 4.0 release (see ticket #2200), so I modifiy the ticket to "won't fix" for the 3.6 version

comment:5 Changed 2 years ago by nemo

  • Keywords v3.6 added
Note: See TracTickets for help on using tickets.