- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r7753 r9124 72 72 !!--------------------------------------------------------------------- 73 73 ! 74 IF( nn_timing == 1 )CALL timing_start('p4z_nano')74 IF( ln_timing ) CALL timing_start('p4z_nano') 75 75 ! 76 76 prodcal(:,:,:) = 0. !: calcite production variable set to zero … … 126 126 ENDIF 127 127 ! 128 IF( nn_timing == 1 )CALL timing_stop('p4z_nano')128 IF( ln_timing ) CALL timing_stop('p4z_nano') 129 129 ! 130 130 END SUBROUTINE p4z_nano 131 131 132 132 133 SUBROUTINE p4z_diat … … 145 146 !!--------------------------------------------------------------------- 146 147 ! 147 IF( nn_timing == 1 )CALL timing_start('p4z_diat')148 IF( ln_timing ) CALL timing_start('p4z_diat') 148 149 ! 149 150 … … 201 202 ENDIF 202 203 ! 203 IF( nn_timing == 1 )CALL timing_stop('p4z_diat')204 IF( ln_timing ) CALL timing_stop('p4z_diat') 204 205 ! 205 206 END SUBROUTINE p4z_diat 206 207 208 207 209 SUBROUTINE p4z_mort_init 208 209 210 !!---------------------------------------------------------------------- 210 211 !! *** ROUTINE p4z_mort_init *** … … 218 219 !! 219 220 !!---------------------------------------------------------------------- 220 221 INTEGER :: ios ! Local integer 222 ! 221 223 NAMELIST/namp4zmort/ wchl, wchld, wchldm, mprat, mprat2 222 INTEGER :: ios ! Local integer output status for namelist read223 224 !!---------------------------------------------------------------------- 225 ! 224 226 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton 225 227 READ ( numnatp_ref, namp4zmort, IOSTAT = ios, ERR = 901) 226 228 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist', lwp ) 227 229 ! 228 230 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 229 231 READ ( numnatp_cfg, namp4zmort, IOSTAT = ios, ERR = 902 ) 230 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist', lwp )232 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist', lwp ) 231 233 IF(lwm) WRITE ( numonp, namp4zmort ) 232 234 ! 233 235 IF(lwp) THEN ! control print 234 236 WRITE(numout,*) ' ' … … 241 243 WRITE(numout,*) ' Diatoms mortality rate mprat2 =', mprat2 242 244 ENDIF 243 245 ! 244 246 END SUBROUTINE p4z_mort_init 245 247
Note: See TracChangeset
for help on using the changeset viewer.