- 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/SAS_SRC/diawri.F90
r9019 r9124 136 136 !!---------------------------------------------------------------------- 137 137 ! 138 IF( nn_timing == 1) CALL timing_start('dia_wri')138 IF( ln_timing ) CALL timing_start('dia_wri') 139 139 ! 140 140 ! Output the initial state and forcings … … 322 322 ENDIF 323 323 ! 324 IF( nn_timing == 1) CALL timing_stop('dia_wri')324 IF( ln_timing ) CALL timing_stop('dia_wri') 325 325 ! 326 326 END SUBROUTINE dia_wri … … 350 350 !!---------------------------------------------------------------------- 351 351 ! 352 IF( nn_timing == 1) CALL timing_start('dia_wri_state')352 IF( ln_timing ) CALL timing_start('dia_wri_state') 353 353 354 354 ! 0. Initialisation … … 428 428 ENDIF 429 429 #endif 430 431 IF( nn_timing == 1 ) CALL timing_stop('dia_wri_state') 432 ! 433 430 ! 431 IF( ln_timing ) CALL timing_stop('dia_wri_state') 432 ! 434 433 END SUBROUTINE dia_wri_state 434 435 435 !!====================================================================== 436 436 END MODULE diawri
Note: See TracChangeset
for help on using the changeset viewer.