Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/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/VORTEX/MY_SRC/usrdef_hgr.F90
r9113 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 … … 66 65 REAL(wp) :: zti, zui, ztj, zvj ! local scalars 67 66 !!------------------------------------------------------------------------------- 68 !69 IF( nn_timing == 1 ) CALL timing_start('usr_def_hgr')70 67 ! 71 68 IF(lwp) WRITE(numout,*) … … 129 126 pff_t(:,:) = zf0 + zbeta * pphit(:,:) * 1.e+3 130 127 ! 131 IF( nn_timing == 1 ) CALL timing_stop('usr_def_hgr') 132 ! 133 END SUBROUTINE usr_def_hgr 128 END SUBROUTINE usr_def_hgr 134 129 135 130 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.