- 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/OPA_SRC/SBC/sbcssr.F90
r7753 r9124 23 23 USE lib_mpp ! distribued memory computing library 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE timing ! Timing26 25 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 27 26 … … 80 79 TYPE(FLD_N) :: sn_sst, sn_sss ! informations about the fields to be read 81 80 !!---------------------------------------------------------------------- 82 !83 IF( nn_timing == 1 ) CALL timing_start('sbc_ssr')84 81 ! 85 82 IF( nn_sstr + nn_sssr /= 0 ) THEN … … 136 133 ENDIF 137 134 ! 138 IF( nn_timing == 1 ) CALL timing_stop('sbc_ssr')139 !140 135 END SUBROUTINE sbc_ssr 141 136
Note: See TracChangeset
for help on using the changeset viewer.