Ignore:
Timestamp:
2014-04-28T14:09:03+02:00 (7 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/PISCES/P2Z/p2zbio.F90

    r4147 r4624  
    500500      READ  ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 
    501501902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist', lwp ) 
    502       WRITE ( numonp, namlobphy ) 
     502      IF(lwm) WRITE ( numonp, namlobphy ) 
    503503 
    504504      IF(lwp) THEN 
     
    519519      READ  ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 
    520520904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist', lwp ) 
    521       WRITE ( numonp, namlobnut ) 
     521      IF(lwm) WRITE ( numonp, namlobnut ) 
    522522 
    523523      IF(lwp) THEN 
     
    537537      READ  ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 
    538538906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist', lwp ) 
    539       WRITE ( numonp, namlobzoo ) 
     539      IF(lwm) WRITE ( numonp, namlobzoo ) 
    540540 
    541541      IF(lwp) THEN 
     
    560560      READ  ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 
    561561908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist', lwp ) 
    562       WRITE ( numonp, namlobdet ) 
     562      IF(lwm) WRITE ( numonp, namlobdet ) 
    563563 
    564564      IF(lwp) THEN 
     
    576576      READ  ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 
    577577910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist', lwp ) 
    578       WRITE ( numonp, namlobdom ) 
     578      IF(lwm) WRITE ( numonp, namlobdom ) 
    579579 
    580580      IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.