Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/LOCK_EXCHANGE/MY_SRC/usrdef_hgr.F90
- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/LOCK_EXCHANGE/MY_SRC/usrdef_hgr.F90
r6960 r9124 20 20 USE in_out_manager ! I/O manager 21 21 USE lib_mpp ! MPP library 22 USE timing ! Timing23 22 24 23 IMPLICIT NONE … … 67 66 !!------------------------------------------------------------------------------- 68 67 ! 69 IF( nn_timing == 1 ) CALL timing_start('usr_def_hgr')70 !71 68 IF(lwp) WRITE(numout,*) 72 69 IF(lwp) WRITE(numout,*) 'usr_def_hgr : LOCK_EXCHANGE configuration bassin' … … 107 104 pff_t(:,:) = 0._wp 108 105 ! 109 IF( nn_timing == 1 ) CALL timing_stop('usr_def_hgr')110 !111 106 END SUBROUTINE usr_def_hgr 112 107
Note: See TracChangeset
for help on using the changeset viewer.