- 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/DYN/dynspg_exp.F90
r9019 r9124 23 23 USE prtctl ! Print control 24 24 USE iom ! I/O library 25 USE timing ! Timing26 25 27 26 IMPLICIT NONE 28 27 PRIVATE 29 28 30 PUBLIC dyn_spg_exp ! routine called bydynspg.F9029 PUBLIC dyn_spg_exp ! called in dynspg.F90 31 30 32 31 !! * Substitutions … … 61 60 !!---------------------------------------------------------------------- 62 61 ! 63 IF( ln_timing ) CALL timing_start('dyn_spg_exp')64 !65 62 IF( kt == nit000 ) THEN 66 63 IF(lwp) WRITE(numout,*) … … 93 90 ENDIF 94 91 ! 95 IF( ln_timing ) CALL timing_stop('dyn_spg_exp')96 !97 92 END SUBROUTINE dyn_spg_exp 98 93
Note: See TracChangeset
for help on using the changeset viewer.