- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90
r3446 r3875 480 480 !! *** ROUTINE p2z_bio_init *** 481 481 !! 482 !! ** Purpose : bi logical parameters482 !! ** Purpose : biological parameters 483 483 !! 484 484 !! ** Method : Read namelist and check the parameters … … 490 490 NAMELIST/namlobdet/ taudn, fdetlab 491 491 NAMELIST/namlobdom/ taudomn 492 INTEGER :: ios ! Local integer output status for namelist read 492 493 !!---------------------------------------------------------------------- 493 494 494 REWIND( numnatp ) 495 READ ( numnatp, namlobphy ) 495 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters 496 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 497 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist', lwp ) 498 499 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters 500 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 501 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist', lwp ) 502 WRITE ( numonp, namlobphy ) 496 503 497 504 IF(lwp) THEN … … 505 512 ENDIF 506 513 507 REWIND( numnatp ) 508 READ ( numnatp, namlobnut ) 514 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters 515 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 516 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist', lwp ) 517 518 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters 519 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 520 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist', lwp ) 521 WRITE ( numonp, namlobnut ) 522 509 523 IF(lwp) THEN 510 524 WRITE(numout,*) ' Namelist namlobnut' … … 516 530 ENDIF 517 531 518 REWIND( numnatp ) 519 READ ( numnatp, namlobzoo ) 532 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters 533 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 534 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist', lwp ) 535 536 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters 537 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 538 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist', lwp ) 539 WRITE ( numonp, namlobzoo ) 520 540 521 541 IF(lwp) THEN … … 533 553 ENDIF 534 554 535 REWIND( numnatp ) 536 READ ( numnatp, namlobdet ) 555 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters 556 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 557 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist', lwp ) 558 559 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters 560 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 561 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist', lwp ) 562 WRITE ( numonp, namlobdet ) 537 563 538 564 IF(lwp) THEN … … 543 569 ENDIF 544 570 545 REWIND( numnatp ) 546 READ ( numnatp, namlobdom ) 571 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate 572 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 573 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist', lwp ) 574 575 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate 576 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 577 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist', lwp ) 578 WRITE ( numonp, namlobdom ) 547 579 548 580 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
r3443 r3875 164 164 NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 165 165 NAMELIST/namlobrat/ rcchl, redf, reddom 166 INTEGER :: ios ! Local integer output status for namelist read 166 167 !!---------------------------------------------------------------------- 167 168 168 REWIND( numnatp ) 169 READ ( numnatp, namlobopt ) 169 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options 170 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 171 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist', lwp ) 172 173 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 174 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 175 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 176 WRITE ( numonp, namlobopt ) 170 177 171 178 IF(lwp) THEN … … 182 189 ENDIF 183 190 ! 184 REWIND( numnatp ) 185 READ ( numnatp, namlobrat ) 191 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios 192 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 193 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist', lwp ) 194 195 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 196 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 197 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 198 WRITE ( numonp, namlobrat ) 186 199 187 200 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r3443 r3875 151 151 !!---------------------------------------------------------------------- 152 152 NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 153 INTEGER :: ios ! Local integer output status for namelist read 153 154 154 REWIND( numnatp ) 155 READ ( numnatp, namlobsed ) 155 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments 156 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 157 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist', lwp ) 158 159 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments 160 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 161 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 162 WRITE ( numonp, namlobsed ) 156 163 157 164 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.