- 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/zdfddm.F90
r3186 r3229 23 23 USE lib_mpp ! MPP library 24 24 USE wrk_nemo ! work arrays 25 USE timing ! Timing 25 26 26 27 IMPLICIT NONE … … 100 101 REAL(wp), POINTER, DIMENSION(:,:) :: zmsks, zmskf, zmskd1, zmskd2, zmskd3 101 102 !!---------------------------------------------------------------------- 102 103 ! 104 IF( nn_timing == 1 ) CALL timing_start('zdf_ddm') 105 ! 103 106 CALL wrk_alloc( jpi,jpj, zmsks, zmskf, zmskd1, zmskd2, zmskd3 ) 104 107 … … 195 198 CALL wrk_dealloc( jpi,jpj, zmsks, zmskf, zmskd1, zmskd2, zmskd3 ) 196 199 ! 200 IF( nn_timing == 1 ) CALL timing_stop('zdf_ddm') 201 ! 197 202 END SUBROUTINE zdf_ddm 198 203
Note: See TracChangeset
for help on using the changeset viewer.