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.
#2361 (Maximum rimwidth text output) – NEMO

Opened 4 years ago

Closed 4 years ago

#2361 closed Bug (invalid)

Maximum rimwidth text output

Reported by: mathiot Owned by: mathiot
Priority: low Milestone:
Component: BDY Version: trunk
Severity: minor Keywords:
Cc:

Description

Context

The maximum rim width evaluated from input file is wrong (below example from SPITZ12 ocean.output):

            read nbit (rec:      1) in coordinates_bdyr1_grid12.nc ok
            read nbjt (rec:      1) in coordinates_bdyr1_grid12.nc ok
            read nbrt (rec:      1) in coordinates_bdyr1_grid12.nc ok
 
   Maximum rimwidth in file is    694585925
   nn_rimwidth from namelist is            1

This bug does not seem to affect the model solution.

Analysis

in bdyini, in line ibr_max = MAXVAL( nbrdta(:,igrd,ib_bdy) ), nbrdta in only initialised for nbrdta(1:nblendta(igrd,ib_bdy),igrd,ib_bdy).

Fix

  • src/OCE/BDY/bdyini.F90

     
    422422                  nbrdta(ii,igrd,ib_bdy) = NINT( zz_read(ii,1) ) 
    423423               END DO 
    424424               ! 
    425                ibr_max = MAXVAL( nbrdta(:,igrd,ib_bdy) ) 
     425               ibr_max = MAXVAL( nbrdta(1:nblendta(igrd,ib_bdy),igrd,ib_bdy) ) 
    426426               IF(lwp) WRITE(numout,*) 
    427427               IF(lwp) WRITE(numout,*) ' Maximum rimwidth in file is ', ibr_max 
    428428               IF(lwp) WRITE(numout,*) ' nn_rimwidth from namelist is ', nn_rimwidth(ib_bdy) 

Commit History (0)

(No commits)

Change History (1)

comment:1 Changed 4 years ago by mathiot

  • Resolution set to invalid
  • Status changed from new to closed

duplicate of #2342 and already fixed.

Note: See TracTickets for help on using tickets.