Ignore:
Timestamp:
Feb 6, 2019 1:10:18 PM (5 years ago)
Author:
kanani
Message:

Correct and clean-up cpu_logs, some overlapping counts (chemistry_model_mod, disturb_heatflux, large_scale_forcing_nudging_mod, ocean_mod, palm, prognostic_equations, synthetic_turbulence_generator_mod, time_integration, time_integration_spinup, turbulence_closure_mod)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3684 r3719  
    2525! -----------------
    2626! $Id$
     27! Cleaned up chemistry cpu measurements
     28!
     29! 3684 2019-01-20 20:20:58Z knoop
    2730! OpenACC port for SPEC
    2831!
     
    509512       lsp_usr = 1
    510513!
    511 !--    Chemical reactions
    512        CALL cpu_log( log_point(82), '(chem react + exch_h)', 'start' )
    513  
     514!--    Chemical reactions and deposition
    514515       IF ( chem_gasphase_on ) THEN
    515516!
     
    524525                IF ( intermediate_timestep_count == 1 .OR.                        &
    525526                     call_chem_at_all_substeps )  THEN
     527
     528                   CALL cpu_log( log_point_s(19), 'chem.reactions', 'start' ) 
    526529                   CALL chem_integrate (i,j)
     530                   CALL cpu_log( log_point_s(19), 'chem.reactions', 'stop' )
     531
    527532                   IF ( do_depo )  THEN
     533                      CALL cpu_log( log_point_s(24), 'chem.deposition', 'start' )
    528534                      CALL chem_depo(i,j)
     535                      CALL cpu_log( log_point_s(24), 'chem.deposition', 'stop' )
    529536                   ENDIF
    530537                ENDIF
     
    534541!
    535542!--    Loop over chemical species       
    536        CALL cpu_log( log_point_s(84), 'chemistry exch-horiz ', 'start' )
     543       CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'start' )
    537544       DO  lsp = 1, nspec
    538545          CALL exchange_horiz( chem_species(lsp)%conc, nbgp )   
     
    550557
    551558       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' )
    555560
    556561    ENDIF       
     
    26112616!-- Calculate prognostic equation for chemical quantites
    26122617    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' )
    26142619!
    26152620!--    Loop over chemical species
     
    26222627       ENDDO
    26232628
    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' )             
    26252630    ENDIF   ! Chemicals equations
    26262631       
Note: See TracChangeset for help on using the changeset viewer.