Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r2715 r3294 21 21 USE lib_mpp ! distribued memory computing library 22 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 USE timing ! Timing 23 24 24 25 IMPLICIT NONE … … 78 79 NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 79 80 !!---------------------------------------------------------------------- 81 ! 82 IF( nn_timing == 1 ) CALL timing_start('sbc_ssr') 80 83 ! 81 84 ! ! -------------------- ! … … 201 204 ENDIF 202 205 ! 206 IF( nn_timing == 1 ) CALL timing_stop('sbc_ssr') 207 ! 203 208 END SUBROUTINE sbc_ssr 204 209
Note: See TracChangeset
for help on using the changeset viewer.