- 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/CRS/crsini.F90
r9019 r9124 23 23 USE lib_mpp 24 24 USE wrk_nemo 25 USE timing ! Timing26 25 27 26 IMPLICIT NONE … … 78 77 !!---------------------------------------------------------------------- 79 78 ! 80 IF( nn_timing == 1 ) CALL timing_start('crs_init')81 !82 79 IF(lwp) THEN 83 80 WRITE(numout,*) … … 250 247 CALL wrk_dealloc( jpi,jpj,jpk, ze3t, ze3u, ze3v, ze3w ) 251 248 ! 252 IF( nn_timing == 1 ) CALL timing_stop('crs_init')253 !254 249 END SUBROUTINE crs_init 255 250
Note: See TracChangeset
for help on using the changeset viewer.