- 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/DOM/domain.F90
r9023 r9124 44 44 USE lbclnk ! ocean lateral boundary condition (or mpp link) 45 45 USE lib_mpp ! distributed memory computing library 46 USE timing ! Timing47 46 48 47 IMPLICIT NONE … … 80 79 REAL(wp), DIMENSION(jpi,jpj) :: z1_hu_0, z1_hv_0 81 80 !!---------------------------------------------------------------------- 82 !83 IF( ln_timing ) CALL timing_start('dom_init')84 81 ! 85 82 IF(lwp) THEN ! Ocean domain Parameters (control print) … … 191 188 ! 192 189 IF( ln_write_cfg ) CALL cfg_write ! create the configuration file 193 !194 IF( ln_timing ) CALL timing_stop('dom_init')195 190 ! 196 191 END SUBROUTINE dom_init
Note: See TracChangeset
for help on using the changeset viewer.