Changeset 11671 for NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES
- Timestamp:
- 2019-10-09T15:02:14+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/PISCES
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
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' )
Note: See TracChangeset
for help on using the changeset viewer.