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.
#1550 (diadct can fail if ln_ctl=true) – NEMO

Opened 9 years ago

Closed 9 years ago

#1550 closed Bug (fixed)

diadct can fail if ln_ctl=true

Reported by: timgraham Owned by: timgraham
Priority: low Milestone:
Component: OCE Version: trunk
Severity: Keywords:
Cc:

Description

In dia_dct_init the following lines fail if ln_ctl=true because lwp=true on all cores and therefore each core attempts to open a file with the same name.

I think lwp should be replaced by lwm throughout the module. Any objections to this?

!open output file
     IF( lwp ) THEN
        CALL ctl_opn( numdct_vol,  'volume_transport', 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout,  .FALSE. )
        CALL ctl_opn( numdct_heat, 'heat_transport'  , 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout,  .FALSE. )
        CALL ctl_opn( numdct_salt, 'salt_transport'  , 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout,  .FALSE. )
     ENDIF

Commit History (1)

ChangesetAuthorTimeChangeLog
5505timgraham2015-06-29T14:51:57+02:00

Fix for #1550. Replaced lwp by lwm so that only lead processor writes out transports even if ln_ctl=true.

Change History (1)

comment:1 Changed 9 years ago by timgraham

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

Fixed at r5505

Note: See TracTickets for help on using tickets.