- 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/p5zmort.F90
r7646 r9124 74 74 !!--------------------------------------------------------------------- 75 75 ! 76 IF( nn_timing == 1 )CALL timing_start('p5z_nano')76 IF( ln_timing ) CALL timing_start('p5z_nano') 77 77 ! 78 78 prodcal(:,:,:) = 0. !: calcite production variable set to zero … … 124 124 ENDIF 125 125 ! 126 IF( nn_timing == 1 )CALL timing_stop('p5z_nano')126 IF( ln_timing ) CALL timing_stop('p5z_nano') 127 127 ! 128 128 END SUBROUTINE p5z_nano 129 129 130 130 131 SUBROUTINE p5z_pico … … 143 144 !!--------------------------------------------------------------------- 144 145 ! 145 IF( nn_timing == 1 )CALL timing_start('p5z_pico')146 IF( ln_timing ) CALL timing_start('p5z_pico') 146 147 ! 147 148 DO jk = 1, jpkm1 … … 184 185 ENDIF 185 186 ! 186 IF( nn_timing == 1 )CALL timing_stop('p5z_pico')187 IF( ln_timing ) CALL timing_stop('p5z_pico') 187 188 ! 188 189 END SUBROUTINE p5z_pico … … 204 205 !!--------------------------------------------------------------------- 205 206 ! 206 IF( nn_timing == 1 )CALL timing_start('p5z_diat')207 IF( ln_timing ) CALL timing_start('p5z_diat') 207 208 ! 208 209 … … 262 263 ENDIF 263 264 ! 264 IF( nn_timing == 1 )CALL timing_stop('p5z_diat')265 IF( ln_timing ) CALL timing_stop('p5z_diat') 265 266 ! 266 267 END SUBROUTINE p5z_diat 267 268 269 268 270 SUBROUTINE p5z_mort_init 269 270 271 !!---------------------------------------------------------------------- 271 272 !! *** ROUTINE p5z_mort_init *** … … 279 280 !! 280 281 !!---------------------------------------------------------------------- 281 282 INTEGER :: ios ! Local integer output status for namelist read 283 !! 282 284 NAMELIST/namp5zmort/ wchln, wchlp, wchld, wchldm, mpratn, mpratp, mpratd 283 INTEGER :: ios ! Local integer output status for namelist read285 !!---------------------------------------------------------------------- 284 286 285 287 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton … … 289 291 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 290 292 READ ( numnatp_cfg, namp5zmort, IOSTAT = ios, ERR = 902 ) 291 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist', lwp )293 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist', lwp ) 292 294 IF(lwm) WRITE ( numonp, namp5zmort ) 293 295
Note: See TracChangeset
for help on using the changeset viewer.