- 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/p5zmicro.F90
r7646 r9124 86 86 !!--------------------------------------------------------------------- 87 87 ! 88 IF( nn_timing == 1 )CALL timing_start('p5z_micro')88 IF( ln_timing ) CALL timing_start('p5z_micro') 89 89 ! 90 90 CALL wrk_alloc( jpi, jpj, jpk, zgrazing ) … … 306 306 CALL wrk_dealloc( jpi, jpj, jpk, zgrazing ) 307 307 ! 308 IF( nn_timing == 1 )CALL timing_stop('p5z_micro')308 IF( ln_timing ) CALL timing_stop('p5z_micro') 309 309 ! 310 310 END SUBROUTINE p5z_micro … … 312 312 313 313 SUBROUTINE p5z_micro_init 314 315 314 !!---------------------------------------------------------------------- 316 315 !! *** ROUTINE p5z_micro_init *** … … 324 323 !! 325 324 !!---------------------------------------------------------------------- 326 325 INTEGER :: ios ! Local integer 326 !! 327 327 NAMELIST/namp5zzoo/ part, grazrat, bmetexc, resrat, mzrat, xprefc, xprefn, & 328 328 & xprefp, xprefd, xprefz, xthreshdia, xthreshphy, & 329 329 & xthreshpic, xthreshpoc, xthreshzoo, xthresh, xkgraz, & 330 330 & epsher, ssigma, srespir, unassc, unassn, unassp 331 332 INTEGER :: ios ! Local integer output status for namelist read 333 331 !!---------------------------------------------------------------------- 332 ! 334 333 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 335 334 READ ( numnatp_ref, namp5zzoo, IOSTAT = ios, ERR = 901) 336 335 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist', lwp ) 337 336 ! 338 337 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 339 338 READ ( numnatp_cfg, namp5zzoo, IOSTAT = ios, ERR = 902 ) 340 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist', lwp )339 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist', lwp ) 341 340 IF(lwm) WRITE ( numonp, namp5zzoo ) 342 341 ! 343 342 IF(lwp) THEN ! control print 344 343 WRITE(numout,*) ' ' … … 369 368 WRITE(numout,*) ' Use of excess carbon for respiration bmetexc =', bmetexc 370 369 ENDIF 371 370 ! 372 371 END SUBROUTINE p5z_micro_init 373 372
Note: See TracChangeset
for help on using the changeset viewer.