- Timestamp:
- 2011-12-20T12:42:17+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r3186 r3229 17 17 USE lib_mpp ! MPP library 18 18 USE wrk_nemo ! work arrays 19 USE timing ! Timing 19 20 USE trc_oce, ONLY : lk_offline ! offline flag 20 21 … … 78 79 REAL(wp) :: zavt_c = 5.e-4_wp ! Kz criterion for the turbocline depth 79 80 !!---------------------------------------------------------------------- 80 81 ! 82 IF( nn_timing == 1 ) CALL timing_start('zdf_mxl') 83 ! 81 84 CALL wrk_alloc( jpi,jpj, imld ) 82 85 … … 119 122 CALL wrk_dealloc( jpi,jpj, imld ) 120 123 ! 124 IF( nn_timing == 1 ) CALL timing_stop('zdf_mxl') 125 ! 121 126 END SUBROUTINE zdf_mxl 122 127
Note: See TracChangeset
for help on using the changeset viewer.