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

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

Location:
trunk/NEMOGCM/NEMO/LIM_SRC_2
Files:
8 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 
Note: See TracChangeset for help on using the changeset viewer.