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 – NEMO

Changeset 4624 for trunk/NEMOGCM/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
Files:
111 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r4607 r4624  
    8282      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
    8383      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    84       CALL ctl_opn( numoni,        'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
     84      IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    8585 
    8686      !                                ! Open the namelist file  
     
    134134      READ  ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 
    135135902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 
    136       WRITE ( numoni, namicerun ) 
     136      IF(lwm) WRITE ( numoni, namicerun ) 
    137137      ! 
    138138      IF(lwp) THEN                              ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90

    r4338 r4624  
    188188       READ  ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 
    189189902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
    190        WRITE ( numoni, namicedia ) 
     190       IF(lwm) WRITE ( numoni, namicedia ) 
    191191        
    192192       IF(lwp) THEN                             ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limdmp_2.F90

    r4147 r4624  
    118118      READ  ( numnam_ice_cfg, namice_dmp, IOSTAT = ios, ERR = 902 ) 
    119119902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in configuration namelist', lwp ) 
    120       WRITE ( numoni, namice_dmp ) 
     120      IF(lwm) WRITE ( numoni, namice_dmp ) 
    121121      ! 
    122122      IF ( lwp ) THEN                     !* control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90

    r4161 r4624  
    238238      READ  ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 
    239239902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 
    240       WRITE ( numoni, namicedyn ) 
     240      IF(lwm) WRITE ( numoni, namicedyn ) 
    241241 
    242242      IF(lwp) THEN                                ! Control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r4147 r4624  
    176176      READ  ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 
    177177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
    178       WRITE ( numoni, namiceini ) 
     178      IF(lwm) WRITE ( numoni, namiceini ) 
    179179      ! 
    180180      IF(lwp) THEN 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r4306 r4624  
    550550      READ  ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 
    551551902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
    552       WRITE ( numoni, namicethd ) 
     552      IF(lwm) WRITE ( numoni, namicethd ) 
    553553 
    554554      IF( lk_cpl .AND. parsub /= 0.0 )   CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r4147 r4624  
    308308      READ  ( numnam_ice_cfg, namicetrp, IOSTAT = ios, ERR = 902 ) 
    309309902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 
    310       WRITE ( numoni, namicetrp ) 
     310      IF(lwm) WRITE ( numoni, namicetrp ) 
    311311 
    312312      IF(lwp) THEN 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r4251 r4624  
    264264      READ  ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 
    265265902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 
    266       WRITE ( numoni, namiceout ) 
     266      IF(lwm) WRITE ( numoni, namiceout ) 
    267267       
    268268      zfield( 1) = field_1 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

    r4333 r4624  
    7474      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
    7575      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    76       CALL ctl_opn( numoni,        'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
     76      IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    7777      ! 
    7878      CALL ice_run                     ! set some ice run parameters 
     
    141141      READ  ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 
    142142902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 
    143       WRITE ( numoni, namicerun ) 
     143      IF(lwm) WRITE ( numoni, namicerun ) 
    144144      ! 
    145145      !IF( lk_mpp .AND. ln_nicep ) THEN 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r4161 r4624  
    282282      READ  ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 
    283283902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 
    284       WRITE ( numoni, namicedyn ) 
     284      IF(lwm) WRITE ( numoni, namicedyn ) 
    285285       
    286286      IF(lwp) THEN                        ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r4335 r4624  
    507507      READ  ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 
    508508902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
    509       WRITE ( numoni, namiceini ) 
     509      IF(lwm) WRITE ( numoni, namiceini ) 
    510510 
    511511      ! Define the initial parameters 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r4346 r4624  
    14181418      READ  ( numnam_ice_cfg, namiceitdme, IOSTAT = ios, ERR = 902 ) 
    14191419902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in configuration namelist', lwp ) 
    1420       WRITE ( numoni, namiceitdme ) 
     1420      IF(lwm) WRITE ( numoni, namiceitdme ) 
    14211421      ! 
    14221422      IF (lwp) THEN                          ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r4333 r4624  
    837837      READ  ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 
    838838902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
    839       WRITE ( numoni, namicethd ) 
     839      IF(lwm) WRITE ( numoni, namicethd ) 
    840840      ! 
    841841      IF(lwp) THEN                          ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r4161 r4624  
    193193      READ  ( numnam_ice_cfg, namicesal, IOSTAT = ios, ERR = 902 ) 
    194194902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in configuration namelist', lwp ) 
    195       WRITE ( numoni, namicesal ) 
     195      IF(lwm) WRITE ( numoni, namicesal ) 
    196196      ! 
    197197      IF(lwp) THEN                           ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r4333 r4624  
    469469      READ  ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 
    470470902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 
    471       WRITE ( numoni, namiceout ) 
     471      IF(lwm) WRITE ( numoni, namiceout ) 
    472472 
    473473      zfield(1)  = field_1 
  • trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r4486 r4624  
    624624      READ  ( numnam_cfg, namagrif, IOSTAT = ios, ERR = 902 ) 
    625625902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp ) 
    626       WRITE ( numond, namagrif ) 
     626      IF(lwm) WRITE ( numond, namagrif ) 
    627627   ! 
    628628   IF(lwp) THEN                    ! control print 
  • trunk/NEMOGCM/NEMO/OFF_SRC/domain.F90

    r4382 r4624  
    139139      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    140140902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
    141       WRITE ( numond, namrun ) 
     141      IF(lwm) WRITE ( numond, namrun ) 
    142142      ! 
    143143      IF(lwp) THEN                  ! control print 
     
    215215      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    216216904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
    217       WRITE ( numond, namdom ) 
     217      IF(lwm) WRITE ( numond, namdom ) 
    218218 
    219219      IF(lwp) THEN 
     
    276276      READ  ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 
    277277906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 
    278       WRITE( numond, namcla ) 
     278      IF(lwm) WRITE( numond, namcla ) 
    279279 
    280280      IF(lwp) THEN 
     
    293293      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    294294908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
    295       WRITE( numond, namnc4 ) 
     295      IF(lwm) WRITE( numond, namnc4 ) 
    296296      IF(lwp) THEN                        ! control print 
    297297         WRITE(numout,*) 
     
    345345      READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
    346346902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
    347       WRITE ( numond, namzgr ) 
     347      IF(lwm) WRITE ( numond, namzgr ) 
    348348 
    349349      IF(lwp) THEN                     ! Control print 
  • trunk/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

    r4570 r4624  
    350350      READ  ( numnam_cfg, namdta_dyn, IOSTAT = ios, ERR = 902 ) 
    351351902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist', lwp ) 
    352       WRITE ( numond, namdta_dyn ) 
     352      IF(lwm) WRITE ( numond, namdta_dyn ) 
    353353      !                                         ! store namelist information in an array 
    354354      !                                         ! Control print 
  • trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r4319 r4624  
    155155      CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    156156      CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    157       CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    158157      ! 
    159158      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints & Benchmark 
     
    164163      READ  ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 
    165164902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 
    166       WRITE( numond, namctl ) 
    167165 
    168166      ! 
     
    174172      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
    175173904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )    
    176       WRITE( numond, namcfg ) 
    177174 
    178175      ! 
    179176      !                             !--------------------------------------------! 
    180177      !                             !  set communicator & select the local node  ! 
     178      !                             !  NB: mynode also opens output.namelist.dyn ! 
     179      !                             !      on unit number numond on first proc   ! 
    181180      !                             !--------------------------------------------! 
    182181#if defined key_iomput 
    183          CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
     182      CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
    184183      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection 
    185184#else 
     
    190189      narea = narea + 1                       ! mynode return the rank of proc (0 --> jpnij -1 ) 
    191190 
     191      lwm = (narea == 1)                      ! control of output namelists 
    192192      lwp = (narea == 1) .OR. ln_ctl          ! control of all listing output print 
     193 
     194      IF(lwm) THEN 
     195         ! write merged namelists from earlier to output namelist now that the 
     196         ! file has been opened in call to mynode. nammpp has already been 
     197         ! written in mynode (if lk_mpp_mpi) 
     198         WRITE( numond, namctl ) 
     199         WRITE( numond, namcfg ) 
     200      ENDIF 
    193201 
    194202      ! If dimensions of processor grid weren't specified in the namelist file  
  • trunk/NEMOGCM/NEMO/OOO_SRC/nemogcm.F90

    r4319 r4624  
    141141      CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    142142      CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    143       CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    144143      ! 
    145144      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints & Benchmark 
     
    150149      READ  ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 
    151150902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 
    152       WRITE( numond, namctl ) 
    153151 
    154152      ! 
     
    160158      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
    161159904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )    
    162       WRITE( numond, namcfg ) 
    163160 
    164161      !                             !--------------------------------------------! 
    165162      !                             !  set communicator & select the local node  ! 
     163      !                             !  NB: mynode also opens output.namelist.dyn ! 
     164      !                             !      on unit number numond on first proc   ! 
    166165      !                             !--------------------------------------------! 
    167166#if defined key_iomput 
     
    174173# endif 
    175174      ENDIF 
    176       narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
     175      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection 
    177176#else 
    178177# if defined key_oasis3 || defined key_oasis4 
     
    180179         CALL cpl_prism_init( ilocal_comm )                 ! nemo local communicator given by oasis 
    181180      ENDIF 
    182       narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection (control print return in cltxt) 
     181      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection (control print return in cltxt) 
    183182# else 
    184183      ilocal_comm = 0 
    185       narea = mynode( cltxt, numnam, nstop )                 ! Nodes selection (control print return in cltxt) 
     184      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop )                ! Nodes selection (control print return in cltxt) 
    186185# endif 
    187186#endif 
    188187      narea = narea + 1                                     ! mynode return the rank of proc (0 --> jpnij -1 ) 
    189188 
     189      lwm = (narea == 1)                                    ! control of output namelists 
    190190      lwp = (narea == 1) .OR. ln_ctl                        ! control of all listing output print 
     191 
     192      IF(lwm) THEN 
     193         ! write merged namelists from earlier to output namelist now that the 
     194         ! file has been opened in call to mynode. nammpp has already been 
     195         ! written in mynode (if lk_mpp_mpi) 
     196         WRITE( numond, namctl ) 
     197         WRITE( numond, namcfg ) 
     198      ENDIF 
    191199 
    192200      ! If dimensions of processor grid weren't specified in the namelist file 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r4313 r4624  
    154154      READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 
    155155902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 
    156       WRITE ( numond, nam_asminc ) 
     156      IF(lwm) WRITE ( numond, nam_asminc ) 
    157157 
    158158      ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r4608 r4624  
    532532            READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 
    533533902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 
    534             WRITE ( numond, nambdy_dta ) 
     534            IF(lwm) WRITE ( numond, nambdy_dta ) 
    535535 
    536536            cn_dir_array(ib_bdy) = cn_dir 
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r4354 r4624  
    132132      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 
    133133902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
    134       WRITE ( numond, nambdy ) 
     134      IF(lwm) WRITE ( numond, nambdy ) 
    135135 
    136136      ! ----------------------------------------- 
     
    418418            READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 
    419419904         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
    420             WRITE ( numond, nambdy_index ) 
     420            IF(lwm) WRITE ( numond, nambdy_index ) 
    421421 
    422422            SELECT CASE ( TRIM(ctypebdy) ) 
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r4354 r4624  
    117117            READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 
    118118902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 
    119             WRITE ( numond, nambdy_tide ) 
     119            IF(lwm) WRITE ( numond, nambdy_tide ) 
    120120            !                                               ! Parameter control and print 
    121121            IF(lwp) WRITE(numout,*) '  ' 
  • trunk/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90

    r4247 r4624  
    5555      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 
    5656902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 
    57       WRITE ( numond, namc1d ) 
     57      IF(lwm) WRITE ( numond, namc1d ) 
    5858 
    5959      ! 
  • trunk/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90

    r4294 r4624  
    7373      READ  ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 
    7474902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist', lwp ) 
    75       WRITE ( numond, namc1d_uvd ) 
     75      IF(lwm) WRITE ( numond, namc1d_uvd ) 
    7676 
    7777      !                             ! force the initialization when dyndmp is used 
  • trunk/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90

    r4367 r4624  
    8484      READ  ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 
    8585902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist', lwp ) 
    86       WRITE ( numond, namc1d_dyndmp ) 
     86      IF(lwm) WRITE ( numond, namc1d_dyndmp ) 
    8787 
    8888      IF(lwp) THEN                           ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r4294 r4624  
    9292      READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 
    9393902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 
    94       WRITE ( numond, namcrs ) 
     94      IF(lwm) WRITE ( numond, namcrs ) 
    9595 
    9696     IF(lwp) THEN 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r4613 r4624  
    151151     READ  ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 
    152152902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 
    153      WRITE ( numond, namdct ) 
     153     IF(lwm) WRITE ( numond, namdct ) 
    154154 
    155155     IF( lwp ) THEN 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

    r4292 r4624  
    9494      READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 
    9595902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 
    96       WRITE ( numond, nam_diaharm ) 
     96      IF(lwm) WRITE ( numond, nam_diaharm ) 
    9797      ! 
    9898      IF(lwp) THEN 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r4558 r4624  
    221221      READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 
    222222902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 
    223       WRITE ( numond, namhsb ) 
     223      IF(lwm) WRITE ( numond, namhsb ) 
    224224 
    225225      ! 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r4292 r4624  
    467467      READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
    468468902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 
    469       WRITE ( numond, namptr ) 
     469      IF(lwm) WRITE ( numond, namptr ) 
    470470 
    471471      IF(lwp) THEN                     ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r4490 r4624  
    159159      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    160160902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
    161       WRITE ( numond, namrun ) 
     161      IF(lwm) WRITE ( numond, namrun ) 
    162162      ! 
    163163      IF(lwp) THEN                  ! control print 
     
    241241      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    242242904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
    243       WRITE ( numond, namdom ) 
     243      IF(lwm) WRITE ( numond, namdom ) 
    244244 
    245245      IF(lwp) THEN 
     
    303303      READ  ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 
    304304906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 
    305       WRITE( numond, namcla ) 
     305      IF(lwm) WRITE( numond, namcla ) 
    306306 
    307307      IF(lwp) THEN 
     
    327327      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    328328908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
    329       WRITE( numond, namnc4 ) 
     329      IF(lwm) WRITE( numond, namnc4 ) 
    330330 
    331331      IF(lwp) THEN                        ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r4328 r4624  
    152152      READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 
    153153902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 
    154       WRITE ( numond, namlbc ) 
     154      IF(lwm) WRITE ( numond, namlbc ) 
    155155       
    156156      IF(lwp) THEN                  ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r4490 r4624  
    922922      READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 
    923923902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 
    924       WRITE ( numond, nam_vvl ) 
     924      IF(lwm) WRITE ( numond, nam_vvl ) 
    925925 
    926926      IF(lwp) THEN                    ! Namelist print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r4292 r4624  
    113113      READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
    114114902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
    115       WRITE ( numond, namzgr ) 
     115      IF(lwm) WRITE ( numond, namzgr ) 
    116116 
    117117      IF(lwp) THEN                     ! Control print 
     
    11401140      READ  ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 
    11411141902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 
    1142       WRITE ( numond, namzgr_sco ) 
     1142      IF(lwm) WRITE ( numond, namzgr_sco ) 
    11431143 
    11441144      IF(lwp) THEN                           ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

    r4292 r4624  
    7777      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    7878902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 
    79       WRITE ( numond, namtsd ) 
     79      IF(lwm) WRITE ( numond, namtsd ) 
    8080 
    8181      IF( PRESENT( ld_tradmp ) )   ln_tsd_tradmp = .TRUE.     ! forces the initialization when tradmp is used 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

    r4147 r4624  
    101101      READ  ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    102102902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 
    103       WRITE ( numond, namdyn_adv ) 
     103      IF(lwm) WRITE ( numond, namdyn_adv ) 
    104104 
    105105      IF(lwp) THEN                    ! Namelist print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r4292 r4624  
    135135      READ  ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 
    136136902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 
    137       WRITE ( numond, namdyn_hpg ) 
     137      IF(lwm) WRITE ( numond, namdyn_hpg ) 
    138138      ! 
    139139      IF(lwp) THEN                   ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

    r4372 r4624  
    125125      READ  ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 
    126126902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 
    127       WRITE ( numond, namdyn_nept ) 
     127      IF(lwm) WRITE ( numond, namdyn_nept ) 
    128128 
    129129      IF(lwp) THEN                      ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r4496 r4624  
    10621062      READ  ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 
    10631063902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp ) 
    1064       WRITE ( numond, namsplit ) 
     1064      IF(lwm) WRITE ( numond, namsplit ) 
    10651065      ! 
    10661066      !         ! Max courant number for ext. grav. waves 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r4601 r4624  
    725725      READ  ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 
    726726902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 
    727       WRITE ( numond, namdyn_vor ) 
     727      IF(lwm) WRITE ( numond, namdyn_vor ) 
    728728 
    729729      IF(lwp) THEN                    ! Namelist print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

    r4147 r4624  
    9696      READ  ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 
    9797902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 
    98       WRITE ( numond, namflo ) 
     98      IF(lwm) WRITE ( numond, namflo ) 
    9999      ! 
    100100      IF(lwp) THEN                  ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

    r4153 r4624  
    363363      READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 
    364364902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 
    365       WRITE ( numond, namberg ) 
     365      IF(lwm) WRITE ( numond, namberg ) 
    366366#else 
    367367      IF(lwp) THEN 
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r4147 r4624  
    138138   CHARACTER(lc) ::   cform_err = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !: 
    139139   CHARACTER(lc) ::   cform_war = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !: 
    140    LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only 
     140   LOGICAL       ::   lwm      = .FALSE.    !: boolean : true on the 1st processor only (always) 
     141   LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. ln_ctl 
    141142   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area 
    142143 
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r4328 r4624  
    170170      INTEGER                      , INTENT(in   ) ::   kumnam_ref     ! logical unit for reference namelist 
    171171      INTEGER                      , INTENT(in   ) ::   kumnam_cfg     ! logical unit for configuration namelist 
    172       INTEGER                      , INTENT(in   ) ::   kumond         ! logical unit for namelist output 
     172      INTEGER                      , INTENT(inout) ::   kumond         ! logical unit for namelist output 
    173173      INTEGER                      , INTENT(inout) ::   kstop          ! stop indicator 
    174174      INTEGER, OPTIONAL            , INTENT(in   ) ::   localComm 
     
    193193      READ  ( kumnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 
    194194902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist', lwp ) 
    195       WRITE(kumond, nammpp)       
    196195 
    197196      !                              ! control print 
     
    293292      CALL mpi_comm_size( mpi_comm_opa, mppsize, ierr ) 
    294293      mynode = mpprank 
     294 
     295      IF( mynode == 0 ) THEN 
     296        CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
     297        WRITE(kumond, nammpp)       
     298      ENDIF 
    295299      ! 
    296300      CALL MPI_OP_CREATE(DDPDD_MPI, .TRUE., MPI_SUMDD, ierr) 
     
    29242928      IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0 
    29252929      IF( .FALSE. )   ldtxt(:) = 'never done' 
     2930      CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    29262931   END FUNCTION mynode 
    29272932 
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

    r4153 r4624  
    8686      READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
    8787902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
    88       WRITE ( numond, namzgr ) 
     88      IF(lwm) WRITE ( numond, namzgr ) 
    8989 
    9090      IF(lwp)WRITE(numout,*) 
  • trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r4292 r4624  
    8181      READ  ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 
    8282902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 
    83       WRITE ( numond, namdyn_ldf ) 
     83      IF(lwm) WRITE ( numond, namdyn_ldf ) 
    8484 
    8585      IF(lwp) THEN                      ! Parameter print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

    r4147 r4624  
    8585      READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 
    87       WRITE ( numond, namtra_ldf ) 
     87      IF(lwm) WRITE ( numond, namtra_ldf ) 
    8888 
    8989      IF(lwp) THEN                      ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r4292 r4624  
    221221      READ  ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 
    222222902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 
    223       WRITE ( numond, namobs ) 
     223      IF(lwm) WRITE ( numond, namobs ) 
    224224 
    225225      ! Count number of files for each type 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r4147 r4624  
    212212      READ  ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 
    213213902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 
    214       WRITE ( numond, namsbc_alb ) 
     214      IF(lwm) WRITE ( numond, namsbc_alb ) 
    215215      ! 
    216216      IF(lwp) THEN                      ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r4604 r4624  
    8181         READ  ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 
    8282902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 
    83          WRITE ( numond, namsbc_ana ) 
     83         IF(lwm) WRITE ( numond, namsbc_ana ) 
    8484         ! 
    8585         IF(lwp) WRITE(numout,*)' ' 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r4328 r4624  
    8383         READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 
    8484902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 
    85          WRITE ( numond, namsbc_apr ) 
     85         IF(lwm) WRITE ( numond, namsbc_apr ) 
    8686         ! 
    8787         ALLOCATE( sf_apr(1), STAT=ierror )           !* allocate and fill sf_sst (forcing structure) with sn_sst 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r4147 r4624  
    148148         READ  ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 
    149149902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 
    150          WRITE ( numond, namsbc_clio ) 
     150         IF(lwm) WRITE ( numond, namsbc_clio ) 
    151151 
    152152         ! store namelist information in an array 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r4333 r4624  
    154154902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 
    155155 
    156          WRITE ( numond, namsbc_core ) 
     156         IF(lwm) WRITE ( numond, namsbc_core ) 
    157157         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
    158158         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &  
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r4147 r4624  
    141141         READ  ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 
    142142902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 
    143          WRITE ( numond, namsbc_mfs ) 
     143         IF(lwm) WRITE ( numond, namsbc_mfs ) 
    144144         ! 
    145145         ! store namelist information in an array 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r4393 r4624  
    244244      READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 
    245245902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 
    246       WRITE ( numond, namsbc_cpl ) 
     246      IF(lwm) WRITE ( numond, namsbc_cpl ) 
    247247 
    248248      IF(lwp) THEN                        ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r4147 r4624  
    9898         READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 
    9999902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 
    100          WRITE ( numond, namsbc_flx )  
     100         IF(lwm) WRITE ( numond, namsbc_flx )  
    101101         ! 
    102102         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r4292 r4624  
    747747         READ  ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 
    748748902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 
    749          WRITE ( numond, namsbc_cice ) 
     749         IF(lwm) WRITE ( numond, namsbc_cice ) 
    750750 
    751751         ! store namelist information in an array 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r4161 r4624  
    7878         READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 
    7979902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 
    80          WRITE ( numond, namsbc_iif ) 
     80         IF(lwm) WRITE ( numond, namsbc_iif ) 
    8181 
    8282         ALLOCATE( sf_ice(1), STAT=ierror ) 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r4607 r4624  
    101101      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    102102902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
    103       WRITE ( numond, namsbc ) 
     103      IF(lwm) WRITE ( numond, namsbc ) 
    104104 
    105105      !                          ! overwrite namelist parameter using CPP key information 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r4368 r4624  
    263263      READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 
    264264902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 
    265       WRITE ( numond, namsbc_rnf ) 
     265      IF(lwm) WRITE ( numond, namsbc_rnf ) 
    266266      ! 
    267267      !                                         ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r4147 r4624  
    174174      READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 
    175175902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 
    176       WRITE ( numond, namsbc_ssr ) 
     176      IF(lwm) WRITE ( numond, namsbc_ssr ) 
    177177 
    178178      IF(lwp) THEN                 !* control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r4292 r4624  
    9090         READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 
    9191902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 
    92          WRITE ( numond, namsbc_wave ) 
     92         IF(lwm) WRITE ( numond, namsbc_wave ) 
    9393         ! 
    9494 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r4292 r4624  
    7272       READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
    7373902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
    74        WRITE ( numond, nam_tide ) 
     74       IF(lwm) WRITE ( numond, nam_tide ) 
    7575       ! 
    7676       nb_harmo=0 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

    r4147 r4624  
    7070      READ  ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 
    7171902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 
    72       WRITE ( numond, namsol ) 
     72      IF(lwm) WRITE ( numond, namsol ) 
    7373 
    7474      IF(lwp) THEN                  !* Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r4292 r4624  
    723723      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
    724724902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
    725       WRITE( numond, nameos ) 
     725      IF(lwm) WRITE( numond, nameos ) 
    726726      ! 
    727727      IF(lwp) THEN                ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r4292 r4624  
    176176      READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
    177177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
    178       WRITE ( numond, namtra_adv ) 
     178      IF(lwm) WRITE ( numond, namtra_adv ) 
    179179 
    180180      IF(lwp) THEN                    ! Namelist print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r4325 r4624  
    285285      READ  ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 
    286286902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 
    287       WRITE ( numond, namtra_adv_mle ) 
     287      IF(lwm) WRITE ( numond, namtra_adv_mle ) 
    288288 
    289289      IF(lwp) THEN                     ! Namelist print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r4147 r4624  
    141141      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    142142902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
    143       WRITE ( numond, nambbc ) 
     143      IF(lwm) WRITE ( numond, nambbc ) 
    144144 
    145145      IF(lwp) THEN                     ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r4292 r4624  
    577577      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
    578578902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
    579       WRITE ( numond, nambbl ) 
     579      IF(lwm) WRITE ( numond, nambbl ) 
    580580      ! 
    581581      l_bbl = .TRUE.                 !* flag to compute bbl coef and transport 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r4292 r4624  
    205205      READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
    206206902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
    207       WRITE ( numond, namtra_dmp ) 
     207      IF(lwm) WRITE ( numond, namtra_dmp ) 
    208208       
    209209      IF( lzoom .AND. .NOT. lk_c1d )   nn_zdmp = 0          ! restoring to climatology at closed north or south boundaries 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r4333 r4624  
    399399      READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 
    400400902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
    401       WRITE ( numond, namtra_qsr ) 
     401      IF(lwm) WRITE ( numond, namtra_qsr ) 
    402402      ! 
    403403      IF(lwp) THEN                ! control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90

    r4147 r4624  
    266266         READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 
    267267902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
    268          WRITE ( numond, namtrd ) 
     268         IF(lwm) WRITE ( numond, namtrd ) 
    269269 
    270270         IF(lwp) THEN 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r4381 r4624  
    203203      READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 
    204204902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 
    205       WRITE ( numond, nambfr ) 
     205      IF(lwm) WRITE ( numond, nambfr ) 
    206206      IF(lwp) WRITE(numout,*) 
    207207      IF(lwp) WRITE(numout,*) 'zdf_bfr_init : momentum bottom friction' 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r4147 r4624  
    223223      READ  ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 
    224224902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 
    225       WRITE ( numond, namzdf_ddm ) 
     225      IF(lwm) WRITE ( numond, namzdf_ddm ) 
    226226      ! 
    227227      IF(lwp) THEN                    ! Parameter print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r4147 r4624  
    948948      READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 
    949949902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 
    950       WRITE ( numond, namzdf_gls ) 
     950      IF(lwm) WRITE ( numond, namzdf_gls ) 
    951951 
    952952      IF(lwp) THEN                     !* Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r4292 r4624  
    6464      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 
    6565902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 
    66       WRITE ( numond, namzdf ) 
     66      IF(lwm) WRITE ( numond, namzdf ) 
    6767 
    6868      IF(lwp) THEN               !* Parameter print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r4147 r4624  
    13991399      READ  ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 
    14001400902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 
    1401       WRITE ( numond, namzdf_kpp ) 
     1401      IF(lwm) WRITE ( numond, namzdf_kpp ) 
    14021402 
    14031403      IF(lwp) THEN                    ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r4147 r4624  
    260260      READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
    261261902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
    262       WRITE ( numond, namzdf_ric ) 
     262      IF(lwm) WRITE ( numond, namzdf_ric ) 
    263263      ! 
    264264      IF(lwp) THEN                   ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r4147 r4624  
    707707      READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 
    708708902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 
    709       WRITE ( numond, namzdf_tke ) 
     709      IF(lwm) WRITE ( numond, namzdf_tke ) 
    710710      ! 
    711711      ri_cri   = 2._wp    / ( 2._wp + rn_ediss / rn_ediff )   ! resulting critical Richardson number 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r4147 r4624  
    377377      READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 
    378378902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
    379       WRITE ( numond, namzdf_tmx ) 
     379      IF(lwm) WRITE ( numond, namzdf_tmx ) 
    380380 
    381381      IF(lwp) THEN                   ! Control print 
  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r4354 r4624  
    240240      CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    241241      CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    242       CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    243242      ! 
    244243      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints & Benchmark 
     
    249248      READ  ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 
    250249902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 
    251       WRITE( numond, namctl ) 
    252250 
    253251      ! 
     
    259257      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
    260258904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )    
    261       WRITE( numond, namcfg ) 
    262259 
    263260! Force values for AGRIF zoom (cf. agrif_user.F90) 
     
    279276      !                             !--------------------------------------------! 
    280277      !                             !  set communicator & select the local node  ! 
     278      !                             !  NB: mynode also opens output.namelist.dyn ! 
     279      !                             !      on unit number numond on first proc   ! 
    281280      !                             !--------------------------------------------! 
    282281#if defined key_iomput 
     
    303302      narea = narea + 1                                     ! mynode return the rank of proc (0 --> jpnij -1 ) 
    304303 
     304      lwm = (narea == 1)                                    ! control of output namelists 
    305305      lwp = (narea == 1) .OR. ln_ctl                        ! control of all listing output print 
     306 
     307      IF(lwm) THEN 
     308         ! write merged namelists from earlier to output namelist now that the 
     309         ! file has been opened in call to mynode. nammpp has already been 
     310         ! written in mynode (if lk_mpp_mpi) 
     311         WRITE( numond, namctl ) 
     312         WRITE( numond, namcfg ) 
     313      ENDIF 
    306314 
    307315      ! If dimensions of processor grid weren't specified in the namelist file 
     
    586594      IF( numnam_ref      /= -1 )   CLOSE( numnam_ref      )   ! oce reference namelist 
    587595      IF( numnam_cfg      /= -1 )   CLOSE( numnam_cfg      )   ! oce configuration namelist 
    588       IF( numond          /= -1 )   CLOSE( numond          )   ! oce output namelist 
     596      IF( lwm.AND.numond  /= -1 )   CLOSE( numond          )   ! oce output namelist 
    589597      IF( numnam_ice_ref  /= -1 )   CLOSE( numnam_ice_ref  )   ! ice reference namelist 
    590598      IF( numnam_ice_cfg  /= -1 )   CLOSE( numnam_ice_cfg  )   ! ice configuration namelist 
    591       IF( numoni          /= -1 )   CLOSE( numoni          )   ! ice output namelist 
     599      IF( lwm.AND.numoni  /= -1 )   CLOSE( numoni          )   ! ice output namelist 
    592600      IF( numevo_ice      /= -1 )   CLOSE( numevo_ice      )   ! ice variables (temp. evolution) 
    593601      IF( numout          /=  6 )   CLOSE( numout          )   ! standard model output file 
  • trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

    r4491 r4624  
    312312      ENDIF 
    313313      IF( kstp == nit000   )   THEN 
    314          CALL iom_close( numror )     ! close input  ocean restart file 
    315          CALL FLUSH    ( numond )     ! flush output namelist oce 
    316          CALL FLUSH    ( numoni )     ! flush output namelist ice     
     314                 CALL iom_close( numror )     ! close input  ocean restart file 
     315         IF(lwm) CALL FLUSH    ( numond )     ! flush output namelist oce 
     316         IF(lwm) CALL FLUSH    ( numoni )     ! flush output namelist ice     
    317317      ENDIF 
    318318      IF( lrst_oce         )   CALL rst_write    ( kstp )   ! write output ocean restart file 
  • trunk/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r4319 r4624  
    168168      CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    169169      CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    170       CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    171170      ! 
    172171      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints & Benchmark 
     
    177176      READ  ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 
    178177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 
    179       WRITE( numond, namctl ) 
    180178 
    181179      ! 
     
    187185      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
    188186904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )    
    189       WRITE( numond, namcfg ) 
    190187 
    191188      !                             !--------------------------------------------! 
    192189      !                             !  set communicator & select the local node  ! 
     190      !                             !  NB: mynode also opens output.namelist.dyn ! 
     191      !                             !      on unit number numond on first proc   ! 
    193192      !                             !--------------------------------------------! 
    194193#if defined key_iomput 
     
    203202      narea = narea + 1                                     ! mynode return the rank of proc (0 --> jpnij -1 ) 
    204203 
     204      lwm = (narea == 1)                                    ! control of output namelists 
    205205      lwp = (narea == 1) .OR. ln_ctl                        ! control of all listing output print 
     206 
     207      IF(lwm) THEN 
     208         ! write merged namelists from earlier to output namelist now that the 
     209         ! file has been opened in call to mynode. nammpp has already been 
     210         ! written in mynode (if lk_mpp_mpi) 
     211         WRITE( numond, namctl ) 
     212         WRITE( numond, namcfg ) 
     213      ENDIF 
    206214 
    207215      ! If dimensions of processor grid weren't specified in the namelist file  
     
    405413      IF( numnam_ref      /= -1 )   CLOSE( numnam_ref      )   ! oce reference namelist 
    406414      IF( numnam_cfg      /= -1 )   CLOSE( numnam_cfg      )   ! oce configuration namelist 
    407       IF( numond          /= -1 )   CLOSE( numond          )   ! oce output namelist 
     415      IF( lwm.AND.numond  /= -1 )   CLOSE( numond          )   ! oce output namelist 
    408416      IF( numnam_ice_ref  /= -1 )   CLOSE( numnam_ice_ref  )   ! ice reference namelist 
    409417      IF( numnam_ice_cfg  /= -1 )   CLOSE( numnam_ice_cfg  )   ! ice configuration namelist 
    410       IF( numoni          /= -1 )   CLOSE( numoni          )   ! ice output namelist 
     418      IF( lwm.AND.numoni  /= -1 )   CLOSE( numoni          )   ! ice output namelist 
    411419      IF( numevo_ice      /= -1 )   CLOSE( numevo_ice  )   ! ice variables (temp. evolution) 
    412420      IF( numout          /=  6 )   CLOSE( numout      )   ! standard model output file 
  • trunk/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r4186 r4624  
    150150      READ  ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 
    151151902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist', lwp ) 
    152       WRITE ( numond, namsbc_sas ) 
     152      IF(lwm) WRITE ( numond, namsbc_sas ) 
    153153 
    154154      !                                         ! store namelist information in an array 
  • 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.