- Timestamp:
- 2018-03-08T10:22:55+01:00 (6 years ago)
- 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 146 146 REWIND( numnam_ref ) ! Namelist nam_asminc in reference namelist : Assimilation increment 147 147 READ ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901) 148 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwm ) 148 901 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 149 153 REWIND( numnam_cfg ) ! Namelist nam_asminc in configuration namelist : Assimilation increment 150 154 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 155 902 CONTINUE 156 ENDIF 157 call mpp_bcast(ios) 158 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 153 159 154 160 IF(lwm) WRITE ( numond, nam_asminc ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r9366 r9383 534 534 IF(lwm) THEN 535 535 READ ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901) 536 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwm ) 536 901 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 537 541 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 542 902 CONTINUE 543 ENDIF 544 call mpp_bcast(ios) 545 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 540 546 541 547 IF(lwm) WRITE ( numond, nambdy_dta ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r9366 r9383 127 127 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries 128 128 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 129 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwm ) 129 901 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 130 134 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries 131 135 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 132 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwm )136 902 CONTINUE 133 137 ENDIF 138 call mpp_bcast(ios) 139 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 134 140 135 141 IF(lwm) WRITE ( numond, nambdy ) … … 426 432 IF(lwm) THEN 427 433 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 428 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwm )434 904 CONTINUE 429 435 ENDIF 436 call mpp_bcast(ios) 437 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 438 430 439 IF(lwm) WRITE ( numond, nambdy_index ) 431 440 … … 1782 1791 #if defined key_mpp_mpi 1783 1792 CALL mpp_bcast(nb_bdy) 1784 CALL mpp_bcast(ln_coords_file )1793 CALL mpp_bcast(ln_coords_file, jp_bdy) 1785 1794 CALL mpp_bcast(cn_coords_file, 80) 1786 1795 CALL mpp_bcast(ln_mask_file) … … 1794 1803 CALL mpp_bcast(ln_tra_dmp) 1795 1804 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) 1798 1807 CALL mpp_bcast(cn_ice_lim, 20) 1799 1808 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) 1803 1812 CALL mpp_bcast(ln_vol) 1804 1813 CALL mpp_bcast(nn_volctl) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r9366 r9383 117 117 IF(lwm) THEN 118 118 READ ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 119 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwm ) 119 901 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 120 124 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 121 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwm )125 902 CONTINUE 122 126 ENDIF 127 call mpp_bcast(ios) 128 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 123 129 124 130 IF(lwm) WRITE ( numond, nambdy_tide ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90
r9366 r9383 89 89 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 90 90 READ ( numnam_ref, namcrs, IOSTAT = ios, ERR = 901) 91 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist', lwm ) 91 901 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 92 96 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 93 97 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 94 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwm )98 902 CONTINUE 95 99 ENDIF 100 call mpp_bcast(ios) 101 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 102 96 103 IF(lwm) WRITE ( numond, namcrs ) 97 104 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r9366 r9383 148 148 REWIND( numnam_ref ) ! Namelist namdct in reference namelist : Diagnostic: transport through sections 149 149 READ ( numnam_ref, namdct, IOSTAT = ios, ERR = 901) 150 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in reference namelist', lwm ) 150 901 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 151 155 REWIND( numnam_cfg ) ! Namelist namdct in configuration namelist : Diagnostic: transport through sections 152 156 READ ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 153 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwm )157 902 CONTINUE 154 158 ENDIF 159 call mpp_bcast(ios) 160 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 155 161 156 162 IF(lwm) WRITE ( numond, namdct ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r9366 r9383 92 92 REWIND( numnam_ref ) ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis 93 93 READ ( numnam_ref, nam_diaharm, IOSTAT = ios, ERR = 901) 94 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in reference namelist', lwm ) 94 901 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 95 99 REWIND( numnam_cfg ) ! Namelist nam_diaharm in configuration namelist : Tidal harmonic analysis 96 100 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 97 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwm )101 902 CONTINUE 98 102 ENDIF 103 call mpp_bcast(ios) 104 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 99 105 100 106 IF(lwm) WRITE ( numond, nam_diaharm ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r9366 r9383 357 357 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist 358 358 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 359 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist', lwm ) 359 901 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 360 364 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist 361 365 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 362 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwm ) 363 ENDIF 366 902 CONTINUE 367 ENDIF 368 call mpp_bcast(ios) 369 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 364 370 365 371 IF(lwm) WRITE ( numond, namhsb ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r9366 r9383 432 432 REWIND( numnam_ref ) ! Namelist namptr in reference namelist : Poleward transport 433 433 READ ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 434 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist', lwm ) 434 901 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 435 439 REWIND( numnam_cfg ) ! Namelist namptr in configuration namelist : Poleward transport 436 440 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 437 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwm ) 438 ENDIF 441 902 CONTINUE 442 ENDIF 443 call mpp_bcast(ios) 444 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 439 445 440 446 IF(lwm) WRITE ( numond, namptr ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r9366 r9383 163 163 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 164 164 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 165 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwm ) 165 901 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 166 170 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 167 171 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 168 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwm ) 169 ENDIF 172 902 CONTINUE 173 ENDIF 174 call mpp_bcast(ios) 175 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 170 176 171 177 IF(lwm) WRITE ( numond, namrun ) … … 259 265 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 260 266 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 261 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwm ) 267 903 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 262 272 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 263 273 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 264 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwm ) 265 ENDIF 274 904 CONTINUE 275 ENDIF 276 call mpp_bcast(ios) 277 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 266 278 267 279 IF(lwm) WRITE ( numond, namdom ) … … 327 339 REWIND( numnam_ref ) ! Namelist namcla in reference namelist : Cross land advection 328 340 READ ( numnam_ref, namcla, IOSTAT = ios, ERR = 905) 329 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwm ) 341 905 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 330 346 REWIND( numnam_cfg ) ! Namelist namcla in configuration namelist : Cross land advection 331 347 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 332 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwm ) 333 ENDIF 348 906 CONTINUE 349 ENDIF 350 call mpp_bcast(ios) 351 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 352 334 353 IF(lwm) WRITE( numond, namcla ) 335 354 … … 354 373 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 355 374 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 356 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwm ) 375 907 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 357 380 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 358 381 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 359 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwm ) 360 ENDIF 382 908 CONTINUE 383 ENDIF 384 call mpp_bcast(ios) 385 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 361 386 362 387 IF(lwm) WRITE( numond, namnc4 ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r9366 r9383 151 151 REWIND( numnam_ref ) ! Namelist namlbc in reference namelist : Lateral momentum boundary condition 152 152 READ ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 ) 153 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwm ) 153 901 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 154 158 REWIND( numnam_cfg ) ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition 155 159 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 156 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwm ) 157 ENDIF 160 902 CONTINUE 161 ENDIF 162 call mpp_bcast(ios) 163 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 158 164 159 165 IF(lwm) WRITE ( numond, namlbc ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r9366 r9383 952 952 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist : 953 953 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 954 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwm ) 954 901 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 955 959 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run 956 960 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 961 902 CONTINUE 962 ENDIF 963 call mpp_bcast(ios) 964 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 965 959 966 IF(lwm) WRITE ( numond, nam_vvl ) 960 967 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r9366 r9383 49 49 50 50 PUBLIC dom_zgr ! called by dom_init.F90 51 PRIVATE zgr_namelist 51 PRIVATE zgr_namelist, sco_namelist 52 52 53 53 ! !!* Namelist namzgr_sco * … … 111 111 REWIND( numnam_ref ) ! Namelist namzgr in reference namelist : Vertical coordinate 112 112 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 113 901 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 116 118 REWIND( numnam_cfg ) ! Namelist namzgr in configuration namelist : Vertical coordinate 117 119 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 118 ENDIF 119 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 120 902 CONTINUE 121 ENDIF 122 call mpp_bcast(ios) 123 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 124 120 125 IF(lwm) WRITE ( numond, namzgr ) 126 127 call zgr_namelist() 121 128 122 129 IF(lwp) THEN ! Control print … … 1829 1836 REWIND( numnam_ref ) ! Namelist namzgr_sco in reference namelist : Sigma-stretching parameters 1830 1837 READ ( numnam_ref, namzgr_sco, IOSTAT = ios, ERR = 901) 1831 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in reference namelist', lwm ) 1838 901 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 1832 1843 REWIND( numnam_cfg ) ! Namelist namzgr_sco in configuration namelist : Sigma-stretching parameters 1833 1844 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 1845 902 CONTINUE 1846 ENDIF 1847 call mpp_bcast(ios) 1848 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 1849 1836 1850 IF(lwm) WRITE ( numond, namzgr_sco ) 1837 1851 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r9366 r9383 77 77 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist : 78 78 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 79 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwm ) 79 901 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 80 84 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run 81 85 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwm ) 83 ENDIF 86 902 CONTINUE 87 ENDIF 88 call mpp_bcast(ios) 89 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 90 84 91 IF(lwm) WRITE ( numond, namtsd ) 85 92 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
r9366 r9383 105 105 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 106 106 READ ( numnam_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 107 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist', lwm ) 107 901 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 108 112 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 109 113 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 110 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwm )114 902 CONTINUE 111 115 ENDIF 116 call mpp_bcast(ios) 117 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 112 118 113 119 IF(lwm) WRITE ( numond, namdyn_adv ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r9366 r9383 139 139 REWIND( numnam_ref ) ! Namelist namdyn_hpg in reference namelist : Hydrostatic pressure gradient 140 140 READ ( numnam_ref, namdyn_hpg, IOSTAT = ios, ERR = 901) 141 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in reference namelist', lwm ) 141 901 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 142 146 REWIND( numnam_cfg ) ! Namelist namdyn_hpg in configuration namelist : Hydrostatic pressure gradient 143 147 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 144 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwm )148 902 CONTINUE 145 149 ENDIF 150 call mpp_bcast(ios) 151 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 146 152 147 153 IF(lwm) WRITE ( numond, namdyn_hpg ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r9366 r9383 122 122 REWIND( numnam_ref ) ! Namelist namdyn_nept in reference namelist : Simplified Neptune 123 123 READ ( numnam_ref, namdyn_nept, IOSTAT = ios, ERR = 901) 124 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in reference namelist', lwm ) 124 901 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 125 129 REWIND( numnam_cfg ) ! Namelist namdyn_nept in reference namelist : Simplified Neptune 126 130 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 131 902 CONTINUE 132 ENDIF 133 call mpp_bcast(ios) 134 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 129 135 130 136 IF(lwm) WRITE ( numond, namdyn_nept ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r9366 r9383 1085 1085 REWIND( numnam_ref ) ! Namelist namsplit in reference namelist : time splitting parameters 1086 1086 READ ( numnam_ref, namsplit, IOSTAT = ios, ERR = 901) 1087 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in reference namelist', lwm ) 1087 901 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 1088 1092 REWIND( numnam_cfg ) ! Namelist namsplit in configuration namelist : time splitting parameters 1089 1093 READ ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 1090 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwm ) 1091 ENDIF 1094 902 CONTINUE 1095 ENDIF 1096 call mpp_bcast(ios) 1097 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp ) 1092 1098 1093 1099 IF(lwm) WRITE ( numond, namsplit ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r9366 r9383 726 726 REWIND( numnam_ref ) ! Namelist namdyn_vor in reference namelist : Vorticity scheme options 727 727 READ ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901) 728 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist', lwm ) 728 901 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 729 733 REWIND( numnam_cfg ) ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options 730 734 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 735 902 CONTINUE 736 ENDIF 737 call mpp_bcast(ios) 738 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 739 733 740 IF(lwm) WRITE ( numond, namdyn_vor ) 734 741 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r9366 r9383 366 366 REWIND( numnam_ref ) ! Namelist namberg in reference namelist : Iceberg parameters 367 367 READ ( numnam_ref, namberg, IOSTAT = ios, ERR = 901) 368 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwm ) 368 901 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 369 373 REWIND( numnam_cfg ) ! Namelist namberg in configuration namelist : Iceberg parameters 370 374 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 371 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwm ) 372 ENDIF 375 902 CONTINUE 376 ENDIF 377 call mpp_bcast(ios) 378 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 373 379 374 380 IF(lwm) WRITE ( numond, namberg ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8243 r9383 90 90 INTERFACE mpp_bcast 91 91 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 93 93 END INTERFACE 94 94 INTERFACE mpp_min … … 1853 1853 INTEGER, INTENT(INOUT) :: ival ! value to broadcast 1854 1854 INTEGER :: ierror ! mpi error 1855 1855 1856 CALL MPI_BCAST(ival, 1, MPI_INTEGER4, 0, mpi_comm_opa, ierror) 1857 1856 1858 END SUBROUTINE mpp_bcast_i1 1857 1859 … … 1867 1869 INTEGER, INTENT(IN) :: lng ! length of dval 1868 1870 INTEGER :: ierror ! mpi error 1871 1869 1872 CALL MPI_BCAST(dvalv, lng, mpi_double_precision, 0, mpi_comm_opa, ierror) 1873 1870 1874 END SUBROUTINE mpp_bcast_da 1871 1875 … … 1884 1888 INTEGER :: itotal ! local variable 1885 1889 itotal = nx*ny 1890 1886 1891 CALL MPI_BCAST(dvala, itotal, mpi_double_precision, 0, mpi_comm_opa, ierror) 1892 1887 1893 END SUBROUTINE mpp_bcast_d2a 1888 1894 … … 1898 1904 INTEGER, INTENT(IN) :: nx, ny, nz ! size of dvala 1899 1905 INTEGER :: ierror ! mpi error 1906 1900 1907 CALL MPI_BCAST(dvala, nx*ny*nz, mpi_double_precision, 0, mpi_comm_opa, ierror) 1908 1901 1909 END SUBROUTINE mpp_bcast_d3a 1902 1910 … … 1911 1919 REAL(wp), INTENT(INOUT) :: dval ! real 1D array 1912 1920 INTEGER :: ierror ! mpi error 1921 1913 1922 CALL MPI_BCAST(dval, 1, mpi_double_precision, 0, mpi_comm_opa, ierror) 1923 1914 1924 END SUBROUTINE mpp_bcast_d 1915 1925 … … 1922 1932 !i! processor 0 - lwm = .true.. NETCDF related call 1923 1933 !!-------------------------------------------------------------------------- 1924 CHARACTER(len=lng), INTENT(IN ) :: cstring ! string 1D array1934 CHARACTER(len=lng), INTENT(INOUT) :: cstring ! string 1D array 1925 1935 INTEGER, INTENT(IN) :: lng ! length of cstring 1926 1936 INTEGER :: ierror ! mpi error 1937 1927 1938 CALL MPI_BCAST(cstring, lng, MPI_CHARACTER, 0, mpi_comm_opa, ierror) 1939 1928 1940 END SUBROUTINE mpp_bcast_ch 1929 1941 … … 1932 1944 INTEGER, INTENT (IN) :: lng 1933 1945 INTEGER :: ierror ! mpi error 1946 1934 1947 CALL MPI_BCAST(ivalv, lng, MPI_INTEGER4, 0, mpi_comm_opa, ierror) 1948 1935 1949 END SUBROUTINE mpp_bcast_ia 1936 1950 … … 1938 1952 LOGICAL, INTENT(INOUT) :: lval ! value to broadcast 1939 1953 INTEGER :: ierror ! mpi error 1954 1940 1955 CALL MPI_BCAST(lval, 1, MPI_LOGICAL, 0, mpi_comm_opa, ierror) 1956 1941 1957 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 1942 1967 1943 1968 SUBROUTINE mpp_bcast_d2d(dval, ni, nj) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r9366 r9383 77 77 REWIND( numnam_ref ) ! Namelist namdyn_ldf in reference namelist : Lateral physics 78 78 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 79 901 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 81 84 REWIND( numnam_cfg ) ! Namelist namdyn_ldf in configuration namelist : Lateral physics 82 85 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 86 902 CONTINUE 87 ENDIF 88 call mpp_bcast(ios) 89 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 85 90 86 91 IF(lwm) WRITE ( numond, namdyn_ldf ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90
r9366 r9383 81 81 REWIND( numnam_ref ) ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers 82 82 READ ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901) 83 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwm ) 83 901 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 84 88 REWIND( numnam_cfg ) ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers 85 89 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 90 902 CONTINUE 91 ENDIF 92 call mpp_bcast(ios) 93 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 94 88 95 IF(lwm) WRITE ( numond, namtra_ldf ) 89 96 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r9366 r9383 1598 1598 1599 1599 END SUBROUTINE fin_date 1600 1600 1601 END MODULE diaobs -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r9366 r9383 257 257 REWIND( numnam_ref ) ! Namelist namsbc_alb in reference namelist : Albedo parameters 258 258 READ ( numnam_ref, namsbc_alb, IOSTAT = ios, ERR = 901) 259 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in reference namelist', lwm ) 259 901 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 260 264 REWIND( numnam_cfg ) ! Namelist namsbc_alb in configuration namelist : Albedo parameters 261 265 READ ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 262 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwm )266 902 CONTINUE 263 267 ENDIF 268 call mpp_bcast(ios) 269 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 270 264 271 IF(lwm) WRITE ( numond, namsbc_alb ) 265 272 ! -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90
r9366 r9383 78 78 REWIND( numnam_ref ) ! Namelist namsbc_ana in reference namelist : Analytical surface fluxes 79 79 READ ( numnam_ref, namsbc_ana, IOSTAT = ios, ERR = 901) 80 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in reference namelist', lwm ) 80 901 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 81 85 REWIND( numnam_cfg ) ! Namelist namsbc_ana in configuration namelist : Analytical surface fluxes 82 86 READ ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 83 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwm )87 902 CONTINUE 84 88 ENDIF 89 call mpp_bcast(ios) 90 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 85 91 86 92 IF(lwm) WRITE ( numond, namsbc_ana ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r9366 r9383 84 84 REWIND( numnam_ref ) ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing 85 85 READ ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901) 86 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwm ) 86 901 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 87 91 REWIND( numnam_cfg ) ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing 88 92 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 93 902 CONTINUE 94 ENDIF 95 call mpp_bcast(ios) 96 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 91 97 92 98 IF(lwm) WRITE ( numond, namsbc_apr ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r9366 r9383 149 149 REWIND( numnam_ref ) ! Namelist namsbc_clio in reference namelist : CLIO files 150 150 READ ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901) 151 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwm ) 151 901 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 152 156 REWIND( numnam_cfg ) ! Namelist namsbc_clio in configuration namelist : CLIO files 153 157 READ ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 154 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwm )158 902 CONTINUE 155 159 ENDIF 160 call mpp_bcast(ios) 161 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 162 156 163 IF(lwm) WRITE ( numond, namsbc_clio ) 157 164 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r9366 r9383 164 164 REWIND( numnam_ref ) ! Namelist namsbc_core in reference namelist : CORE bulk parameters 165 165 READ ( numnam_ref, namsbc_core, IOSTAT = ios, ERR = 901) 166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in reference namelist', lwm ) 166 901 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 167 171 REWIND( numnam_cfg ) ! Namelist namsbc_core in configuration namelist : CORE bulk parameters 168 172 READ ( numnam_cfg, namsbc_core, IOSTAT = ios, ERR = 902 ) 169 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwm )173 902 CONTINUE 170 174 ENDIF 175 call mpp_bcast(ios) 176 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 171 177 172 178 IF(lwm) WRITE( numond, namsbc_core ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r9366 r9383 139 139 REWIND( numnam_ref ) ! Namelist namsbc_msf in reference namelist : MFS files 140 140 READ ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 141 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwm ) 141 901 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 142 146 REWIND( numnam_cfg ) ! Namelist namsbc_msf in configuration namelist : MFS files 143 147 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 144 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwm )148 902 CONTINUE 145 149 ENDIF 150 call mpp_bcast(ios) 151 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 152 146 153 IF(lwm) WRITE ( numond, namsbc_mfs ) 147 154 ! -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r9366 r9383 263 263 REWIND( numnam_ref ) ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling 264 264 READ ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) 265 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwm ) 265 901 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 266 270 REWIND( numnam_cfg ) ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling 267 271 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 272 902 CONTINUE 273 ENDIF 274 call mpp_bcast(ios) 275 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 276 270 277 IF(lwm) WRITE ( numond, namsbc_cpl ) 271 278 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r9366 r9383 97 97 REWIND( numnam_ref ) ! Namelist namsbc_flx in reference namelist : Files for fluxes 98 98 READ ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901) 99 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwm ) 99 901 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 100 104 REWIND( numnam_cfg ) ! Namelist namsbc_flx in configuration namelist : Files for fluxes 101 105 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 106 902 CONTINUE 107 ENDIF 108 call mpp_bcast(ios) 109 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 110 104 111 IF(lwm) WRITE ( numond, namsbc_flx ) 105 112 ! -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r9366 r9383 869 869 REWIND( numnam_ref ) ! Namelist namsbc_cice in reference namelist : 870 870 READ ( numnam_ref, namsbc_cice, IOSTAT = ios, ERR = 901) 871 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist', lwm ) 871 901 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 872 876 REWIND( numnam_cfg ) ! Namelist namsbc_cice in configuration namelist : Parameters of the run 873 877 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 874 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwm )878 902 CONTINUE 875 879 ENDIF 880 call mpp_bcast(ios) 881 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 876 882 877 883 IF(lwm) WRITE ( numond, namsbc_cice ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r9366 r9383 78 78 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 79 79 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 80 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwm ) 80 901 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 81 85 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 82 86 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 83 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwm )87 902 CONTINUE 84 88 ENDIF 89 call mpp_bcast(ios) 90 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 85 91 86 92 IF(lwm) WRITE ( numond, namsbc_iif ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r9366 r9383 109 109 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs 110 110 READ ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 111 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwm ) 111 901 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 112 116 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs 113 117 READ ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 114 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwm )118 902 CONTINUE 115 119 ENDIF 120 call mpp_bcast(ios) 121 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwp ) 116 122 117 123 IF(lwm) WRITE ( numond, namsbc_isf ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r9366 r9383 106 106 REWIND( numnam_ref ) ! Namelist namsbc in reference namelist : Surface boundary 107 107 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 108 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwm ) 108 901 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 109 113 REWIND( numnam_cfg ) ! Namelist namsbc in configuration namelist : Parameters of the run 110 114 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 111 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwm ) 112 ENDIF 115 902 CONTINUE 116 ENDIF 117 call mpp_bcast(ios) 118 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 119 113 120 IF(lwm) WRITE ( numond, namsbc ) 114 121 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r9366 r9383 287 287 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs 288 288 READ ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901) 289 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwm ) 289 901 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 290 294 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs 291 295 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 296 902 CONTINUE 297 ENDIF 298 call mpp_bcast(ios) 299 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 300 294 301 IF(lwm) WRITE ( numond, namsbc_rnf ) 295 302 ! -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r9366 r9383 177 177 REWIND( numnam_ref ) ! Namelist namsbc_ssr in reference namelist : 178 178 READ ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901) 179 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwm ) 179 901 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 180 184 REWIND( numnam_cfg ) ! Namelist namsbc_ssr in configuration namelist : 181 185 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 186 902 CONTINUE 187 ENDIF 188 call mpp_bcast(ios) 189 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 190 184 191 IF(lwm) WRITE ( numond, namsbc_ssr ) 185 192 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r9366 r9383 87 87 REWIND( numnam_ref ) ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model 88 88 READ ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 89 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist', lwm ) 89 901 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 90 94 REWIND( numnam_cfg ) ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model 91 95 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 92 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwm )96 902 CONTINUE 93 97 ENDIF 98 call mpp_bcast(ios) 99 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 94 100 95 101 IF(lwm) WRITE ( numond, namsbc_wave ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90
r9366 r9383 69 69 REWIND( numnam_ref ) ! Namelist nam_tide in reference namelist : Tides 70 70 READ ( numnam_ref, nam_tide, IOSTAT = ios, ERR = 901) 71 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist', lwm ) 71 901 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 72 76 REWIND( numnam_cfg ) ! Namelist nam_tide in configuration namelist : Tides 73 77 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 74 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwm )78 902 CONTINUE 75 79 ENDIF 80 call mpp_bcast(ios) 81 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 76 82 77 83 IF(lwm) WRITE ( numond, nam_tide ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r9366 r9383 66 66 REWIND( numnam_ref ) ! Namelist namsol in reference namelist : Elliptic solver / free surface 67 67 READ ( numnam_ref, namsol, IOSTAT = ios, ERR = 901) 68 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in reference namelist', lwm ) 68 901 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 69 73 REWIND( numnam_cfg ) ! Namelist namsol in configuration namelist : Elliptic solver / free surface 70 74 READ ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwm )75 902 CONTINUE 72 76 ENDIF 77 call mpp_bcast(ios) 78 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 73 79 74 80 IF(lwm) WRITE ( numond, namsol ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r9366 r9383 265 265 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 266 266 READ ( numnam_ref, namsto, IOSTAT = ios, ERR = 901) 267 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist', lwm ) 267 901 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 268 272 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 269 273 READ ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 270 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwm ) 271 ENDIF 274 902 CONTINUE 275 ENDIF 276 call mpp_bcast(ios) 277 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp ) 278 272 279 IF(lwm) WRITE ( numond, namsto ) 273 280 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r9366 r9383 1236 1236 REWIND( numnam_ref ) ! Namelist nameos in reference namelist : equation of state 1237 1237 READ ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 1238 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwm ) 1238 901 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 1239 1243 REWIND( numnam_cfg ) ! Namelist nameos in configuration namelist : equation of state 1240 1244 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1241 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwm )1245 902 CONTINUE 1242 1246 ENDIF 1247 call mpp_bcast(ios) 1248 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 1249 1243 1250 IF(lwm) WRITE( numond, nameos ) 1244 1251 ! -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r9366 r9383 199 199 REWIND( numnam_ref ) ! Namelist namtra_adv in reference namelist : Tracer advection scheme 200 200 READ ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 201 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist', lwm ) 201 901 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 202 206 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 203 207 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 208 902 CONTINUE 209 ENDIF 210 call mpp_bcast(ios) 211 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 206 212 IF(lwm) WRITE ( numond, namtra_adv ) 207 213 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r9366 r9383 286 286 REWIND( numnam_ref ) ! Namelist namtra_adv_mle in reference namelist : Tracer advection scheme 287 287 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 ) 288 901 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 289 293 REWIND( numnam_cfg ) ! Namelist namtra_adv_mle in configuration namelist : Tracer advection scheme 290 294 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 295 902 CONTINUE 296 ENDIF 297 call mpp_bcast(ios) 298 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 293 299 IF(lwm) WRITE ( numond, namtra_adv_mle ) 294 300 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r9366 r9383 143 143 REWIND( numnam_ref ) ! Namelist nambbc in reference namelist : Bottom momentum boundary condition 144 144 READ ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901) 145 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwm ) 145 901 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 146 150 REWIND( numnam_cfg ) ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition 147 151 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 148 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwm ) 149 ENDIF 152 902 CONTINUE 153 ENDIF 154 call mpp_bcast(ios) 155 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 150 156 IF(lwm) WRITE ( numond, nambbc ) 151 157 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r9366 r9383 512 512 REWIND( numnam_ref ) ! Namelist nambbl in reference namelist : Bottom boundary layer scheme 513 513 READ ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 514 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwm ) 514 901 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 515 519 REWIND( numnam_cfg ) ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme 516 520 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 517 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwm ) 518 ENDIF 521 902 CONTINUE 522 ENDIF 523 call mpp_bcast(ios) 524 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 519 525 520 526 IF(lwm) WRITE ( numond, nambbl ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r9366 r9383 200 200 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : T & S relaxation 201 201 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 202 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwm ) 202 901 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 203 207 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : T & S relaxation 204 208 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 209 902 CONTINUE 210 ENDIF 211 call mpp_bcast(ios) 212 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 207 213 208 214 IF(lwm) WRITE ( numond, namtra_dmp ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r9366 r9383 438 438 REWIND( numnam_ref ) ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration 439 439 READ ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 440 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwm ) 440 901 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 441 445 REWIND( numnam_cfg ) ! Namelist namtra_qsr in configuration namelist : Ratio and length of penetration 442 446 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 447 902 CONTINUE 448 ENDIF 449 call mpp_bcast(ios) 450 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 445 451 446 452 IF(lwm) WRITE ( numond, namtra_qsr ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
r9366 r9383 51 51 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic 52 52 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 53 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwm ) 53 901 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 54 58 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic 55 59 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 56 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwm )60 902 CONTINUE 57 61 ENDIF 62 call mpp_bcast(ios) 63 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 58 64 59 65 IF(lwm) WRITE( numond, namtrd ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
r9366 r9383 761 761 REWIND( numnam_ref ) ! Namelist namtrd_mxl in reference namelist : mixed layer trends diagnostic 762 762 READ ( numnam_ref, namtrd_mxl, IOSTAT = ios, ERR = 901 ) 763 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist', lwm ) 763 901 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 764 768 REWIND( numnam_cfg ) ! Namelist namtrd_mxl in configuration namelist : mixed layer trends diagnostic 765 769 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 766 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwm )770 902 CONTINUE 767 771 ENDIF 772 call mpp_bcast(ios) 773 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwp ) 768 774 769 775 IF(lwm) WRITE( numond, namtrd_mxl ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r9366 r9383 254 254 REWIND( numnam_ref ) ! Namelist nambfr in reference namelist : Bottom momentum boundary condition 255 255 READ ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901) 256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwm ) 256 901 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 257 261 REWIND( numnam_cfg ) ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition 258 262 READ ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 259 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwm ) 260 ENDIF 263 902 CONTINUE 264 ENDIF 265 call mpp_bcast(ios) 266 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 267 261 268 IF(lwm) WRITE ( numond, nambfr ) 262 269 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r9366 r9383 243 243 REWIND( numnam_ref ) ! Namelist namzdf_ddm in reference namelist : Double diffusion mixing scheme 244 244 READ ( numnam_ref, namzdf_ddm, IOSTAT = ios, ERR = 901) 245 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in reference namelist', lwm ) 245 901 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 246 250 REWIND( numnam_cfg ) ! Namelist namzdf_ddm in configuration namelist : Double diffusion mixing scheme 247 251 READ ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 248 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwm )252 902 CONTINUE 249 253 ENDIF 254 call mpp_bcast(ios) 255 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 250 256 251 257 IF(lwm) WRITE ( numond, namzdf_ddm ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r9366 r9383 879 879 REWIND( numnam_ref ) ! Namelist namzdf_gls in reference namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 880 880 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 881 901 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 883 887 REWIND( numnam_cfg ) ! Namelist namzdf_gls in configuration namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 884 888 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 885 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwm )889 902 CONTINUE 886 890 ENDIF 891 call mpp_bcast(ios) 892 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 887 893 888 894 IF(lwm) WRITE ( numond, namzdf_gls ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r9366 r9383 61 61 REWIND( numnam_ref ) ! Namelist namzdf in reference namelist : Vertical mixing parameters 62 62 READ ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 63 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwm ) 63 901 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 64 68 REWIND( numnam_cfg ) ! Namelist namzdf in reference namelist : Vertical mixing parameters 65 69 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 66 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwm ) 67 ENDIF 70 902 CONTINUE 71 ENDIF 72 call mpp_bcast(ios) 73 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwm ) 68 74 69 75 IF(lwm) WRITE ( numond, namzdf ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r9366 r9383 1366 1366 REWIND( numnam_ref ) ! Namelist namzdf_kpp in reference namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1367 1367 READ ( numnam_ref, namzdf_kpp, IOSTAT = ios, ERR = 901) 1368 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwm ) 1368 901 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 1369 1373 REWIND( numnam_cfg ) ! Namelist namzdf_kpp in configuration namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1370 1374 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1371 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwm )1375 902 CONTINUE 1372 1376 ENDIF 1377 call mpp_bcast(ios) 1378 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 1379 1373 1380 IF(lwm) WRITE ( numond, namzdf_kpp ) 1374 1381 -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r9366 r9383 468 468 REWIND( numnam_ref ) ! Namelist namzdf_mldzint in reference namelist 469 469 READ ( numnam_ref, namzdf_mldzint, IOSTAT = ios, ERR = 901) 470 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in reference namelist', lwm ) 470 901 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 471 475 REWIND( numnam_cfg ) ! Namelist namzdf_mldzint in configuration namelist 472 476 READ ( numnam_cfg, namzdf_mldzint, IOSTAT = ios, ERR = 902 ) 473 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in configuration namelist', lwm )477 902 CONTINUE 474 478 ENDIF 479 call mpp_bcast(ios) 480 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in configuration namelist', lwp ) 475 481 476 482 IF(lwm) WRITE ( numond, namzdf_mldzint ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r9366 r9383 257 257 REWIND( numnam_ref ) ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 258 258 READ ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 259 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwm ) 259 901 CONTINUE 260 ENDIF 261 call mpp_bcast(ios) 262 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwp ) 260 263 REWIND( numnam_cfg ) ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 261 264 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 262 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwm )265 902 CONTINUE 263 266 ENDIF 267 call mpp_bcast(ios) 268 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 264 269 265 270 IF(lwm) WRITE ( numond, namzdf_ric ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r9366 r9383 784 784 REWIND( numnam_ref ) ! Namelist namzdf_tke in reference namelist : Turbulent Kinetic Energy 785 785 READ ( numnam_ref, namzdf_tke, IOSTAT = ios, ERR = 901) 786 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist', lwm ) 786 901 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 787 791 REWIND( numnam_cfg ) ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy 788 792 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 793 902 CONTINUE 794 ENDIF 795 call mpp_bcast(ios) 796 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 791 797 792 798 IF(lwm) WRITE ( numond, namzdf_tke ) -
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r9366 r9383 384 384 REWIND( numnam_ref ) ! Namelist namzdf_tmx in reference namelist : Tidal Mixing 385 385 READ ( numnam_ref, namzdf_tmx, IOSTAT = ios, ERR = 901) 386 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist', lwm ) 386 901 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 387 391 REWIND( numnam_cfg ) ! Namelist namzdf_tmx in configuration namelist : Tidal Mixing 388 392 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 393 902 CONTINUE 394 ENDIF 395 call mpp_bcast(ios) 396 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 391 397 392 398 IF(lwm) WRITE ( numond, namzdf_tmx )
Note: See TracChangeset
for help on using the changeset viewer.