- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zprod.F90
r7646 r9124 98 98 !!--------------------------------------------------------------------- 99 99 ! 100 IF( nn_timing == 1 )CALL timing_start('p5z_prod')100 IF( ln_timing ) CALL timing_start('p5z_prod') 101 101 ! 102 102 ! Allocate temporary workspace … … 571 571 CALL wrk_dealloc( jpi, jpj, jpk, zcroissp, zcroissn, zcroissd ) 572 572 ! 573 IF( nn_timing == 1 )CALL timing_stop('p5z_prod')573 IF( ln_timing ) CALL timing_stop('p5z_prod') 574 574 ! 575 575 END SUBROUTINE p5z_prod … … 587 587 !! ** input : Namelist nampisprod 588 588 !!---------------------------------------------------------------------- 589 ! 589 INTEGER :: ios ! Local integer output status for namelist read 590 !! 590 591 NAMELIST/namp5zprod/ pislopen, pislopep, pisloped, excretn, excretp, excretd, & 591 592 & thetannm, thetanpm, thetandm, chlcmin, grosip, bresp, xadap 592 593 INTEGER :: ios ! Local integer output status for namelist read594 593 !!---------------------------------------------------------------------- 595 594 … … 600 599 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 601 600 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 602 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist', lwp )601 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist', lwp ) 603 602 IF(lwm) WRITE ( numonp, namp5zprod ) 604 603
Note: See TracChangeset
for help on using the changeset viewer.