- 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/p4zmeso.F90
r8533 r9124 76 76 !!--------------------------------------------------------------------- 77 77 ! 78 IF( nn_timing == 1 )CALL timing_start('p4z_meso')78 IF( ln_timing ) CALL timing_start('p4z_meso') 79 79 ! 80 80 CALL wrk_alloc( jpi, jpj, jpk, zgrazing ) … … 240 240 CALL wrk_dealloc( jpi, jpj, jpk, zgrazing ) 241 241 ! 242 IF( nn_timing == 1 )CALL timing_stop('p4z_meso')242 IF( ln_timing ) CALL timing_stop('p4z_meso') 243 243 ! 244 244 END SUBROUTINE p4z_meso 245 245 246 246 247 SUBROUTINE p4z_meso_init 247 248 248 !!---------------------------------------------------------------------- 249 249 !! *** ROUTINE p4z_meso_init *** … … 257 257 !! 258 258 !!---------------------------------------------------------------------- 259 259 INTEGER :: ios ! Local integer 260 ! 260 261 NAMELIST/namp4zmes/ part2, grazrat2, resrat2, mzrat2, xprefc, xprefp, xprefz, & 261 262 & xprefpoc, xthresh2dia, xthresh2phy, xthresh2zoo, xthresh2poc, & 262 263 & xthresh2, xkgraz2, epsher2, sigma2, unass2, grazflux 263 INTEGER :: ios ! Local integer output status for namelist read264 264 !!---------------------------------------------------------------------- 265 ! 265 266 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 266 267 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 267 268 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist', lwp ) 268 269 ! 269 270 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 270 271 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 271 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist', lwp )272 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist', lwp ) 272 273 IF(lwm) WRITE ( numonp, namp4zmes ) 273 274 274 ! 275 275 IF(lwp) THEN ! control print 276 276 WRITE(numout,*) ' ' … … 296 296 WRITE(numout,*) ' half sturation constant for grazing 2 xkgraz2 =', xkgraz2 297 297 ENDIF 298 299 298 ! 300 299 END SUBROUTINE p4z_meso_init 301 300
Note: See TracChangeset
for help on using the changeset viewer.