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 – 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
Files:
25 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 

  • trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

    r4319 r4624  
    5555      CALL ctl_opn( numnatc_ref, 'namelist_cfc_ref'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    5656      CALL ctl_opn( numnatc_cfg, 'namelist_cfc_cfg'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    57       CALL ctl_opn( numonc     , 'output.namelist.cfc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     57      IF(lwm) CALL ctl_opn( numonc, 'output.namelist.cfc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    5858 
    5959      REWIND( numnatc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters 
    … …  
    6464      READ  ( numnatc_cfg, namcfcdate, IOSTAT = ios, ERR = 902 ) 
    6565902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in configuration namelist', lwp ) 
    66       WRITE ( numonc, namcfcdate ) 
     66      IF(lwm) WRITE ( numonc, namcfcdate ) 
    6767 
    6868      IF(lwp) THEN                  ! control print 
    … …  
    8888         READ  ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 ) 
    8989904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp ) 
    90          WRITE ( numonc, namcfcdia ) 
     90         IF(lwm) WRITE ( numonc, namcfcdia ) 
    9191 
    9292         DO jl = 1, jp_cfc_2d 
    … …  
    110110      ENDIF 
    111111 
    112    CALL FLUSH ( numonc )     ! flush output namelist CFC 
     112   IF(lwm) CALL FLUSH ( numonc )     ! flush output namelist CFC 
    113113 
    114114   END SUBROUTINE trc_nam_cfc 

  • 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 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90

    r4147 r4624  
    174174      READ  ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 
    175175902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 
    176       WRITE ( numonp, namlobopt ) 
     176      IF(lwm) WRITE ( numonp, namlobopt ) 
    177177 
    178178      IF(lwp) THEN 
    … …  
    196196      READ  ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 
    197197904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 
    198       WRITE ( numonp, namlobrat ) 
     198      IF(lwm) WRITE ( numonp, namlobrat ) 
    199199 
    200200      IF(lwp) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90

    r4609 r4624  
    161161      READ  ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 
    162162902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 
    163       WRITE ( numonp, namlobsed ) 
     163      IF(lwm) WRITE ( numonp, namlobsed ) 
    164164 
    165165      IF(lwp) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsms.F90

    r4147 r4624  
    6767      IF( lk_trdmld_trc )  CALL trd_mld_bio( kt )   ! trends: Mixed-layer 
    6868      ! 
    69       IF ( kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES 
     69      IF ( lwm .AND. kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES 
    7070      IF( nn_timing == 1 )  CALL timing_stop('p2z_sms') 
    7171      ! 

  • 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 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

    r4319 r4624  
    7272      CALL ctl_opn( numnatp_ref, TRIM( clname )//'_ref', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    7373      CALL ctl_opn( numnatp_cfg, TRIM( clname )//'_cfg', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    74       CALL ctl_opn( numonp     , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     74      IF(lwm) CALL ctl_opn( numonp     , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    7575      ! 
    7676      IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN 
    … …  
    8585         READ  ( numnatp_cfg, nampisdia, IOSTAT = ios, ERR = 902 ) 
    8686902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in configuration namelist', lwp ) 
    87          WRITE ( numonp, nampisdia ) 
     87         IF(lwm) WRITE ( numonp, nampisdia ) 
    8888 
    8989         DO jl = 1, jp_pisces_2d 
    … …  
    134134         READ  ( numnatp_cfg, nampisdbi, IOSTAT = ios, ERR = 904 ) 
    135135904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in configuration namelist', lwp ) 
    136          WRITE ( numonp, nampisdbi ) 
     136         IF(lwm) WRITE ( numonp, nampisdbi ) 
    137137 
    138138         DO jl = 1, jp_pisces_trd 

  • trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r4359 r4624  
    9797      READ  ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 
    9898902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist', lwp ) 
    99       WRITE ( numont, namtrc_adv ) 
     99      IF(lwm) WRITE ( numont, namtrc_adv ) 
    100100 
    101101      IF(lwp) THEN                    ! Namelist print 
    … …  
    119119      READ  ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 
    120120904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist', lwp ) 
    121       WRITE ( numont, namtrc_ldf ) 
     121      IF(lwm) WRITE ( numont, namtrc_ldf ) 
    122122 
    123123      IF(lwp) THEN                    ! Namelist print 
    … …  
    144144      READ  ( numnat_cfg, namtrc_zdf, IOSTAT = ios, ERR = 906 ) 
    145145906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_zdf in configuration namelist', lwp ) 
    146       WRITE ( numont, namtrc_zdf ) 
     146      IF(lwm) WRITE ( numont, namtrc_zdf ) 
    147147 
    148148      IF(lwp) THEN                     !   ! Control print 
    … …  
    161161      READ  ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 
    162162908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist', lwp ) 
    163       WRITE ( numont, namtrc_rad ) 
     163      IF(lwm) WRITE ( numont, namtrc_rad ) 
    164164 
    165165      IF(lwp) THEN                     !   ! Control print 
    … …  
    177177      READ  ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 
    178178910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist', lwp ) 
    179       WRITE ( numont, namtrc_dmp ) 
     179      IF(lwm) WRITE ( numont, namtrc_dmp ) 
    180180 
    181181      IF(lwp) THEN                       ! Namelist print 

  • trunk/NEMOGCM/NEMO/TOP_SRC/trcbc.F90

    r4230 r4624  
    141141      READ  ( numnat_cfg, namtrc_bc, IOSTAT = ios, ERR = 902 ) 
    142142902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist', lwp ) 
    143       WRITE ( numont, namtrc_bc ) 
     143      IF(lwm) WRITE ( numont, namtrc_bc ) 
    144144 
    145145      ! print some information for each  

  • trunk/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

    r4489 r4624  
    102102      READ  ( numnat_cfg, namtrc_dta, IOSTAT = ios, ERR = 902 ) 
    103103902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta in configuration namelist', lwp ) 
    104       WRITE ( numont, namtrc_dta ) 
     104      IF(lwm) WRITE ( numont, namtrc_dta ) 
    105105 
    106106      IF( lwp ) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r4319 r4624  
    128128         READ  ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 
    129129906      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist', lwp ) 
    130          WRITE ( numont, namtrc_trd ) 
     130         IF(lwm) WRITE ( numont, namtrc_trd ) 
    131131 
    132132         IF(lwp) THEN 
    … …  
    187187      CALL ctl_opn( numnat_ref, 'namelist_top_ref'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    188188      CALL ctl_opn( numnat_cfg, 'namelist_top_cfg'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    189       CALL ctl_opn( numont    , 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 
     189      IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 
    190190 
    191191      REWIND( numnat_ref )              ! Namelist namtrc in reference namelist : Passive tracer variables 
    … …  
    196196      READ  ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 
    197197902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 
    198       WRITE ( numont, namtrc_run ) 
     198      IF(lwm) WRITE ( numont, namtrc_run ) 
    199199 
    200200      !  computes the first time step of tracer model 
    … …  
    242242      READ  ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 
    243243902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 
    244       WRITE ( numont, namtrc ) 
     244      IF(lwm) WRITE ( numont, namtrc ) 
    245245 
    246246      DO jn = 1, jptra 
    … …  
    291291      READ  ( numnat_cfg, namtrc_dia, IOSTAT = ios, ERR = 904 ) 
    292292904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in configuration namelist', lwp ) 
    293       WRITE ( numont, namtrc_dia ) 
     293      IF(lwm) WRITE ( numont, namtrc_dia ) 
    294294 
    295295      IF(lwp) THEN 

  • trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r4306 r4624  
    9797         IF( kt == nittrc000 ) THEN 
    9898            CALL iom_close( numrtr )       ! close input tracer restart file 
    99             CALL FLUSH    ( numont )       ! flush namelist output 
     99            IF(lwm) CALL FLUSH( numont )   ! flush namelist output 
    100100         ENDIF 
    101101         IF( lrst_trc )            CALL trc_rst_wri  ( kt )       ! write tracer restart file 
Note: See TracChangeset for help on using the changeset viewer.