Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC
- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/daymod.F90
r8583 r9124 223 223 !!---------------------------------------------------------------------- 224 224 ! 225 IF( nn_timing == 1 )CALL timing_start('day')225 IF( ln_timing ) CALL timing_start('day') 226 226 ! 227 227 zprec = 0.1 / rday … … 277 277 IF( lrst_oce ) CALL day_rst( kt, 'WRITE' ) ! write day restart information 278 278 ! 279 IF( nn_timing == 1 )CALL timing_stop('day')279 IF( ln_timing ) CALL timing_stop('day') 280 280 ! 281 281 END SUBROUTINE day -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/diawri.F90
r9019 r9124 136 136 !!---------------------------------------------------------------------- 137 137 ! 138 IF( nn_timing == 1) CALL timing_start('dia_wri')138 IF( ln_timing ) CALL timing_start('dia_wri') 139 139 ! 140 140 ! Output the initial state and forcings … … 322 322 ENDIF 323 323 ! 324 IF( nn_timing == 1) CALL timing_stop('dia_wri')324 IF( ln_timing ) CALL timing_stop('dia_wri') 325 325 ! 326 326 END SUBROUTINE dia_wri … … 350 350 !!---------------------------------------------------------------------- 351 351 ! 352 IF( nn_timing == 1) CALL timing_start('dia_wri_state')352 IF( ln_timing ) CALL timing_start('dia_wri_state') 353 353 354 354 ! 0. Initialisation … … 428 428 ENDIF 429 429 #endif 430 431 IF( nn_timing == 1 ) CALL timing_stop('dia_wri_state') 432 ! 433 430 ! 431 IF( ln_timing ) CALL timing_stop('dia_wri_state') 432 ! 434 433 END SUBROUTINE dia_wri_state 434 435 435 !!====================================================================== 436 436 END MODULE diawri -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r9019 r9124 424 424 isplt = nn_isplt 425 425 jsplt = nn_jsplt 426 !!gm to be remove at the end of the 2017 merge party427 if( ln_timing ) then ; nn_timing = 1428 else ; nn_timing = 0429 endif430 !!gm end431 426 432 427 IF(lwp) THEN ! control print -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90
r9019 r9124 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 24 USE zpshde ! z-coord. with partial steps: horizontal derivatives 25 ! 25 26 USE in_out_manager ! I/O manager 26 27 USE iom ! I/O library … … 72 73 !! - interpolates data if needed 73 74 !!---------------------------------------------------------------------- 74 !75 75 INTEGER, INTENT(in) :: kt ! ocean time-step index 76 76 ! … … 79 79 REAL(wp) :: ztintb ! ratio applied to before records when doing time interpolation 80 80 !!---------------------------------------------------------------------- 81 82 ! 83 IF( nn_timing == 1 ) CALL timing_start( 'sbc_ssm') 81 ! 82 IF( ln_timing ) CALL timing_start( 'sbc_ssm') 84 83 85 84 IF ( l_sasread ) THEN … … 153 152 ENDIF 154 153 ! 155 IF( nn_timing == 1 )CALL timing_stop( 'sbc_ssm')154 IF( ln_timing ) CALL timing_stop( 'sbc_ssm') 156 155 ! 157 156 END SUBROUTINE sbc_ssm
Note: See TracChangeset
for help on using the changeset viewer.