Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/MY_SRC/usrdef_zgr.F90
- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/MY_SRC/usrdef_zgr.F90
r8703 r9124 24 24 USE lib_mpp ! distributed memory computing library 25 25 USE wrk_nemo ! Memory allocation 26 USE timing ! Timing27 26 28 27 IMPLICIT NONE … … 131 130 !!---------------------------------------------------------------------- 132 131 ! 133 IF( nn_timing == 1 ) CALL timing_start('zgr_z')134 !135 132 zd = 5000._wp/FLOAT(jpkm1) 136 133 ! … … 168 165 ENDIF 169 166 ! 170 IF( nn_timing == 1 ) CALL timing_stop('zgr_z')171 !172 167 END SUBROUTINE zgr_z 173 168 … … 226 221 INTEGER :: jk 227 222 !!---------------------------------------------------------------------- 228 !229 IF( nn_timing == 1 ) CALL timing_start('zgr_zco')230 223 ! 231 224 DO jk = 1, jpk … … 241 234 END DO 242 235 ! 243 IF( nn_timing == 1 ) CALL timing_stop('zgr_zco')244 !245 236 END SUBROUTINE zgr_zco 246 237
Note: See TracChangeset
for help on using the changeset viewer.