Changeset 3719 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Feb 6, 2019 1:10:18 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r3684 r3719 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Cleaned up chemistry cpu measurements 28 ! 29 ! 3684 2019-01-20 20:20:58Z knoop 27 30 ! OpenACC port for SPEC 28 31 ! … … 509 512 lsp_usr = 1 510 513 ! 511 !-- Chemical reactions 512 CALL cpu_log( log_point(82), '(chem react + exch_h)', 'start' ) 513 514 !-- Chemical reactions and deposition 514 515 IF ( chem_gasphase_on ) THEN 515 516 ! … … 524 525 IF ( intermediate_timestep_count == 1 .OR. & 525 526 call_chem_at_all_substeps ) THEN 527 528 CALL cpu_log( log_point_s(19), 'chem.reactions', 'start' ) 526 529 CALL chem_integrate (i,j) 530 CALL cpu_log( log_point_s(19), 'chem.reactions', 'stop' ) 531 527 532 IF ( do_depo ) THEN 533 CALL cpu_log( log_point_s(24), 'chem.deposition', 'start' ) 528 534 CALL chem_depo(i,j) 535 CALL cpu_log( log_point_s(24), 'chem.deposition', 'stop' ) 529 536 ENDIF 530 537 ENDIF … … 534 541 ! 535 542 !-- Loop over chemical species 536 CALL cpu_log( log_point_s(84), 'chem istry exch-horiz', 'start' )543 CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'start' ) 537 544 DO lsp = 1, nspec 538 545 CALL exchange_horiz( chem_species(lsp)%conc, nbgp ) … … 550 557 551 558 ENDDO 552 CALL cpu_log( log_point_s(84), 'chemistry exch-horiz ', 'stop' ) 553 554 CALL cpu_log( log_point(82), '(chem react + exch_h)', 'stop' ) 559 CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'stop' ) 555 560 556 561 ENDIF … … 2611 2616 !-- Calculate prognostic equation for chemical quantites 2612 2617 IF ( air_chemistry ) THEN 2613 CALL cpu_log( log_point (83), '(chem advec+diff+prog)', 'start' )2618 CALL cpu_log( log_point_s(25), 'chem.advec+diff+prog', 'start' ) 2614 2619 ! 2615 2620 !-- Loop over chemical species … … 2622 2627 ENDDO 2623 2628 2624 CALL cpu_log( log_point (83), '(chem advec+diff+prog)', 'stop' )2629 CALL cpu_log( log_point_s(25), 'chem.advec+diff+prog', 'stop' ) 2625 2630 ENDIF ! Chemicals equations 2626 2631
Note: See TracChangeset
for help on using the changeset viewer.