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
422 422 nbrdta(ii,igrd,ib_bdy) = NINT( zz_read(ii,1) ) 423 423 END DO 424 424 ! 425 ibr_max = MAXVAL( nbrdta( :,igrd,ib_bdy) )425 ibr_max = MAXVAL( nbrdta(1:nblendta(igrd,ib_bdy),igrd,ib_bdy) ) 426 426 IF(lwp) WRITE(numout,*) 427 427 IF(lwp) WRITE(numout,*) ' Maximum rimwidth in file is ', ibr_max 428 428 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
Note: See
TracTickets for help on using
tickets.
duplicate of #2342 and already fixed.