- 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/LDF/ldfeiv.F90
r3186 r3229 26 26 USE iom ! I/O library 27 27 USE wrk_nemo ! work arrays 28 USE timing ! Timing 28 29 29 30 IMPLICIT NONE … … 60 61 REAL(wp), DIMENSION(:,:), POINTER :: zn, zah, zhw, zross ! 2D workspace 61 62 !!---------------------------------------------------------------------- 62 63 ! 64 IF( nn_timing == 1 ) CALL timing_start('ldf_eiv') 65 ! 63 66 CALL wrk_alloc( jpi,jpj, zn, zah, zhw, zross ) 64 67 … … 241 244 CALL wrk_dealloc( jpi,jpj, zn, zah, zhw, zross ) 242 245 ! 246 IF( nn_timing == 1 ) CALL timing_stop('ldf_eiv') 247 ! 243 248 END SUBROUTINE ldf_eiv 244 249
Note: See TracChangeset
for help on using the changeset viewer.