- Timestamp:
- 2019-10-09T15:02:14+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP
- Files:
-
- 33 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/AGE/trcnam_age.F90
r11536 r11671 54 54 ln_trc_obc(jp_age) = .false. 55 55 ! 56 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters57 56 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 58 57 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist' ) 59 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters60 58 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 61 59 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/C14/trcnam_c14.F90
r11536 r11671 61 61 ln_trc_obc(jp_c14) = .false. 62 62 ! 63 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :64 63 READ ( numtrc_ref, namc14_typ, IOSTAT = ios, ERR = 901) 65 64 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' ) 66 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist67 65 READ ( numtrc_cfg, namc14_typ, IOSTAT = ios, ERR = 902) 68 66 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' ) … … 78 76 ENDIF 79 77 80 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :81 78 READ ( numtrc_ref, namc14_sbc, IOSTAT = ios, ERR = 903) 82 79 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' ) 83 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist84 80 READ ( numtrc_cfg, namc14_sbc, IOSTAT = ios, ERR = 904) 85 81 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' ) … … 94 90 ENDIF 95 91 96 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :97 92 READ ( numtrc_ref, namc14_fcg, IOSTAT = ios, ERR = 905) 98 93 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' ) 99 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist100 94 READ ( numtrc_cfg, namc14_fcg, IOSTAT = ios, ERR = 906) 101 95 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/CFC/trcnam_cfc.F90
r11536 r11671 51 51 ENDIF 52 52 ! 53 REWIND( numtrc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters54 53 READ ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 55 54 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist' ) 56 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist : CFC parameters57 55 READ ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 58 56 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P2Z/p2zbio.F90
r11536 r11671 402 402 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~' 403 403 ! 404 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters405 404 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 406 405 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' ) 407 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters408 406 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 409 407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' ) … … 419 417 ENDIF 420 418 421 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters422 419 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 423 420 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' ) 424 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters425 421 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 426 422 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' ) … … 436 432 ENDIF 437 433 438 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters439 434 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 440 435 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' ) 441 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters442 436 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 443 437 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' ) … … 458 452 ENDIF 459 453 460 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters461 454 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 462 455 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' ) 463 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters464 456 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 465 457 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' ) … … 473 465 ENDIF 474 466 475 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate476 467 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 477 468 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' ) 478 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate479 469 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 480 470 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P2Z/p2zopt.F90
r11536 r11671 159 159 !!---------------------------------------------------------------------- 160 160 161 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options162 161 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 163 162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' ) 164 163 165 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options166 164 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 167 165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' ) … … 181 179 ENDIF 182 180 ! 183 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios184 181 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 185 182 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' ) 186 183 187 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios188 184 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 189 185 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P2Z/p2zsed.F90
r11536 r11671 132 132 !!---------------------------------------------------------------------- 133 133 ! 134 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments135 134 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 136 135 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' ) 137 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments138 136 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 139 137 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zfechem.F90
r11536 r11671 254 254 ENDIF 255 255 ! 256 REWIND( numnatp_ref ) ! Namelist nampisfer in reference namelist : Pisces iron chemistry257 256 READ ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 258 257 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' ) 259 REWIND( numnatp_cfg ) ! Namelist nampisfer in configuration namelist : Pisces iron chemistry260 258 READ ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 261 259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zflx.F90
r11536 r11671 239 239 ENDIF 240 240 ! 241 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions242 241 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 243 242 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' ) 244 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions245 243 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 246 244 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' ) … … 320 318 ENDIF 321 319 ! 322 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file323 320 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 324 321 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' ) 325 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file326 322 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 327 323 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zligand.F90
r11536 r11671 125 125 WRITE(numout,*) '~~~~~~~~~~~~~~~' 126 126 ENDIF 127 REWIND( numnatp_ref ) ! Namelist nampislig in reference namelist : Pisces remineralization128 127 READ ( numnatp_ref, nampislig, IOSTAT = ios, ERR = 901) 129 128 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' ) 130 REWIND( numnatp_cfg ) ! Namelist nampislig in configuration namelist : Pisces remineralization131 129 READ ( numnatp_cfg, nampislig, IOSTAT = ios, ERR = 902 ) 132 130 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zlim.F90
r11536 r11671 252 252 ENDIF 253 253 ! 254 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters255 254 READ ( numnatp_ref, namp4zlim, IOSTAT = ios, ERR = 901) 256 255 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' ) 257 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters258 256 READ ( numnatp_cfg, namp4zlim, IOSTAT = ios, ERR = 902 ) 259 257 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zlys.F90
r11536 r11671 162 162 ENDIF 163 163 ! 164 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution165 164 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 166 165 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' ) 167 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution168 166 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 169 167 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zmeso.F90
r11536 r11671 290 290 ENDIF 291 291 ! 292 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton293 292 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 294 293 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 295 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton296 294 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 297 295 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zmicro.F90
r11536 r11671 243 243 ENDIF 244 244 ! 245 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton246 245 READ ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 247 246 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' ) 248 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton249 247 READ ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 250 248 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zmort.F90
r11536 r11671 227 227 ENDIF 228 228 ! 229 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton230 229 READ ( numnatp_ref, namp4zmort, IOSTAT = ios, ERR = 901) 231 230 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' ) 232 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton233 231 READ ( numnatp_cfg, namp4zmort, IOSTAT = ios, ERR = 902 ) 234 232 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zopt.F90
r11536 r11671 400 400 WRITE(numout,*) '~~~~~~~~~~~~ ' 401 401 ENDIF 402 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR403 402 READ ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 404 403 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' ) 405 REWIND( numnatp_cfg ) ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR406 404 READ ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 407 405 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zpoc.F90
r11536 r11671 497 497 ENDIF 498 498 ! 499 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization500 499 READ ( numnatp_ref, nampispoc, IOSTAT = ios, ERR = 901) 501 500 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' ) 502 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization503 501 READ ( numnatp_cfg, nampispoc, IOSTAT = ios, ERR = 902 ) 504 502 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zprod.F90
r11536 r11671 490 490 ENDIF 491 491 ! 492 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production493 492 READ ( numnatp_ref, namp4zprod, IOSTAT = ios, ERR = 901) 494 493 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' ) 495 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production496 494 READ ( numnatp_cfg, namp4zprod, IOSTAT = ios, ERR = 902 ) 497 495 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zrem.F90
r11536 r11671 327 327 ENDIF 328 328 ! 329 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization330 329 READ ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 331 330 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' ) 332 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization333 331 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 334 332 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zsbc.F90
r11536 r11671 230 230 ENDIF 231 231 ! !* set file information 232 REWIND( numnatp_ref ) ! Namelist nampissbc in reference namelist : Pisces external sources of nutrients233 232 READ ( numnatp_ref, nampissbc, IOSTAT = ios, ERR = 901) 234 233 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist' ) 235 REWIND( numnatp_cfg ) ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients236 234 READ ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 237 235 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p4zsms.F90
r11536 r11671 201 201 ENDIF 202 202 203 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables204 203 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 205 204 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' ) 206 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables207 205 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 208 206 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' ) … … 232 230 233 231 234 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping235 232 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 236 233 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' ) 237 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping238 234 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 239 235 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' ) … … 247 243 ENDIF 248 244 249 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check250 245 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 251 246 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' ) 252 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check253 247 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 254 248 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p5zlim.F90
r11536 r11671 448 448 !!---------------------------------------------------------------------- 449 449 ! 450 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters451 450 READ ( numnatp_ref, namp5zlim, IOSTAT = ios, ERR = 901) 452 451 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' ) 453 452 ! 454 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters455 453 READ ( numnatp_cfg, namp5zlim, IOSTAT = ios, ERR = 902 ) 456 454 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' ) … … 489 487 ENDIF 490 488 491 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters492 489 READ ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903) 493 490 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' ) 494 491 ! 495 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters496 492 READ ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 ) 497 493 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p5zmeso.F90
r11536 r11671 407 407 !!---------------------------------------------------------------------- 408 408 ! 409 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton410 409 READ ( numnatp_ref, namp5zmes, IOSTAT = ios, ERR = 901) 411 410 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' ) 412 411 ! 413 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton414 412 READ ( numnatp_cfg, namp5zmes, IOSTAT = ios, ERR = 902 ) 415 413 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p5zmicro.F90
r11536 r11671 349 349 !!---------------------------------------------------------------------- 350 350 ! 351 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton352 351 READ ( numnatp_ref, namp5zzoo, IOSTAT = ios, ERR = 901) 353 352 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' ) 354 353 ! 355 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton356 354 READ ( numnatp_cfg, namp5zzoo, IOSTAT = ios, ERR = 902 ) 357 355 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p5zmort.F90
r11536 r11671 286 286 !!---------------------------------------------------------------------- 287 287 288 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton289 288 READ ( numnatp_ref, namp5zmort, IOSTAT = ios, ERR = 901) 290 289 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' ) 291 290 292 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton293 291 READ ( numnatp_cfg, namp5zmort, IOSTAT = ios, ERR = 902 ) 294 292 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES/P4Z/p5zprod.F90
r11536 r11671 582 582 !!---------------------------------------------------------------------- 583 583 584 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production585 584 READ ( numnatp_ref, namp5zprod, IOSTAT = ios, ERR = 901) 586 585 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' ) 587 586 588 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production589 587 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 590 588 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/TRP/trcadv.F90
r11536 r11671 164 164 ! 165 165 ! !== Namelist ==! 166 REWIND( numnat_ref ) ! namtrc_adv in reference namelist167 166 READ ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 168 167 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' ) 169 REWIND( numnat_cfg ) ! namtrc_adv in configuration namelist170 168 READ ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 171 169 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/TRP/trcdmp.F90
r11536 r11671 181 181 !!---------------------------------------------------------------------- 182 182 ! 183 REWIND( numnat_ref ) ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping184 183 READ ( numnat_ref, namtrc_dmp, IOSTAT = ios, ERR = 909) 185 184 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist' ) 186 REWIND( numnat_cfg ) ! Namelist namtrc_dmp in configuration namelist : Passive tracers newtonian damping187 185 READ ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 188 186 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/TRP/trcldf.F90
r11536 r11671 143 143 ENDIF 144 144 ! 145 REWIND( numnat_ref ) ! namtrc_ldf in reference namelist146 145 READ ( numnat_ref, namtrc_ldf, IOSTAT = ios, ERR = 903) 147 146 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist' ) 148 147 ! 149 REWIND( numnat_cfg ) ! namtrc_ldf in configuration namelist150 148 READ ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 151 149 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/TRP/trcrad.F90
r11536 r11671 87 87 !!---------------------------------------------------------------------- 88 88 ! 89 REWIND( numnat_ref ) ! namtrc_rad in reference namelist90 89 READ ( numnat_ref, namtrc_rad, IOSTAT = ios, ERR = 907) 91 90 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist' ) 92 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist93 91 READ ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 94 92 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/TRP/trcsink.F90
r11536 r11671 216 216 !!---------------------------------------------------------------------- 217 217 ! 218 REWIND( numnat_ref ) ! namtrc_rad in reference namelist219 218 READ ( numnat_ref, namtrc_snk, IOSTAT = ios, ERR = 907) 220 219 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_snk in reference namelist' ) 221 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist222 220 READ ( numnat_cfg, namtrc_snk, IOSTAT = ios, ERR = 908 ) 223 221 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_snk in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/trcbc.F90
r11536 r11671 120 120 ! 121 121 ! Read Boundary Conditions Namelists 122 REWIND( numnat_ref ) ! Namelist namtrc_bc in reference namelist : Passive tracer data structure123 122 READ ( numnat_ref, namtrc_bc, IOSTAT = ios, ERR = 901) 124 123 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in reference namelist' ) 125 REWIND( numnat_cfg ) ! Namelist namtrc_bc in configuration namelist : Passive tracer data structure126 124 READ ( numnat_cfg, namtrc_bc, IOSTAT = ios, ERR = 902 ) 127 125 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist' ) … … 129 127 130 128 IF ( ln_bdy ) THEN 131 REWIND( numnat_ref ) ! Namelist namtrc_bdy in reference namelist : Passive tracer data structure132 129 READ ( numnat_ref, namtrc_bdy, IOSTAT = ios, ERR = 903) 133 130 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in reference namelist' ) … … 135 132 cn_trc (2:jp_bdy) = cn_trc (1) 136 133 cn_trc_dflt(2:jp_bdy) = cn_trc_dflt(1) 137 REWIND( numnat_cfg ) ! Namelist namtrc_bdy in configuration namelist : Passive tracer data structure138 134 READ ( numnat_cfg, namtrc_bdy, IOSTAT = ios, ERR = 904 ) 139 135 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/trcdta.F90
r11536 r11671 98 98 ENDIF 99 99 ! 100 REWIND( numnat_ref ) ! Namelist namtrc_dta in reference namelist : Passive tracer input data101 100 READ ( numnat_ref, namtrc_dta, IOSTAT = ios, ERR = 901) 102 101 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in reference namelist' ) 103 REWIND( numnat_cfg ) ! Namelist namtrc_dta in configuration namelist : Passive tracer input data104 102 READ ( numnat_cfg, namtrc_dta, IOSTAT = ios, ERR = 902 ) 105 103 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/trcice.F90
r11536 r11671 85 85 ENDIF 86 86 ! 87 REWIND( numnat_ref ) ! Namelist namtrc_ice in reference namelist : Passive tracer input data88 87 READ ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901) 89 88 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ' ) 90 REWIND( numnat_cfg ) ! Namelist namtrc_ice in configuration namelist : Pisces external sources of nutrients91 89 READ ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 ) 92 90 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.