- 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/USR/usrdef_closea.F90
r7754 r9124 30 30 USE lbclnk ! lateral boundary condition - MPP exchanges 31 31 USE lib_mpp ! MPP library 32 USE timing33 32 34 33 IMPLICIT NONE … … 201 200 !!---------------------------------------------------------------------- 202 201 ! 203 IF( nn_timing == 1 ) CALL timing_start('sbc_clo')204 202 ! !------------------! 205 203 IF( kt == nit000 ) THEN ! Initialisation ! … … 335 333 CALL lbc_lnk( emp , 'T', 1._wp ) 336 334 ! 337 IF( nn_timing == 1 ) CALL timing_stop('sbc_clo')338 !339 335 END SUBROUTINE sbc_clo 340 336
Note: See TracChangeset
for help on using the changeset viewer.