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 4624 for trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcnam_c14b.F90 – NEMO

Ignore:
Timestamp:
2014-04-28T14:09:03+02:00 (10 years ago)
Author:
acc
Message:

#1305. Fix slow start-up problems on some systems by introducing and using lwm logical to restrict output of merged namelists to the first (or only) processor. lwm is true only on the first processor regardless of ln_ctl. Small changes to all flavours of nemogcm.F90 are also required to write namctl and namcfg after the call to mynode which now opens output.namelist.dyn and writes nammpp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcnam_c14b.F90

    r4319 r4624  
    5858      CALL ctl_opn( numnatb_ref, 'namelist_c14b_ref'  ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    5959      CALL ctl_opn( numnatb_cfg, 'namelist_c14b_cfg'  ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )    
    60       CALL ctl_opn( numonb     , 'output.namelist.c14', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )      
     60      IF(lwm) CALL ctl_opn( numonb, 'output.namelist.c14', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )      
    6161      REWIND( numnatb_ref )              ! Namelist namc14date in reference namelist : c14b parameters 
    6262      READ  ( numnatb_ref, namc14date, IOSTAT = ios, ERR = 901) 
     
    6666      READ  ( numnatb_cfg, namc14date, IOSTAT = ios, ERR = 902 ) 
    6767902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in configuration namelist', lwp ) 
    68       WRITE ( numonb, namc14date ) 
     68      IF(lwm) WRITE ( numonb, namc14date ) 
    6969      IF(lwp) THEN                  ! control print 
    7070         WRITE(numout,*) 
     
    8888         READ  ( numnatb_cfg, namc14dia, IOSTAT = ios, ERR = 904 ) 
    8989904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in configuration namelist', lwp ) 
    90          WRITE ( numonb, namc14dia ) 
     90         IF(lwm) WRITE ( numonb, namc14dia ) 
    9191 
    9292         DO jl = 1, jp_c14b_2d 
     
    124124      ENDIF 
    125125 
    126    CALL FLUSH ( numonb )     ! flush output namelist C14b 
     126   IF(lwm) CALL FLUSH ( numonb )     ! flush output namelist C14b 
    127127 
    128128   END SUBROUTINE trc_nam_c14b 
Note: See TracChangeset for help on using the changeset viewer.