- 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/p4zprod.F90
r7753 r9124 65 65 !! ** Method : - ??? 66 66 !!--------------------------------------------------------------------- 67 !68 67 INTEGER, INTENT(in) :: kt, knt 69 68 ! … … 85 84 !!--------------------------------------------------------------------- 86 85 ! 87 IF( nn_timing == 1 )CALL timing_start('p4z_prod')86 IF( ln_timing ) CALL timing_start('p4z_prod') 88 87 ! 89 88 ! Allocate temporary workspace … … 486 485 CALL wrk_dealloc( jpi, jpj, jpk, zprorcan, zprorcad, zprofed, zprofen, zpronewn, zpronewd ) 487 486 ! 488 IF( nn_timing == 1) CALL timing_stop('p4z_prod')487 IF( ln_timing ) CALL timing_stop('p4z_prod') 489 488 ! 490 489 END SUBROUTINE p4z_prod … … 502 501 !! ** input : Namelist nampisprod 503 502 !!---------------------------------------------------------------------- 503 INTEGER :: ios ! Local integer output status for namelist read 504 504 ! 505 505 NAMELIST/namp4zprod/ pislopen, pisloped, xadap, ln_newprod, bresp, excretn, excretd, & 506 506 & chlcnm, chlcdm, chlcmin, fecnm, fecdm, grosip 507 INTEGER :: ios ! Local integer output status for namelist read508 507 !!---------------------------------------------------------------------- 509 508 … … 514 513 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 515 514 READ ( numnatp_cfg, namp4zprod, IOSTAT = ios, ERR = 902 ) 516 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist', lwp )515 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist', lwp ) 517 516 IF(lwm) WRITE ( numonp, namp4zprod ) 518 517 … … 555 554 ! 556 555 END FUNCTION p4z_prod_alloc 556 557 557 !!====================================================================== 558 558 END MODULE p4zprod
Note: See TracChangeset
for help on using the changeset viewer.