- 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/p5zmeso.F90
r7646 r9124 89 89 !!--------------------------------------------------------------------- 90 90 ! 91 IF( nn_timing == 1 )CALL timing_start('p5z_meso')91 IF( ln_timing ) CALL timing_start('p5z_meso') 92 92 ! 93 93 CALL wrk_alloc( jpi, jpj, jpk, zgrazing ) … … 362 362 CALL wrk_dealloc( jpi, jpj, jpk, zgrazing ) 363 363 ! 364 IF( nn_timing == 1 )CALL timing_stop('p5z_meso')364 IF( ln_timing ) CALL timing_stop('p5z_meso') 365 365 ! 366 366 END SUBROUTINE p5z_meso 367 367 368 368 369 SUBROUTINE p5z_meso_init 369 370 370 !!---------------------------------------------------------------------- 371 371 !! *** ROUTINE p5z_meso_init *** … … 379 379 !! 380 380 !!---------------------------------------------------------------------- 381 381 INTEGER :: ios ! Local integer output status for namelist read 382 !! 382 383 NAMELIST/namp5zmes/part2, bmetexc2, grazrat2, resrat2, mzrat2, xpref2c, xpref2p, xpref2z, & 383 384 & xpref2m, xpref2d, xthresh2dia, xthresh2phy, xthresh2zoo, xthresh2poc, & 384 385 & xthresh2mes, xthresh2, xkgraz2, epsher2, ssigma2, unass2c, & 385 & unass2n, unass2p, srespir2, grazflux 386 387 INTEGER :: ios ! Local integer output status for namelist read 388 386 & unass2n, unass2p, srespir2, grazflux 387 !!---------------------------------------------------------------------- 388 ! 389 389 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 390 390 READ ( numnatp_ref, namp5zmes, IOSTAT = ios, ERR = 901) 391 391 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist', lwp ) 392 392 ! 393 393 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 394 394 READ ( numnatp_cfg, namp5zmes, IOSTAT = ios, ERR = 902 ) 395 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist', lwp )395 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist', lwp ) 396 396 IF(lwm) WRITE ( numonp, namp5zmes ) 397 398 397 ! 399 398 IF(lwp) THEN ! control print 400 399 WRITE(numout,*) ' ' … … 426 425 WRITE(numout,*) ' Use excess carbon for respiration bmetexc2 = ', bmetexc2 427 426 ENDIF 428 429 427 ! 430 428 END SUBROUTINE p5z_meso_init 431 429
Note: See TracChangeset
for help on using the changeset viewer.