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 9383 for branches – NEMO

Changeset 9383 for branches


Ignore:
Timestamp:
2018-03-08T10:22:55+01:00 (6 years ago)
Author:
andmirek
Message:

#2050 fixes and changes

Location:
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC
Files:
60 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r9366 r9383  
    146146         REWIND( numnam_ref )              ! Namelist nam_asminc in reference namelist : Assimilation increment 
    147147         READ  ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901) 
    148 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwm ) 
     148901      CONTINUE 
     149      ENDIF 
     150      call mpp_bcast(ios) 
     151      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwp ) 
     152      IF(lwm) THEN 
    149153         REWIND( numnam_cfg )              ! Namelist nam_asminc in configuration namelist : Assimilation increment 
    150154         READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 
    151 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwm ) 
    152       ENDIF 
     155902      CONTINUE 
     156      ENDIF 
     157      call mpp_bcast(ios) 
     158      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 
    153159 
    154160      IF(lwm) WRITE ( numond, nam_asminc ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r9366 r9383  
    534534            IF(lwm) THEN 
    535535               READ  ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901) 
    536 901            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwm ) 
     536901            CONTINUE 
     537            ENDIF 
     538            call mpp_bcast(ios) 
     539            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwp ) 
     540            IF(lwm) THEN 
    537541               READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 
    538 902            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwm ) 
    539             ENDIF 
     542902            CONTINUE 
     543            ENDIF 
     544            call mpp_bcast(ios) 
     545            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 
    540546 
    541547            IF(lwm) WRITE ( numond, nambdy_dta ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r9366 r9383  
    127127         REWIND( numnam_ref )              ! Namelist nambdy in reference namelist :Unstructured open boundaries   
    128128         READ  ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 
    129 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwm ) 
     129901      CONTINUE 
     130      ENDIF 
     131      call mpp_bcast(ios) 
     132      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 
     133      IF(lwm) THEN 
    130134         REWIND( numnam_cfg )              ! Namelist nambdy in configuration namelist :Unstructured open boundaries 
    131135         READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 
    132 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwm ) 
     136902      CONTINUE 
    133137      ENDIF 
     138      call mpp_bcast(ios) 
     139      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
    134140 
    135141      IF(lwm) WRITE ( numond, nambdy ) 
     
    426432            IF(lwm) THEN 
    427433               READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 
    428 904            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwm ) 
     434904            CONTINUE 
    429435            ENDIF 
     436            call mpp_bcast(ios) 
     437            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
     438 
    430439            IF(lwm) WRITE ( numond, nambdy_index ) 
    431440  
     
    17821791#if defined key_mpp_mpi 
    17831792      CALL mpp_bcast(nb_bdy) 
    1784       CALL mpp_bcast(ln_coords_file) 
     1793      CALL mpp_bcast(ln_coords_file, jp_bdy) 
    17851794      CALL mpp_bcast(cn_coords_file, 80) 
    17861795      CALL mpp_bcast(ln_mask_file) 
     
    17941803      CALL mpp_bcast(ln_tra_dmp) 
    17951804      CALL mpp_bcast(ln_dyn3d_dmp) 
    1796       CALL mpp_bcast(rn_time_dmp) 
    1797       CALL mpp_bcast(rn_time_dmp_out) 
     1805      CALL mpp_bcast(rn_time_dmp, jp_bdy) 
     1806      CALL mpp_bcast(rn_time_dmp_out, jp_bdy) 
    17981807      CALL mpp_bcast(cn_ice_lim, 20) 
    17991808      CALL mpp_bcast(nn_ice_lim_dta) 
    1800       CALL mpp_bcast(rn_ice_tem) 
    1801       CALL mpp_bcast(rn_ice_sal) 
    1802       CALL mpp_bcast(rn_ice_age) 
     1809      CALL mpp_bcast(rn_ice_tem, jp_bdy) 
     1810      CALL mpp_bcast(rn_ice_sal, jp_bdy) 
     1811      CALL mpp_bcast(rn_ice_age, jp_bdy) 
    18031812      CALL mpp_bcast(ln_vol) 
    18041813      CALL mpp_bcast(nn_volctl) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r9366 r9383  
    117117            IF(lwm) THEN 
    118118               READ  ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 
    119 901            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwm ) 
     119901            CONTINUE 
     120            ENDIF 
     121            call mpp_bcast(ios) 
     122            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwp ) 
     123            IF(lwm) THEN 
    120124               READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 
    121 902            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwm ) 
     125902            CONTINUE 
    122126            ENDIF 
     127            call mpp_bcast(ios) 
     128            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 
    123129 
    124130            IF(lwm) WRITE ( numond, nambdy_tide ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r9366 r9383  
    8989         REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run 
    9090         READ  ( numnam_ref, namcrs, IOSTAT = ios, ERR = 901) 
    91 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist', lwm ) 
     91901      CONTINUE 
     92      ENDIF 
     93      call mpp_bcast(ios) 
     94      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist', lwp ) 
     95      IF(lwm) THEN 
    9296         REWIND( numnam_cfg )              ! Namelist namrun in configuration namelist : Parameters of the run 
    9397         READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 
    94 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwm ) 
     98902      CONTINUE 
    9599      ENDIF 
     100      call mpp_bcast(ios) 
     101      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 
     102 
    96103      IF(lwm) WRITE ( numond, namcrs ) 
    97104 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r9366 r9383  
    148148        REWIND( numnam_ref )              ! Namelist namdct in reference namelist : Diagnostic: transport through sections 
    149149        READ  ( numnam_ref, namdct, IOSTAT = ios, ERR = 901) 
    150 901     IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in reference namelist', lwm ) 
     150901     CONTINUE 
     151     ENDIF 
     152     call mpp_bcast(ios) 
     153     IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in reference namelist', lwp ) 
     154     IF(lwm) THEN 
    151155        REWIND( numnam_cfg )              ! Namelist namdct in configuration namelist : Diagnostic: transport through sections 
    152156        READ  ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 
    153 902     IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwm ) 
     157902     CONTINUE 
    154158     ENDIF 
     159     call mpp_bcast(ios) 
     160     IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 
    155161 
    156162     IF(lwm) WRITE ( numond, namdct ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

    r9366 r9383  
    9292         REWIND( numnam_ref )              ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis 
    9393         READ  ( numnam_ref, nam_diaharm, IOSTAT = ios, ERR = 901) 
    94 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in reference namelist', lwm ) 
     94901      CONTINUE 
     95      ENDIF 
     96      call mpp_bcast(ios) 
     97      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in reference namelist', lwp ) 
     98      IF(lwm) THEN 
    9599         REWIND( numnam_cfg )              ! Namelist nam_diaharm in configuration namelist : Tidal harmonic analysis 
    96100         READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 
    97 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwm ) 
     101902      CONTINUE 
    98102      ENDIF 
     103      call mpp_bcast(ios) 
     104      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 
    99105 
    100106      IF(lwm) WRITE ( numond, nam_diaharm ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r9366 r9383  
    357357         REWIND( numnam_ref )              ! Namelist namhsb in reference namelist 
    358358         READ  ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 
    359 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist', lwm ) 
     359901      CONTINUE 
     360      ENDIF 
     361      call mpp_bcast(ios) 
     362      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist', lwp ) 
     363      IF(lwm) THEN 
    360364         REWIND( numnam_cfg )              ! Namelist namhsb in configuration namelist 
    361365         READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 
    362 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwm ) 
    363       ENDIF 
     366902      CONTINUE 
     367      ENDIF 
     368      call mpp_bcast(ios) 
     369      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 
    364370 
    365371      IF(lwm) WRITE ( numond, namhsb ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r9366 r9383  
    432432         REWIND( numnam_ref )              ! Namelist namptr in reference namelist : Poleward transport 
    433433         READ  ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 
    434 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist', lwm ) 
     434901      CONTINUE 
     435      ENDIF 
     436      call mpp_bcast(ios) 
     437      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist', lwp ) 
     438      IF(lwm) THEN 
    435439         REWIND( numnam_cfg )              ! Namelist namptr in configuration namelist : Poleward transport 
    436440         READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
    437 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwm ) 
    438       ENDIF 
     441902      CONTINUE 
     442      ENDIF 
     443      call mpp_bcast(ios) 
     444      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 
    439445 
    440446      IF(lwm) WRITE ( numond, namptr ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r9366 r9383  
    163163         REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run 
    164164         READ  ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 
    165 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwm ) 
     165901      CONTINUE 
     166      ENDIF 
     167      call mpp_bcast(ios) 
     168      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwp ) 
     169      IF(lwm) THEN 
    166170         REWIND( numnam_cfg )              ! Namelist namrun in configuration namelist : Parameters of the run 
    167171         READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    168 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwm ) 
    169       ENDIF 
     172902      CONTINUE 
     173      ENDIF 
     174      call mpp_bcast(ios) 
     175      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
    170176 
    171177      IF(lwm) WRITE ( numond, namrun ) 
     
    259265         REWIND( numnam_ref )              ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 
    260266         READ  ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 
    261 903      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwm ) 
     267903      CONTINUE 
     268      ENDIF 
     269      call mpp_bcast(ios) 
     270      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 
     271      IF(lwm) THEN 
    262272         REWIND( numnam_cfg )              ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 
    263273         READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    264 904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwm ) 
    265       ENDIF 
     274904      CONTINUE 
     275      ENDIF 
     276      call mpp_bcast(ios) 
     277      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
    266278 
    267279      IF(lwm) WRITE ( numond, namdom ) 
     
    327339         REWIND( numnam_ref )              ! Namelist namcla in reference namelist : Cross land advection 
    328340         READ  ( numnam_ref, namcla, IOSTAT = ios, ERR = 905) 
    329 905      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwm ) 
     341905      CONTINUE 
     342      ENDIF 
     343      call mpp_bcast(ios) 
     344      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwp ) 
     345      IF(lwm) THEN 
    330346         REWIND( numnam_cfg )              ! Namelist namcla in configuration namelist : Cross land advection 
    331347         READ  ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 
    332 906      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwm ) 
    333       ENDIF 
     348906      CONTINUE 
     349      ENDIF 
     350      call mpp_bcast(ios) 
     351      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 
     352 
    334353      IF(lwm) WRITE( numond, namcla ) 
    335354 
     
    354373         REWIND( numnam_ref )              ! Namelist namnc4 in reference namelist : NETCDF 
    355374         READ  ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 
    356 907      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwm ) 
     375907      CONTINUE 
     376      ENDIF 
     377      call mpp_bcast(ios) 
     378      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 
     379      IF(lwm) THEN 
    357380         REWIND( numnam_cfg )              ! Namelist namnc4 in configuration namelist : NETCDF 
    358381         READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    359 908      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwm ) 
    360       ENDIF 
     382908      CONTINUE 
     383      ENDIF 
     384      call mpp_bcast(ios) 
     385      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
    361386 
    362387      IF(lwm) WRITE( numond, namnc4 ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r9366 r9383  
    151151         REWIND( numnam_ref )              ! Namelist namlbc in reference namelist : Lateral momentum boundary condition 
    152152         READ  ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 ) 
    153 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwm ) 
     153901      CONTINUE 
     154      ENDIF 
     155      call mpp_bcast(ios) 
     156      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwp ) 
     157      IF(lwm) THEN 
    154158         REWIND( numnam_cfg )              ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition 
    155159         READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 
    156 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwm ) 
    157       ENDIF 
     160902      CONTINUE 
     161      ENDIF 
     162      call mpp_bcast(ios) 
     163      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 
    158164 
    159165      IF(lwm) WRITE ( numond, namlbc ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r9366 r9383  
    952952         REWIND( numnam_ref )              ! Namelist nam_vvl in reference namelist :  
    953953         READ  ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 
    954 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwm ) 
     954901      CONTINUE 
     955      ENDIF 
     956      call mpp_bcast(ios) 
     957      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwp ) 
     958      IF(lwm) THEN 
    955959         REWIND( numnam_cfg )              ! Namelist nam_vvl in configuration namelist : Parameters of the run 
    956960         READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 
    957 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwm ) 
    958       ENDIF 
     961902      CONTINUE 
     962      ENDIF 
     963      call mpp_bcast(ios) 
     964      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 
     965 
    959966      IF(lwm) WRITE ( numond, nam_vvl ) 
    960967 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r9366 r9383  
    4949 
    5050   PUBLIC   dom_zgr        ! called by dom_init.F90 
    51    PRIVATE  zgr_namelist 
     51   PRIVATE  zgr_namelist, sco_namelist 
    5252 
    5353   !                              !!* Namelist namzgr_sco * 
     
    111111         REWIND( numnam_ref )              ! Namelist namzgr in reference namelist : Vertical coordinate 
    112112         READ  ( numnam_ref, namzgr, IOSTAT = ios, ERR = 901 ) 
    113       ENDIF 
    114 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 
    115       IF(lwp) THEN 
     113901      CONTINUE 
     114      ENDIF 
     115      call mpp_bcast(ios) 
     116      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 
     117      IF(lwm) THEN 
    116118         REWIND( numnam_cfg )              ! Namelist namzgr in configuration namelist : Vertical coordinate 
    117119         READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
    118       ENDIF 
    119 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
     120902      CONTINUE 
     121      ENDIF 
     122      call mpp_bcast(ios) 
     123      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
     124 
    120125      IF(lwm) WRITE ( numond, namzgr ) 
     126 
     127      call zgr_namelist() 
    121128 
    122129      IF(lwp) THEN                     ! Control print 
     
    18291836         REWIND( numnam_ref )              ! Namelist namzgr_sco in reference namelist : Sigma-stretching parameters 
    18301837         READ  ( numnam_ref, namzgr_sco, IOSTAT = ios, ERR = 901) 
    1831 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in reference namelist', lwm ) 
     1838901      CONTINUE 
     1839      ENDIF 
     1840      call mpp_bcast(ios) 
     1841      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in reference namelist', lwp ) 
     1842      IF(lwm) THEN 
    18321843         REWIND( numnam_cfg )              ! Namelist namzgr_sco in configuration namelist : Sigma-stretching parameters 
    18331844         READ  ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 
    1834 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwm ) 
    1835       ENDIF 
     1845902      CONTINUE 
     1846      ENDIF 
     1847      call mpp_bcast(ios) 
     1848      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 
     1849 
    18361850      IF(lwm) WRITE ( numond, namzgr_sco ) 
    18371851  
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

    r9366 r9383  
    7777         REWIND( numnam_ref )              ! Namelist namtsd in reference namelist :  
    7878         READ  ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 
    79 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwm ) 
     79901      CONTINUE 
     80      ENDIF 
     81      call mpp_bcast(ios) 
     82      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwp ) 
     83      IF(lwm) THEN 
    8084         REWIND( numnam_cfg )              ! Namelist namtsd in configuration namelist : Parameters of the run 
    8185         READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    82 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwm ) 
    83       ENDIF 
     86902      CONTINUE 
     87      ENDIF 
     88      call mpp_bcast(ios) 
     89      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 
     90 
    8491      IF(lwm) WRITE ( numond, namtsd ) 
    8592 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

    r9366 r9383  
    105105         REWIND( numnam_ref )              ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 
    106106         READ  ( numnam_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 
    107 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist', lwm ) 
     107901      CONTINUE 
     108      ENDIF 
     109      call mpp_bcast(ios) 
     110      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist', lwp ) 
     111      IF(lwm) THEN 
    108112         REWIND( numnam_cfg )              ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 
    109113         READ  ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    110 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwm ) 
     114902      CONTINUE 
    111115      ENDIF 
     116      call mpp_bcast(ios) 
     117      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 
    112118 
    113119      IF(lwm) WRITE ( numond, namdyn_adv ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r9366 r9383  
    139139         REWIND( numnam_ref )              ! Namelist namdyn_hpg in reference namelist : Hydrostatic pressure gradient 
    140140         READ  ( numnam_ref, namdyn_hpg, IOSTAT = ios, ERR = 901) 
    141 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in reference namelist', lwm ) 
     141901      CONTINUE 
     142      ENDIF 
     143      call mpp_bcast(ios) 
     144      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in reference namelist', lwp ) 
     145      IF(lwm) THEN 
    142146         REWIND( numnam_cfg )              ! Namelist namdyn_hpg in configuration namelist : Hydrostatic pressure gradient 
    143147         READ  ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 
    144 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwm ) 
     148902      CONTINUE 
    145149      ENDIF 
     150      call mpp_bcast(ios) 
     151      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 
    146152 
    147153      IF(lwm) WRITE ( numond, namdyn_hpg ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

    r9366 r9383  
    122122         REWIND( numnam_ref )              ! Namelist namdyn_nept in reference namelist : Simplified Neptune 
    123123         READ  ( numnam_ref, namdyn_nept, IOSTAT = ios, ERR = 901) 
    124 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in reference namelist', lwm ) 
     124901      CONTINUE 
     125      ENDIF 
     126      call mpp_bcast(ios) 
     127      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in reference namelist', lwp ) 
     128      IF(lwm) THEN 
    125129         REWIND( numnam_cfg )              ! Namelist namdyn_nept in reference namelist : Simplified Neptune 
    126130         READ  ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 
    127 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwm ) 
    128       ENDIF 
     131902      CONTINUE 
     132      ENDIF 
     133      call mpp_bcast(ios) 
     134      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 
    129135 
    130136      IF(lwm) WRITE ( numond, namdyn_nept ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r9366 r9383  
    10851085         REWIND( numnam_ref )              ! Namelist namsplit in reference namelist : time splitting parameters 
    10861086         READ  ( numnam_ref, namsplit, IOSTAT = ios, ERR = 901) 
    1087 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in reference namelist', lwm ) 
     1087901      CONTINUE 
     1088      ENDIF 
     1089      call mpp_bcast(ios) 
     1090      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in reference namelist', lwp ) 
     1091      IF(lwm) THEN 
    10881092         REWIND( numnam_cfg )              ! Namelist namsplit in configuration namelist : time splitting parameters 
    10891093         READ  ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 
    1090 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwm ) 
    1091       ENDIF 
     1094902      CONTINUE 
     1095      ENDIF 
     1096      call mpp_bcast(ios) 
     1097      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp ) 
    10921098 
    10931099      IF(lwm) WRITE ( numond, namsplit ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r9366 r9383  
    726726         REWIND( numnam_ref )              ! Namelist namdyn_vor in reference namelist : Vorticity scheme options 
    727727         READ  ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901) 
    728 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist', lwm ) 
     728901      CONTINUE 
     729      ENDIF 
     730      call mpp_bcast(ios) 
     731      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist', lwp ) 
     732      IF(lwm) THEN 
    729733         REWIND( numnam_cfg )              ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options 
    730734         READ  ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 
    731 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwm ) 
    732       ENDIF 
     735902      CONTINUE 
     736      ENDIF 
     737      call mpp_bcast(ios) 
     738      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 
     739 
    733740      IF(lwm) WRITE ( numond, namdyn_vor ) 
    734741 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

    r9366 r9383  
    366366         REWIND( numnam_ref )              ! Namelist namberg in reference namelist : Iceberg parameters 
    367367         READ  ( numnam_ref, namberg, IOSTAT = ios, ERR = 901) 
    368 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwm ) 
     368901      CONTINUE 
     369      ENDIF 
     370      call mpp_bcast(ios) 
     371      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwp ) 
     372      IF(lwm) THEN 
    369373         REWIND( numnam_cfg )              ! Namelist namberg in configuration namelist : Iceberg parameters 
    370374         READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 
    371 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwm ) 
    372       ENDIF 
     375902      CONTINUE 
     376      ENDIF 
     377      call mpp_bcast(ios) 
     378      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 
    373379 
    374380      IF(lwm) WRITE ( numond, namberg ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8243 r9383  
    9090   INTERFACE mpp_bcast 
    9191      MODULE PROCEDURE mpp_bcast_i1, mpp_bcast_da, mpp_bcast_ch, mpp_bcast_ia, mpp_bcast_l, & 
    92      &                 mpp_bcast_d, mpp_bcast_d2a, mpp_bcast_d3a 
     92     &                 mpp_bcast_d, mpp_bcast_d2a, mpp_bcast_d3a, mpp_bcast_lv 
    9393   END INTERFACE 
    9494   INTERFACE mpp_min 
     
    18531853      INTEGER, INTENT(INOUT) :: ival  ! value to broadcast  
    18541854      INTEGER :: ierror ! mpi error 
     1855 
    18551856      CALL MPI_BCAST(ival, 1, MPI_INTEGER4, 0, mpi_comm_opa, ierror) 
     1857 
    18561858   END SUBROUTINE mpp_bcast_i1 
    18571859 
     
    18671869      INTEGER, INTENT(IN)  :: lng          ! length of dval  
    18681870      INTEGER              :: ierror       ! mpi error 
     1871 
    18691872      CALL MPI_BCAST(dvalv, lng, mpi_double_precision, 0, mpi_comm_opa, ierror)  
     1873 
    18701874   END SUBROUTINE mpp_bcast_da 
    18711875 
     
    18841888      INTEGER              :: itotal          ! local variable 
    18851889      itotal = nx*ny 
     1890 
    18861891      CALL MPI_BCAST(dvala, itotal, mpi_double_precision, 0, mpi_comm_opa, ierror)  
     1892 
    18871893   END SUBROUTINE mpp_bcast_d2a 
    18881894 
     
    18981904      INTEGER, INTENT(IN)  :: nx, ny, nz          ! size of dvala  
    18991905      INTEGER              :: ierror          ! mpi error 
     1906 
    19001907      CALL MPI_BCAST(dvala, nx*ny*nz, mpi_double_precision, 0, mpi_comm_opa, ierror)  
     1908 
    19011909   END SUBROUTINE mpp_bcast_d3a 
    19021910 
     
    19111919      REAL(wp), INTENT(INOUT) :: dval        ! real 1D array  
    19121920      INTEGER              :: ierror       ! mpi error 
     1921 
    19131922      CALL MPI_BCAST(dval, 1, mpi_double_precision, 0, mpi_comm_opa, ierror)  
     1923 
    19141924   END SUBROUTINE mpp_bcast_d 
    19151925 
     
    19221932      !i!              processor 0 - lwm = .true.. NETCDF related call 
    19231933      !!-------------------------------------------------------------------------- 
    1924       CHARACTER(len=lng), INTENT(IN) :: cstring      ! string 1D array  
     1934      CHARACTER(len=lng), INTENT(INOUT) :: cstring      ! string 1D array  
    19251935      INTEGER, INTENT(IN)            :: lng          ! length of cstring  
    19261936      INTEGER                        :: ierror       ! mpi error 
     1937 
    19271938      CALL MPI_BCAST(cstring, lng, MPI_CHARACTER, 0, mpi_comm_opa, ierror) 
     1939 
    19281940   END SUBROUTINE mpp_bcast_ch 
    19291941 
     
    19321944      INTEGER, INTENT (IN)                :: lng 
    19331945      INTEGER                             :: ierror       ! mpi error 
     1946 
    19341947      CALL MPI_BCAST(ivalv, lng, MPI_INTEGER4, 0, mpi_comm_opa, ierror) 
     1948 
    19351949   END SUBROUTINE mpp_bcast_ia 
    19361950 
     
    19381952      LOGICAL, INTENT(INOUT) :: lval  ! value to broadcast  
    19391953      INTEGER             :: ierror       ! mpi error 
     1954 
    19401955      CALL MPI_BCAST(lval, 1, MPI_LOGICAL, 0, mpi_comm_opa, ierror) 
     1956 
    19411957   END SUBROUTINE mpp_bcast_l 
     1958 
     1959   SUBROUTINE mpp_bcast_lv(ldval, inln) 
     1960      LOGICAL, DIMENSION(inln), INTENT(INOUT) :: ldval  ! value to broadcast  
     1961      INTEGER,                  INTENT(IN)    :: inln 
     1962      INTEGER                                 :: ierror       ! mpi error 
     1963 
     1964      CALL MPI_BCAST(ldval, inln, MPI_LOGICAL, 0, mpi_comm_opa, ierror) 
     1965 
     1966   END SUBROUTINE mpp_bcast_lv 
    19421967 
    19431968   SUBROUTINE mpp_bcast_d2d(dval, ni, nj) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r9366 r9383  
    7777         REWIND( numnam_ref )              ! Namelist namdyn_ldf in reference namelist : Lateral physics 
    7878         READ  ( numnam_ref, namdyn_ldf, IOSTAT = ios, ERR = 901) 
    79 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in reference namelist', lwm ) 
    80  
     79901      CONTINUE 
     80      ENDIF 
     81      call mpp_bcast(ios) 
     82      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in reference namelist', lwp ) 
     83      IF(lwm) THEN 
    8184         REWIND( numnam_cfg )              ! Namelist namdyn_ldf in configuration namelist : Lateral physics 
    8285         READ  ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 
    83 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwm ) 
    84       ENDIF 
     86902      CONTINUE 
     87      ENDIF 
     88      call mpp_bcast(ios) 
     89      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 
    8590 
    8691      IF(lwm) WRITE ( numond, namdyn_ldf ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

    r9366 r9383  
    8181         REWIND( numnam_ref )              ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers 
    8282         READ  ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901) 
    83 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwm ) 
     83901      CONTINUE 
     84      ENDIF 
     85      call mpp_bcast(ios) 
     86      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwp ) 
     87      IF(lwm) THEN 
    8488         REWIND( numnam_cfg )              ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers 
    8589         READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 
    86 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwm ) 
    87       ENDIF 
     90902      CONTINUE 
     91      ENDIF 
     92      call mpp_bcast(ios) 
     93      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 
     94 
    8895      IF(lwm) WRITE ( numond, namtra_ldf ) 
    8996 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r9366 r9383  
    15981598 
    15991599    END SUBROUTINE fin_date 
     1600 
    16001601END MODULE diaobs 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r9366 r9383  
    257257         REWIND( numnam_ref )              ! Namelist namsbc_alb in reference namelist : Albedo parameters 
    258258         READ  ( numnam_ref, namsbc_alb, IOSTAT = ios, ERR = 901) 
    259 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in reference namelist', lwm ) 
     259901      CONTINUE 
     260      ENDIF 
     261      call mpp_bcast(ios) 
     262      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in reference namelist', lwp ) 
     263      IF(lwm) THEN 
    260264         REWIND( numnam_cfg )              ! Namelist namsbc_alb in configuration namelist : Albedo parameters 
    261265         READ  ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 
    262 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwm ) 
     266902      CONTINUE 
    263267      ENDIF 
     268      call mpp_bcast(ios) 
     269      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 
     270 
    264271      IF(lwm) WRITE ( numond, namsbc_alb ) 
    265272      ! 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r9366 r9383  
    7878            REWIND( numnam_ref )              ! Namelist namsbc_ana in reference namelist : Analytical surface fluxes 
    7979            READ  ( numnam_ref, namsbc_ana, IOSTAT = ios, ERR = 901) 
    80 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in reference namelist', lwm ) 
     80901         CONTINUE 
     81         ENDIF 
     82         call mpp_bcast(ios) 
     83         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in reference namelist', lwp ) 
     84         IF(lwm) THEN 
    8185            REWIND( numnam_cfg )              ! Namelist namsbc_ana in configuration namelist : Analytical surface fluxes 
    8286            READ  ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 
    83 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwm ) 
     87902         CONTINUE 
    8488         ENDIF 
     89         call mpp_bcast(ios) 
     90         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 
    8591 
    8692         IF(lwm) WRITE ( numond, namsbc_ana ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r9366 r9383  
    8484            REWIND( numnam_ref )              ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing 
    8585            READ  ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901) 
    86 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwm ) 
     86901         CONTINUE 
     87         ENDIF 
     88         call mpp_bcast(ios) 
     89         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwp ) 
     90         IF(lwm) THEN 
    8791            REWIND( numnam_cfg )              ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing 
    8892            READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 
    89 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwm ) 
    90          ENDIF 
     93902         CONTINUE 
     94         ENDIF 
     95         call mpp_bcast(ios) 
     96         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 
    9197 
    9298         IF(lwm) WRITE ( numond, namsbc_apr ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r9366 r9383  
    149149            REWIND( numnam_ref )              ! Namelist namsbc_clio in reference namelist : CLIO files 
    150150            READ  ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901) 
    151 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwm ) 
     151901         CONTINUE 
     152         ENDIF 
     153         call mpp_bcast(ios) 
     154         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwp ) 
     155         IF(lwm) THEN 
    152156            REWIND( numnam_cfg )              ! Namelist namsbc_clio in configuration namelist : CLIO files 
    153157            READ  ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 
    154 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwm ) 
     158902         CONTINUE 
    155159         ENDIF 
     160         call mpp_bcast(ios) 
     161         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 
     162 
    156163         IF(lwm) WRITE ( numond, namsbc_clio ) 
    157164 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r9366 r9383  
    164164            REWIND( numnam_ref )              ! Namelist namsbc_core in reference namelist : CORE bulk parameters 
    165165            READ  ( numnam_ref, namsbc_core, IOSTAT = ios, ERR = 901) 
    166 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in reference namelist', lwm ) 
     166901         CONTINUE 
     167         ENDIF 
     168         call mpp_bcast(ios) 
     169         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in reference namelist', lwp ) 
     170         IF(lwm) THEN 
    167171            REWIND( numnam_cfg )              ! Namelist namsbc_core in configuration namelist : CORE bulk parameters 
    168172            READ  ( numnam_cfg, namsbc_core, IOSTAT = ios, ERR = 902 ) 
    169 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwm ) 
     173902         CONTINUE 
    170174         ENDIF 
     175         call mpp_bcast(ios) 
     176         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 
    171177 
    172178         IF(lwm) WRITE( numond, namsbc_core ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r9366 r9383  
    139139            REWIND( numnam_ref )              ! Namelist namsbc_msf in reference namelist : MFS files 
    140140            READ  ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 
    141 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwm ) 
     141901         CONTINUE 
     142         ENDIF 
     143         call mpp_bcast(ios) 
     144         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwp ) 
     145         IF(lwm) THEN 
    142146            REWIND( numnam_cfg )              ! Namelist namsbc_msf in configuration namelist : MFS files 
    143147            READ  ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 
    144 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwm ) 
     148902         CONTINUE 
    145149         ENDIF 
     150         call mpp_bcast(ios) 
     151         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 
     152 
    146153         IF(lwm) WRITE ( numond, namsbc_mfs ) 
    147154         ! 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9366 r9383  
    263263         REWIND( numnam_ref )              ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling 
    264264         READ  ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) 
    265 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwm ) 
     265901      CONTINUE 
     266      ENDIF 
     267      call mpp_bcast(ios) 
     268      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwp ) 
     269      IF(lwm) THEN 
    266270         REWIND( numnam_cfg )              ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling 
    267271         READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 
    268 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwm ) 
    269       ENDIF 
     272902      CONTINUE 
     273      ENDIF 
     274      call mpp_bcast(ios) 
     275      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 
     276 
    270277      IF(lwm) WRITE ( numond, namsbc_cpl ) 
    271278 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r9366 r9383  
    9797            REWIND( numnam_ref )              ! Namelist namsbc_flx in reference namelist : Files for fluxes 
    9898            READ  ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901) 
    99 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwm ) 
     99901         CONTINUE 
     100         ENDIF 
     101         call mpp_bcast(ios) 
     102         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwp ) 
     103         IF(lwm) THEN 
    100104            REWIND( numnam_cfg )              ! Namelist namsbc_flx in configuration namelist : Files for fluxes 
    101105            READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 
    102 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwm ) 
    103          ENDIF 
     106902         CONTINUE 
     107         ENDIF 
     108         call mpp_bcast(ios) 
     109         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 
     110 
    104111         IF(lwm) WRITE ( numond, namsbc_flx )  
    105112         ! 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r9366 r9383  
    869869            REWIND( numnam_ref )              ! Namelist namsbc_cice in reference namelist :  
    870870            READ  ( numnam_ref, namsbc_cice, IOSTAT = ios, ERR = 901) 
    871 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist', lwm ) 
     871901         CONTINUE 
     872         ENDIF 
     873         call mpp_bcast(ios) 
     874         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist', lwp ) 
     875         IF(lwm) THEN 
    872876            REWIND( numnam_cfg )              ! Namelist namsbc_cice in configuration namelist : Parameters of the run 
    873877            READ  ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 
    874 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwm ) 
     878902         CONTINUE 
    875879         ENDIF 
     880         call mpp_bcast(ios) 
     881         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 
    876882 
    877883         IF(lwm) WRITE ( numond, namsbc_cice ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r9366 r9383  
    7878            REWIND( numnam_ref )              ! Namelist namsbc_iif in reference namelist : Ice if file 
    7979            READ  ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 
    80 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwm ) 
     80901         CONTINUE 
     81         ENDIF 
     82         call mpp_bcast(ios) 
     83         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 
     84         IF(lwm) THEN 
    8185            REWIND( numnam_cfg )              ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 
    8286            READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 
    83 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwm ) 
     87902         CONTINUE 
    8488         ENDIF 
     89         call mpp_bcast(ios) 
     90         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 
    8591 
    8692         IF(lwm) WRITE ( numond, namsbc_iif ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r9366 r9383  
    109109            REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs  
    110110            READ  ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 
    111 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwm ) 
     111901         CONTINUE 
     112         ENDIF 
     113         call mpp_bcast(ios) 
     114         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwp ) 
     115         IF(lwm) THEN 
    112116            REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs 
    113117            READ  ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 
    114 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwm ) 
     118902         CONTINUE 
    115119         ENDIF 
     120         call mpp_bcast(ios) 
     121         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwp ) 
    116122 
    117123         IF(lwm) WRITE ( numond, namsbc_isf ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r9366 r9383  
    106106         REWIND( numnam_ref )              ! Namelist namsbc in reference namelist : Surface boundary 
    107107         READ  ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 
    108 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwm ) 
     108901      CONTINUE 
     109      ENDIF 
     110      call mpp_bcast(ios) 
     111      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp ) 
     112      IF(lwm) THEN 
    109113         REWIND( numnam_cfg )              ! Namelist namsbc in configuration namelist : Parameters of the run 
    110114         READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    111 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwm ) 
    112       ENDIF 
     115902      CONTINUE 
     116      ENDIF 
     117      call mpp_bcast(ios) 
     118      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
     119 
    113120      IF(lwm) WRITE ( numond, namsbc ) 
    114121 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r9366 r9383  
    287287         REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs  
    288288         READ  ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901) 
    289 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwm ) 
     289901      CONTINUE 
     290      ENDIF 
     291      call mpp_bcast(ios) 
     292      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwp ) 
     293      IF(lwm) THEN 
    290294         REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs 
    291295         READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 
    292 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwm ) 
    293       ENDIF 
     296902      CONTINUE 
     297      ENDIF 
     298      call mpp_bcast(ios) 
     299      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 
     300 
    294301      IF(lwm) WRITE ( numond, namsbc_rnf ) 
    295302      ! 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r9366 r9383  
    177177         REWIND( numnam_ref )              ! Namelist namsbc_ssr in reference namelist :  
    178178         READ  ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901) 
    179 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwm ) 
     179901      CONTINUE 
     180      ENDIF 
     181      call mpp_bcast(ios) 
     182      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwp ) 
     183      IF(lwm) THEN 
    180184         REWIND( numnam_cfg )              ! Namelist namsbc_ssr in configuration namelist : 
    181185         READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 
    182 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwm ) 
    183       ENDIF 
     186902      CONTINUE 
     187      ENDIF 
     188      call mpp_bcast(ios) 
     189      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 
     190 
    184191      IF(lwm) WRITE ( numond, namsbc_ssr ) 
    185192 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r9366 r9383  
    8787            REWIND( numnam_ref )              ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model 
    8888            READ  ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 
    89 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist', lwm ) 
     89901         CONTINUE 
     90         ENDIF 
     91         call mpp_bcast(ios) 
     92         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist', lwp ) 
     93         IF(lwm) THEN 
    9094            REWIND( numnam_cfg )              ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model 
    9195            READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 
    92 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwm ) 
     96902         CONTINUE 
    9397         ENDIF 
     98         call mpp_bcast(ios) 
     99         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 
    94100 
    95101         IF(lwm) WRITE ( numond, namsbc_wave ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r9366 r9383  
    6969          REWIND( numnam_ref )              ! Namelist nam_tide in reference namelist : Tides 
    7070          READ  ( numnam_ref, nam_tide, IOSTAT = ios, ERR = 901) 
    71 901       IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist', lwm ) 
     71901       CONTINUE 
     72       ENDIF 
     73       call mpp_bcast(ios) 
     74       IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist', lwp ) 
     75       IF(lwm) THEN 
    7276          REWIND( numnam_cfg )              ! Namelist nam_tide in configuration namelist : Tides 
    7377          READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
    74 902       IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwm ) 
     78902       CONTINUE 
    7579       ENDIF 
     80       call mpp_bcast(ios) 
     81       IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
    7682 
    7783       IF(lwm) WRITE ( numond, nam_tide ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

    r9366 r9383  
    6666         REWIND( numnam_ref )              ! Namelist namsol in reference namelist : Elliptic solver / free surface 
    6767         READ  ( numnam_ref, namsol, IOSTAT = ios, ERR = 901) 
    68 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in reference namelist', lwm ) 
     68901      CONTINUE 
     69      ENDIF 
     70      call mpp_bcast(ios) 
     71      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in reference namelist', lwp ) 
     72      IF(lwm) THEN 
    6973         REWIND( numnam_cfg )              ! Namelist namsol in configuration namelist : Elliptic solver / free surface 
    7074         READ  ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 
    71 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwm ) 
     75902      CONTINUE 
    7276      ENDIF 
     77      call mpp_bcast(ios) 
     78      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 
    7379 
    7480      IF(lwm) WRITE ( numond, namsol ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r9366 r9383  
    265265         REWIND( numnam_ref )              ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 
    266266         READ  ( numnam_ref, namsto, IOSTAT = ios, ERR = 901) 
    267 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist', lwm ) 
     267901      CONTINUE 
     268      ENDIF 
     269      call mpp_bcast(ios) 
     270      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist', lwp ) 
     271      IF(lwm) THEN 
    268272         REWIND( numnam_cfg )              ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 
    269273         READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 
    270 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwm ) 
    271       ENDIF 
     274902      CONTINUE 
     275      ENDIF 
     276      call mpp_bcast(ios) 
     277      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp ) 
     278 
    272279      IF(lwm) WRITE ( numond, namsto ) 
    273280 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r9366 r9383  
    12361236         REWIND( numnam_ref )              ! Namelist nameos in reference namelist : equation of state 
    12371237         READ  ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 
    1238 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwm ) 
     1238901      CONTINUE 
     1239      ENDIF 
     1240      call mpp_bcast(ios) 
     1241      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwp ) 
     1242      IF(lwm) THEN 
    12391243         REWIND( numnam_cfg )              ! Namelist nameos in configuration namelist : equation of state 
    12401244         READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
    1241 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwm ) 
     1245902      CONTINUE 
    12421246      ENDIF 
     1247      call mpp_bcast(ios) 
     1248      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
     1249 
    12431250      IF(lwm) WRITE( numond, nameos ) 
    12441251      ! 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r9366 r9383  
    199199         REWIND( numnam_ref )              ! Namelist namtra_adv in reference namelist : Tracer advection scheme 
    200200         READ  ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 
    201 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist', lwm ) 
     201901      CONTINUE 
     202      ENDIF 
     203      call mpp_bcast(ios) 
     204      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist', lwp ) 
     205      IF(lwm) THEN 
    202206         REWIND( numnam_cfg )              ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 
    203207         READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
    204 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwm ) 
    205       ENDIF 
     208902      CONTINUE 
     209      ENDIF 
     210      call mpp_bcast(ios) 
     211      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
    206212      IF(lwm) WRITE ( numond, namtra_adv ) 
    207213 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r9366 r9383  
    286286         REWIND( numnam_ref )              ! Namelist namtra_adv_mle in reference namelist : Tracer advection scheme 
    287287         READ  ( numnam_ref, namtra_adv_mle, IOSTAT = ios, ERR = 901) 
    288 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in reference namelist', lwm ) 
     288901      CONTINUE 
     289      ENDIF 
     290      call mpp_bcast(ios) 
     291      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in reference namelist', lwp ) 
     292      IF(lwm) THEN 
    289293         REWIND( numnam_cfg )              ! Namelist namtra_adv_mle in configuration namelist : Tracer advection scheme 
    290294         READ  ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 
    291 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwm ) 
    292       ENDIF 
     295902      CONTINUE 
     296      ENDIF 
     297      call mpp_bcast(ios) 
     298      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 
    293299      IF(lwm) WRITE ( numond, namtra_adv_mle ) 
    294300 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r9366 r9383  
    143143         REWIND( numnam_ref )              ! Namelist nambbc in reference namelist : Bottom momentum boundary condition 
    144144         READ  ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901) 
    145 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwm ) 
     145901      CONTINUE 
     146      ENDIF 
     147      call mpp_bcast(ios) 
     148      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwp ) 
     149      IF(lwm) THEN 
    146150         REWIND( numnam_cfg )              ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition 
    147151         READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    148 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwm ) 
    149       ENDIF 
     152902      CONTINUE 
     153      ENDIF 
     154      call mpp_bcast(ios) 
     155      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
    150156      IF(lwm) WRITE ( numond, nambbc ) 
    151157 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r9366 r9383  
    512512         REWIND( numnam_ref )              ! Namelist nambbl in reference namelist : Bottom boundary layer scheme 
    513513         READ  ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 
    514 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwm ) 
     514901      CONTINUE 
     515      ENDIF 
     516      call mpp_bcast(ios) 
     517      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwp ) 
     518      IF(lwm) THEN 
    515519         REWIND( numnam_cfg )              ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme 
    516520         READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
    517 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwm ) 
    518       ENDIF 
     521902      CONTINUE 
     522      ENDIF 
     523      call mpp_bcast(ios) 
     524      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
    519525 
    520526      IF(lwm) WRITE ( numond, nambbl ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r9366 r9383  
    200200         REWIND( numnam_ref )   ! Namelist namtra_dmp in reference namelist : T & S relaxation 
    201201         READ  ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 
    202 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwm ) 
     202901      CONTINUE 
     203      ENDIF 
     204      call mpp_bcast(ios) 
     205      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 
     206      IF(lwm) THEN 
    203207         REWIND( numnam_cfg )   ! Namelist namtra_dmp in configuration namelist : T & S relaxation 
    204208         READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
    205 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwm ) 
    206       ENDIF 
     209902      CONTINUE 
     210      ENDIF 
     211      call mpp_bcast(ios) 
     212      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
    207213 
    208214      IF(lwm) WRITE ( numond, namtra_dmp ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r9366 r9383  
    438438         REWIND( numnam_ref )              ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration 
    439439         READ  ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 
    440 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwm ) 
     440901      CONTINUE 
     441      ENDIF 
     442      call mpp_bcast(ios) 
     443      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwp ) 
     444      IF(lwm) THEN 
    441445         REWIND( numnam_cfg )              !  Namelist namtra_qsr in configuration namelist : Ratio and length of penetration 
    442446         READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 
    443 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwm ) 
    444       ENDIF 
     447902      CONTINUE 
     448      ENDIF 
     449      call mpp_bcast(ios) 
     450      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
    445451 
    446452      IF(lwm) WRITE ( numond, namtra_qsr ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90

    r9366 r9383  
    5151         REWIND( numnam_ref )              ! Namelist namtrd in reference namelist : trends diagnostic 
    5252         READ  ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 
    53 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwm ) 
     53901      CONTINUE 
     54      ENDIF 
     55      call mpp_bcast(ios) 
     56      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwp ) 
     57      IF(lwm) THEN 
    5458         REWIND( numnam_cfg )              ! Namelist namtrd in configuration namelist : trends diagnostic 
    5559         READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 
    56 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwm ) 
     60902      CONTINUE 
    5761      ENDIF 
     62      call mpp_bcast(ios) 
     63      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
    5864 
    5965      IF(lwm) WRITE( numond, namtrd ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

    r9366 r9383  
    761761         REWIND( numnam_ref )              ! Namelist namtrd_mxl in reference namelist : mixed layer trends diagnostic 
    762762         READ  ( numnam_ref, namtrd_mxl, IOSTAT = ios, ERR = 901 ) 
    763 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist', lwm ) 
     763901      CONTINUE 
     764      ENDIF 
     765      call mpp_bcast(ios) 
     766      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist', lwp ) 
     767      IF(lwm) THEN 
    764768         REWIND( numnam_cfg )              ! Namelist namtrd_mxl in configuration namelist : mixed layer trends diagnostic 
    765769         READ  ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 
    766 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwm ) 
     770902      CONTINUE 
    767771      ENDIF 
     772      call mpp_bcast(ios) 
     773      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwp ) 
    768774 
    769775      IF(lwm) WRITE( numond, namtrd_mxl ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r9366 r9383  
    254254         REWIND( numnam_ref )              ! Namelist nambfr in reference namelist : Bottom momentum boundary condition 
    255255         READ  ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901) 
    256 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwm ) 
     256901      CONTINUE 
     257      ENDIF 
     258      call mpp_bcast(ios) 
     259      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwp ) 
     260      IF(lwm) THEN 
    257261         REWIND( numnam_cfg )              ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition 
    258262         READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 
    259 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwm ) 
    260       ENDIF 
     263902      CONTINUE 
     264      ENDIF 
     265      call mpp_bcast(ios) 
     266      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 
     267 
    261268      IF(lwm) WRITE ( numond, nambfr ) 
    262269 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r9366 r9383  
    243243         REWIND( numnam_ref )              ! Namelist namzdf_ddm in reference namelist : Double diffusion mixing scheme 
    244244         READ  ( numnam_ref, namzdf_ddm, IOSTAT = ios, ERR = 901) 
    245 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in reference namelist', lwm ) 
     245901      CONTINUE 
     246      ENDIF 
     247      call mpp_bcast(ios) 
     248      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in reference namelist', lwp ) 
     249      IF(lwm) THEN 
    246250         REWIND( numnam_cfg )              ! Namelist namzdf_ddm in configuration namelist : Double diffusion mixing scheme 
    247251         READ  ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 
    248 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwm ) 
     252902      CONTINUE 
    249253      ENDIF 
     254      call mpp_bcast(ios) 
     255      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 
    250256 
    251257      IF(lwm) WRITE ( numond, namzdf_ddm ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r9366 r9383  
    879879         REWIND( numnam_ref )              ! Namelist namzdf_gls in reference namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 
    880880         READ  ( numnam_ref, namzdf_gls, IOSTAT = ios, ERR = 901) 
    881 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in reference namelist', lwm ) 
    882  
     881901      CONTINUE 
     882      ENDIF 
     883      call mpp_bcast(ios) 
     884      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in reference namelist', lwp ) 
     885 
     886      IF(lwm) THEN 
    883887         REWIND( numnam_cfg )              ! Namelist namzdf_gls in configuration namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 
    884888         READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 
    885 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwm ) 
     889902      CONTINUE 
    886890      ENDIF 
     891      call mpp_bcast(ios) 
     892      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 
    887893 
    888894      IF(lwm) WRITE ( numond, namzdf_gls ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r9366 r9383  
    6161         REWIND( numnam_ref )              ! Namelist namzdf in reference namelist : Vertical mixing parameters 
    6262         READ  ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 
    63 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwm ) 
     63901      CONTINUE 
     64       ENDIF 
     65       call mpp_bcast(ios) 
     66       IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwm ) 
     67       IF(lwm) THEN 
    6468         REWIND( numnam_cfg )              ! Namelist namzdf in reference namelist : Vertical mixing parameters 
    6569         READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 
    66 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwm ) 
    67       ENDIF 
     70902      CONTINUE 
     71      ENDIF 
     72      call mpp_bcast(ios) 
     73      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwm ) 
    6874 
    6975      IF(lwm) WRITE ( numond, namzdf ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r9366 r9383  
    13661366         REWIND( numnam_ref )              ! Namelist namzdf_kpp in reference namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 
    13671367         READ  ( numnam_ref, namzdf_kpp, IOSTAT = ios, ERR = 901) 
    1368 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwm ) 
     1368901      CONTINUE 
     1369      ENDIF 
     1370      call mpp_bcast(ios) 
     1371      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwp ) 
     1372      IF(lwm) THEN 
    13691373         REWIND( numnam_cfg )              ! Namelist namzdf_kpp in configuration namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 
    13701374         READ  ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 
    1371 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwm ) 
     1375902      CONTINUE 
    13721376      ENDIF 
     1377      call mpp_bcast(ios) 
     1378      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 
     1379 
    13731380      IF(lwm) WRITE ( numond, namzdf_kpp ) 
    13741381 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r9366 r9383  
    468468            REWIND( numnam_ref )              ! Namelist namzdf_mldzint in reference namelist  
    469469            READ  ( numnam_ref, namzdf_mldzint, IOSTAT = ios, ERR = 901) 
    470 901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in reference namelist', lwm ) 
     470901         CONTINUE 
     471         ENDIF 
     472         call mpp_bcast(ios) 
     473         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in reference namelist', lwp ) 
     474         IF(lwm) THEN 
    471475            REWIND( numnam_cfg )              ! Namelist namzdf_mldzint in configuration namelist  
    472476            READ  ( numnam_cfg, namzdf_mldzint, IOSTAT = ios, ERR = 902 ) 
    473 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in configuration namelist', lwm ) 
     477902         CONTINUE 
    474478         ENDIF 
     479         call mpp_bcast(ios) 
     480         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in configuration namelist', lwp ) 
    475481 
    476482         IF(lwm) WRITE ( numond, namzdf_mldzint ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r9366 r9383  
    257257         REWIND( numnam_ref )              ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 
    258258         READ  ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 
    259 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwm ) 
     259901      CONTINUE 
     260      ENDIF 
     261      call mpp_bcast(ios) 
     262      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwp ) 
    260263         REWIND( numnam_cfg )              ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 
    261264         READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
    262 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwm ) 
     265902      CONTINUE 
    263266      ENDIF 
     267      call mpp_bcast(ios) 
     268      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
    264269 
    265270      IF(lwm) WRITE ( numond, namzdf_ric ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r9366 r9383  
    784784         REWIND( numnam_ref )              ! Namelist namzdf_tke in reference namelist : Turbulent Kinetic Energy 
    785785         READ  ( numnam_ref, namzdf_tke, IOSTAT = ios, ERR = 901) 
    786 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist', lwm ) 
     786901      CONTINUE 
     787      ENDIF 
     788      call mpp_bcast(ios) 
     789      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist', lwp ) 
     790      IF(lwm) THEN 
    787791         REWIND( numnam_cfg )              ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy 
    788792         READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 
    789 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwm ) 
    790       ENDIF 
     793902      CONTINUE 
     794      ENDIF 
     795      call mpp_bcast(ios) 
     796      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 
    791797 
    792798      IF(lwm) WRITE ( numond, namzdf_tke ) 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r9366 r9383  
    384384         REWIND( numnam_ref )              ! Namelist namzdf_tmx in reference namelist : Tidal Mixing 
    385385         READ  ( numnam_ref, namzdf_tmx, IOSTAT = ios, ERR = 901) 
    386 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist', lwm ) 
     386901      CONTINUE 
     387      ENDIF 
     388      call mpp_bcast(ios) 
     389      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist', lwp ) 
     390      IF(lwm) THEN 
    387391         REWIND( numnam_cfg )              ! Namelist namzdf_tmx in configuration namelist : Tidal Mixing 
    388392         READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 
    389 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwm ) 
    390       ENDIF 
     393902      CONTINUE 
     394      ENDIF 
     395      call mpp_bcast(ios) 
     396      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
    391397 
    392398      IF(lwm) WRITE ( numond, namzdf_tmx ) 
Note: See TracChangeset for help on using the changeset viewer.