- 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/DIA/diawri.F90
r9023 r9124 126 126 !!---------------------------------------------------------------------- 127 127 ! 128 IF( nn_timing == 1) CALL timing_start('dia_wri')128 IF( ln_timing ) CALL timing_start('dia_wri') 129 129 ! 130 130 ! Output the initial state and forcings … … 402 402 IF (ln_dia25h) CALL dia_25h( kt ) ! 25h averaging 403 403 404 IF( nn_timing == 1) CALL timing_stop('dia_wri')404 IF( ln_timing ) CALL timing_stop('dia_wri') 405 405 ! 406 406 END SUBROUTINE dia_wri … … 438 438 !!---------------------------------------------------------------------- 439 439 ! 440 IF( nn_timing == 1) CALL timing_start('dia_wri')440 IF( ln_timing ) CALL timing_start('dia_wri') 441 441 ! 442 442 IF( ninist == 1 ) THEN !== Output the initial state and forcings ==! … … 859 859 ENDIF 860 860 ! 861 IF( nn_timing == 1) CALL timing_stop('dia_wri')861 IF( ln_timing ) CALL timing_stop('dia_wri') 862 862 ! 863 863 END SUBROUTINE dia_wri
Note: See TracChangeset
for help on using the changeset viewer.