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/PISCES/P4Z – 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.

Location:
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90

    r4529 r4624  
    351351      READ  ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 
    352352902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist', lwp ) 
    353       WRITE ( numonp, nampisfer ) 
     353      IF(lwm) WRITE ( numonp, nampisfer ) 
    354354 
    355355      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90

    r4230 r4624  
    250250      READ  ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 
    251251902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist', lwp ) 
    252       WRITE ( numonp, nampisext ) 
     252      IF(lwm) WRITE ( numonp, nampisext ) 
    253253      ! 
    254254      IF(lwp) THEN                         ! control print 
    … …  
    326326         READ  ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 
    327327902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist', lwp ) 
    328          WRITE ( numonp, nampisatm ) 
     328         IF(lwm) WRITE ( numonp, nampisatm ) 
    329329         ! 
    330330         ! 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90

    r4529 r4624  
    228228      READ  ( numnatp_cfg, nampislim, IOSTAT = ios, ERR = 902 ) 
    229229902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist', lwp ) 
    230       WRITE ( numonp, nampislim ) 
     230      IF(lwm) WRITE ( numonp, nampislim ) 
    231231 
    232232      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90

    r4147 r4624  
    202202      READ  ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 
    203203902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist', lwp ) 
    204       WRITE ( numonp, nampiscal ) 
     204      IF(lwm) WRITE ( numonp, nampiscal ) 
    205205 
    206206      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90

    r4529 r4624  
    293293      READ  ( numnatp_cfg, nampismes, IOSTAT = ios, ERR = 902 ) 
    294294902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist', lwp ) 
    295       WRITE ( numonp, nampismes ) 
     295      IF(lwm) WRITE ( numonp, nampismes ) 
    296296 
    297297 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r4529 r4624  
    235235      READ  ( numnatp_cfg, nampiszoo, IOSTAT = ios, ERR = 902 ) 
    236236902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiszoo in configuration namelist', lwp ) 
    237       WRITE ( numonp, nampiszoo ) 
     237      IF(lwm) WRITE ( numonp, nampiszoo ) 
    238238 
    239239      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90

    r4529 r4624  
    252252      READ  ( numnatp_cfg, nampismort, IOSTAT = ios, ERR = 902 ) 
    253253902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismort in configuration namelist', lwp ) 
    254       WRITE ( numonp, nampismort ) 
     254      IF(lwm) WRITE ( numonp, nampismort ) 
    255255 
    256256      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r4361 r4624  
    338338      READ  ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 
    339339902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist', lwp ) 
    340       WRITE ( numonp, nampisopt ) 
     340      IF(lwm) WRITE ( numonp, nampisopt ) 
    341341 
    342342      IF(lwp) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

    r4529 r4624  
    486486      READ  ( numnatp_cfg, nampisprod, IOSTAT = ios, ERR = 902 ) 
    487487902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisprod in configuration namelist', lwp ) 
    488       WRITE ( numonp, nampisprod ) 
     488      IF(lwm) WRITE ( numonp, nampisprod ) 
    489489 
    490490      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zrem.F90

    r4147 r4624  
    358358      READ  ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 
    359359902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist', lwp ) 
    360       WRITE ( numonp, nampisrem ) 
     360      IF(lwm) WRITE ( numonp, nampisrem ) 
    361361 
    362362      IF(lwp) THEN                         ! control print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r4564 r4624  
    218218      READ  ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 
    219219902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist', lwp ) 
    220       WRITE ( numonp, nampissbc ) 
     220      IF(lwm) WRITE ( numonp, nampissbc ) 
    221221 
    222222      IF(lwp) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r4148 r4624  
    554554      READ  ( numnatp_cfg, nampiskrs, IOSTAT = ios, ERR = 902 ) 
    555555902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in configuration namelist', lwp ) 
    556       WRITE ( numonp, nampiskrs ) 
     556      IF(lwm) WRITE ( numonp, nampiskrs ) 
    557557 
    558558      IF(lwp) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

    r4162 r4624  
    153153      CALL p4z_chk_mass( kt ) ! Mass conservation checking 
    154154 
    155       IF ( kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES 
     155      IF ( lwm .AND. kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES 
    156156      IF( nn_timing == 1 )  CALL timing_stop('p4z_sms') 
    157157      ! 
    … …  
    185185      READ  ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 
    186186902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist', lwp ) 
    187       WRITE ( numonp, nampisbio ) 
     187      IF(lwm) WRITE ( numonp, nampisbio ) 
    188188 
    189189      IF(lwp) THEN                         ! control print 
    … …  
    209209      READ  ( numnatp_cfg, nampiskrp, IOSTAT = ios, ERR = 904 ) 
    210210904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in configuration namelist', lwp ) 
    211       WRITE ( numonp, nampiskrp ) 
     211      IF(lwm) WRITE ( numonp, nampiskrp ) 
    212212 
    213213      IF(lwp) THEN 
    … …  
    235235      READ  ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 
    236236906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist', lwp ) 
    237       WRITE ( numonp, nampisdmp ) 
     237      IF(lwm) WRITE ( numonp, nampisdmp ) 
    238238 
    239239      IF(lwp) THEN                         ! control print 
    … …  
    252252      READ  ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 
    253253908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist', lwp ) 
    254       WRITE ( numonp, nampismass ) 
     254      IF(lwm) WRITE ( numonp, nampismass ) 
    255255 
    256256      IF(lwp) THEN                         ! control print 
Note: See TracChangeset for help on using the changeset viewer.