- Timestamp:
- 2019-07-22T10:32:59+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES
- Files:
-
- 24 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P2Z/p2zbio.F90
r10425 r11317 404 404 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters 405 405 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 406 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' , lwp)406 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' ) 407 407 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters 408 408 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 409 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' , lwp)409 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' ) 410 410 IF(lwm) WRITE ( numonp, namlobphy ) 411 411 ! … … 421 421 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters 422 422 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 423 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' , lwp)423 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' ) 424 424 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters 425 425 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 426 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' , lwp)426 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' ) 427 427 IF(lwm) WRITE ( numonp, namlobnut ) 428 428 … … 438 438 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters 439 439 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 440 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' , lwp)440 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' ) 441 441 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters 442 442 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 443 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' , lwp)443 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' ) 444 444 IF(lwm) WRITE ( numonp, namlobzoo ) 445 445 … … 460 460 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters 461 461 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 462 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' , lwp)462 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' ) 463 463 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters 464 464 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 465 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' , lwp)465 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' ) 466 466 IF(lwm) WRITE ( numonp, namlobdet ) 467 467 … … 475 475 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate 476 476 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 477 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' , lwp)477 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' ) 478 478 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate 479 479 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 480 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' , lwp)480 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' ) 481 481 IF(lwm) WRITE ( numonp, namlobdom ) 482 482 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P2Z/p2zopt.F90
r10068 r11317 161 161 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options 162 162 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' , lwp)163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' ) 164 164 165 165 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 166 166 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 167 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' , lwp)167 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' ) 168 168 IF(lwm) WRITE ( numonp, namlobopt ) 169 169 … … 183 183 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios 184 184 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 185 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' , lwp)185 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' ) 186 186 187 187 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 188 188 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 189 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' , lwp)189 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' ) 190 190 IF(lwm) WRITE ( numonp, namlobrat ) 191 191 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P2Z/p2zsed.F90
r10068 r11317 134 134 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments 135 135 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' , lwp)136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' ) 137 137 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments 138 138 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 139 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' , lwp)139 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' ) 140 140 IF(lwm) WRITE ( numonp, namlobsed ) 141 141 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zfechem.F90
r10416 r11317 256 256 REWIND( numnatp_ref ) ! Namelist nampisfer in reference namelist : Pisces iron chemistry 257 257 READ ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 258 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' , lwp)258 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' ) 259 259 REWIND( numnatp_cfg ) ! Namelist nampisfer in configuration namelist : Pisces iron chemistry 260 260 READ ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 261 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' , lwp)261 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' ) 262 262 IF(lwm) WRITE( numonp, nampisfer ) 263 263 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zflx.F90
r10425 r11317 241 241 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions 242 242 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 243 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' , lwp)243 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' ) 244 244 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions 245 245 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 246 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' , lwp)246 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' ) 247 247 IF(lwm) WRITE ( numonp, nampisext ) 248 248 ! … … 322 322 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file 323 323 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 324 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' , lwp)324 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' ) 325 325 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file 326 326 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 327 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' , lwp)327 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' ) 328 328 IF(lwm) WRITE ( numonp, nampisatm ) 329 329 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zligand.F90
r10416 r11317 127 127 REWIND( numnatp_ref ) ! Namelist nampislig in reference namelist : Pisces remineralization 128 128 READ ( numnatp_ref, nampislig, IOSTAT = ios, ERR = 901) 129 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' , lwp)129 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' ) 130 130 REWIND( numnatp_cfg ) ! Namelist nampislig in configuration namelist : Pisces remineralization 131 131 READ ( numnatp_cfg, nampislig, IOSTAT = ios, ERR = 902 ) 132 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' , lwp)132 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' ) 133 133 IF(lwm) WRITE ( numonp, nampislig ) 134 134 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zlim.F90
r10425 r11317 254 254 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 255 255 READ ( numnatp_ref, namp4zlim, IOSTAT = ios, ERR = 901) 256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' , lwp)256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' ) 257 257 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 258 258 READ ( numnatp_cfg, namp4zlim, IOSTAT = ios, ERR = 902 ) 259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' , lwp)259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' ) 260 260 IF(lwm) WRITE( numonp, namp4zlim ) 261 261 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zlys.F90
r10069 r11317 164 164 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution 165 165 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' , lwp)166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' ) 167 167 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution 168 168 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 169 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' , lwp)169 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' ) 170 170 IF(lwm) WRITE( numonp, nampiscal ) 171 171 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zmeso.F90
r10367 r11317 292 292 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 293 293 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 294 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' , lwp)294 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 295 295 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 296 296 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 297 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' , lwp)297 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' ) 298 298 IF(lwm) WRITE( numonp, namp4zmes ) 299 299 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zmicro.F90
r10374 r11317 245 245 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 246 246 READ ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' , lwp)247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' ) 248 248 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 249 249 READ ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 250 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' , lwp)250 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' ) 251 251 IF(lwm) WRITE( numonp, namp4zzoo ) 252 252 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zmort.F90
r10227 r11317 229 229 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton 230 230 READ ( numnatp_ref, namp4zmort, IOSTAT = ios, ERR = 901) 231 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' , lwp)231 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' ) 232 232 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 233 233 READ ( numnatp_cfg, namp4zmort, IOSTAT = ios, ERR = 902 ) 234 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' , lwp)234 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' ) 235 235 IF(lwm) WRITE( numonp, namp4zmort ) 236 236 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zopt.F90
r10522 r11317 402 402 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR 403 403 READ ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 404 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' , lwp)404 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' ) 405 405 REWIND( numnatp_cfg ) ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR 406 406 READ ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' , lwp)407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' ) 408 408 IF(lwm) WRITE ( numonp, nampisopt ) 409 409 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zpoc.F90
r11263 r11317 499 499 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization 500 500 READ ( numnatp_ref, nampispoc, IOSTAT = ios, ERR = 901) 501 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' , lwp)501 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' ) 502 502 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 503 503 READ ( numnatp_cfg, nampispoc, IOSTAT = ios, ERR = 902 ) 504 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' , lwp)504 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' ) 505 505 IF(lwm) WRITE( numonp, nampispoc ) 506 506 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zprod.F90
r11263 r11317 492 492 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production 493 493 READ ( numnatp_ref, namp4zprod, IOSTAT = ios, ERR = 901) 494 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' , lwp)494 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' ) 495 495 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 496 496 READ ( numnatp_cfg, namp4zprod, IOSTAT = ios, ERR = 902 ) 497 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' , lwp)497 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' ) 498 498 IF(lwm) WRITE( numonp, namp4zprod ) 499 499 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zrem.F90
r10425 r11317 329 329 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization 330 330 READ ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 331 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' , lwp)331 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' ) 332 332 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 333 333 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 334 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' , lwp)334 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' ) 335 335 IF(lwm) WRITE( numonp, nampisrem ) 336 336 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zsbc.F90
r10869 r11317 232 232 REWIND( numnatp_ref ) ! Namelist nampissbc in reference namelist : Pisces external sources of nutrients 233 233 READ ( numnatp_ref, nampissbc, IOSTAT = ios, ERR = 901) 234 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist' , lwp)234 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist' ) 235 235 REWIND( numnatp_cfg ) ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients 236 236 READ ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 237 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist' , lwp)237 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist' ) 238 238 IF(lwm) WRITE ( numonp, nampissbc ) 239 239 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zsms.F90
r10425 r11317 203 203 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables 204 204 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' , lwp)205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' ) 206 206 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables 207 207 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' , lwp)208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' ) 209 209 IF(lwm) WRITE( numonp, nampisbio ) 210 210 ! … … 234 234 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping 235 235 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 236 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' , lwp)236 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' ) 237 237 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping 238 238 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 239 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' , lwp)239 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' ) 240 240 IF(lwm) WRITE( numonp, nampisdmp ) 241 241 ! … … 249 249 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check 250 250 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 251 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' , lwp)251 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' ) 252 252 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check 253 253 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 254 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' , lwp)254 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' ) 255 255 IF(lwm) WRITE( numonp, nampismass ) 256 256 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p5zlim.F90
r10425 r11317 450 450 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 451 451 READ ( numnatp_ref, namp5zlim, IOSTAT = ios, ERR = 901) 452 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' , lwp)452 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' ) 453 453 ! 454 454 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 455 455 READ ( numnatp_cfg, namp5zlim, IOSTAT = ios, ERR = 902 ) 456 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' , lwp)456 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' ) 457 457 IF(lwm) WRITE ( numonp, namp5zlim ) 458 458 ! … … 491 491 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 492 492 READ ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903) 493 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' , lwp)493 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' ) 494 494 ! 495 495 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 496 496 READ ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 ) 497 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' , lwp)497 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' ) 498 498 IF(lwm) WRITE ( numonp, namp5zquota ) 499 499 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p5zmeso.F90
r10362 r11317 409 409 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 410 410 READ ( numnatp_ref, namp5zmes, IOSTAT = ios, ERR = 901) 411 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' , lwp)411 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' ) 412 412 ! 413 413 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 414 414 READ ( numnatp_cfg, namp5zmes, IOSTAT = ios, ERR = 902 ) 415 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' , lwp)415 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' ) 416 416 IF(lwm) WRITE ( numonp, namp5zmes ) 417 417 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p5zmicro.F90
r10362 r11317 351 351 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 352 352 READ ( numnatp_ref, namp5zzoo, IOSTAT = ios, ERR = 901) 353 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' , lwp)353 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' ) 354 354 ! 355 355 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 356 356 READ ( numnatp_cfg, namp5zzoo, IOSTAT = ios, ERR = 902 ) 357 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' , lwp)357 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' ) 358 358 IF(lwm) WRITE ( numonp, namp5zzoo ) 359 359 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p5zmort.F90
r10362 r11317 288 288 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton 289 289 READ ( numnatp_ref, namp5zmort, IOSTAT = ios, ERR = 901) 290 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' , lwp)290 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' ) 291 291 292 292 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 293 293 READ ( numnatp_cfg, namp5zmort, IOSTAT = ios, ERR = 902 ) 294 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' , lwp)294 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' ) 295 295 IF(lwm) WRITE ( numonp, namp5zmort ) 296 296 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p5zprod.F90
r10873 r11317 584 584 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production 585 585 READ ( numnatp_ref, namp5zprod, IOSTAT = ios, ERR = 901) 586 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' , lwp)586 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' ) 587 587 588 588 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 589 589 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 590 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' , lwp)590 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' ) 591 591 IF(lwm) WRITE ( numonp, namp5zprod ) 592 592 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/SED/sedini.F90
r10362 r11317 460 460 REWIND( numnamsed_ref ) ! Namelist nam_run in reference namelist : Pisces variables 461 461 READ ( numnamsed_ref, nam_run, IOSTAT = ios, ERR = 901) 462 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' , lwp)462 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' ) 463 463 464 464 REWIND( numnamsed_cfg ) ! Namelist nam_run in reference namelist : Pisces variables 465 465 READ ( numnamsed_cfg, nam_run, IOSTAT = ios, ERR = 902) 466 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' , lwp)466 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' ) 467 467 468 468 IF (lwp) THEN … … 476 476 REWIND( numnamsed_ref ) ! Namelist nam_geom in reference namelist : Pisces variables 477 477 READ ( numnamsed_ref, nam_geom, IOSTAT = ios, ERR = 903) 478 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' , lwp)478 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' ) 479 479 480 480 REWIND( numnamsed_cfg ) ! Namelist nam_geom in reference namelist : Pisces variables 481 481 READ ( numnamsed_cfg, nam_geom, IOSTAT = ios, ERR = 904) 482 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' , lwp)482 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' ) 483 483 484 484 IF (lwp) THEN … … 499 499 REWIND( numnamsed_ref ) ! Namelist nam_trased in reference namelist : Pisces variables 500 500 READ ( numnamsed_ref, nam_trased, IOSTAT = ios, ERR = 905) 501 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' , lwp)501 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' ) 502 502 503 503 REWIND( numnamsed_cfg ) ! Namelist nam_trased in reference namelist : Pisces variables 504 504 READ ( numnamsed_cfg, nam_trased, IOSTAT = ios, ERR = 906) 505 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' , lwp)505 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' ) 506 506 507 507 DO jn = 1, jpsol … … 532 532 REWIND( numnamsed_ref ) ! Namelist nam_diased in reference namelist : Pisces variables 533 533 READ ( numnamsed_ref, nam_diased, IOSTAT = ios, ERR = 907) 534 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' , lwp)534 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' ) 535 535 536 536 REWIND( numnamsed_cfg ) ! Namelist nam_diased in reference namelist : Pisces variables 537 537 READ ( numnamsed_cfg, nam_diased, IOSTAT = ios, ERR = 908) 538 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' , lwp)538 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' ) 539 539 540 540 DO jn = 1, jpdia3dsed … … 574 574 REWIND( numnamsed_ref ) ! Namelist nam_inorg in reference namelist : Pisces variables 575 575 READ ( numnamsed_ref, nam_inorg, IOSTAT = ios, ERR = 909) 576 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' , lwp)576 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' ) 577 577 578 578 REWIND( numnamsed_cfg ) ! Namelist nam_inorg in reference namelist : Pisces variables 579 579 READ ( numnamsed_cfg, nam_inorg, IOSTAT = ios, ERR = 910) 580 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' , lwp)580 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' ) 581 581 582 582 IF (lwp) THEN … … 600 600 REWIND( numnamsed_ref ) ! Namelist nam_poc in reference namelist : Pisces variables 601 601 READ ( numnamsed_ref, nam_poc, IOSTAT = ios, ERR = 911) 602 911 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' , lwp)602 911 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' ) 603 603 604 604 REWIND( numnamsed_cfg ) ! Namelist nam_poc in reference namelist : Pisces variables 605 605 READ ( numnamsed_cfg, nam_poc, IOSTAT = ios, ERR = 912) 606 912 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' , lwp)606 912 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' ) 607 607 608 608 IF (lwp) THEN … … 652 652 REWIND( numnamsed_ref ) ! Namelist nam_btb in reference namelist : Pisces variables 653 653 READ ( numnamsed_ref, nam_btb, IOSTAT = ios, ERR = 913) 654 913 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' , lwp)654 913 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' ) 655 655 656 656 REWIND( numnamsed_cfg ) ! Namelist nam_btb in reference namelist : Pisces variables 657 657 READ ( numnamsed_cfg, nam_btb, IOSTAT = ios, ERR = 914) 658 914 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' , lwp)658 914 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' ) 659 659 660 660 IF (lwp) THEN … … 673 673 REWIND( numnamsed_ref ) ! Namelist nam_rst in reference namelist : Pisces variables 674 674 READ ( numnamsed_ref, nam_rst, IOSTAT = ios, ERR = 915) 675 915 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' , lwp)675 915 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' ) 676 676 677 677 REWIND( numnamsed_cfg ) ! Namelist nam_rst in reference namelist : Pisces variables 678 678 READ ( numnamsed_cfg, nam_rst, IOSTAT = ios, ERR = 916) 679 916 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' , lwp)679 916 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' ) 680 680 681 681 IF (lwp) THEN -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/trcnam_pisces.F90
r10222 r11317 57 57 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables 58 58 READ ( numnatp_ref, nampismod, IOSTAT = ios, ERR = 901) 59 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist' , lwp)59 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist' ) 60 60 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables 61 61 READ ( numnatp_cfg, nampismod, IOSTAT = ios, ERR = 902 ) 62 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist' , lwp)62 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist' ) 63 63 IF(lwm) WRITE( numonp, nampismod ) 64 64 !
Note: See TracChangeset
for help on using the changeset viewer.