- 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/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.