- 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/zdfric.F90
r3186 r3229 28 28 USE lib_mpp ! MPP library 29 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 31 30 32 USE eosbn2, ONLY : nn_eos 31 33 … … 120 122 REAL(wp), POINTER, DIMENSION(:,:) :: zwx, ekm_dep 121 123 !!---------------------------------------------------------------------- 122 124 ! 125 IF( nn_timing == 1 ) CALL timing_start('zdf_ric') 126 ! 123 127 CALL wrk_alloc( jpi,jpj, zwx, ekm_dep ) 124 128 ! ! =============== … … 223 227 CALL wrk_dealloc( jpi,jpj, zwx, ekm_dep ) 224 228 ! 229 IF( nn_timing == 1 ) CALL timing_stop('zdf_ric') 230 ! 225 231 END SUBROUTINE zdf_ric 226 232
Note: See TracChangeset
for help on using the changeset viewer.