Changeset 3724


Ignore:
Timestamp:
Feb 6, 2019 4:28:23 PM (2 years ago)
Author:
kanani
Message:

Correct double-used log_point_s units (bulk_cloud_model_mod, time_integration, turbulence_closure_mod)

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r3700 r3724  
    2525! -----------------
    2626! $Id$
     27! Correct double-used log_point_s unit
     28!
     29! 3700 2019-01-26 17:03:42Z knoop
    2730! nopointer option removed
    2831!
     
    20652068       REAL(wp) ::  flag                  !< flag to indicate first grid level above
    20662069
    2067        CALL cpu_log( log_point_s(54), 'adjust_cloud', 'start' )
     2070       CALL cpu_log( log_point_s(50), 'adjust_cloud', 'start' )
    20682071
    20692072       DO  i = nxlg, nxrg
     
    21002103       ENDDO
    21012104
    2102        CALL cpu_log( log_point_s(54), 'adjust_cloud', 'stop' )
     2105       CALL cpu_log( log_point_s(50), 'adjust_cloud', 'stop' )
    21032106
    21042107    END SUBROUTINE adjust_cloud
     
    23242327       REAL(wp)     ::  xc                !<
    23252328
    2326        CALL cpu_log( log_point_s(55), 'autoconversion', 'start' )
     2329       CALL cpu_log( log_point_s(47), 'autoconversion', 'start' )
    23272330
    23282331       DO  i = nxlg, nxrg
     
    24202423       ENDDO
    24212424
    2422        CALL cpu_log( log_point_s(55), 'autoconversion', 'stop' )
     2425       CALL cpu_log( log_point_s(47), 'autoconversion', 'stop' )
    24232426
    24242427    END SUBROUTINE autoconversion
  • palm/trunk/SOURCE/time_integration.f90

    r3719 r3724  
    2525! -----------------
    2626! $Id$
     27! Correct double-used log_point_s unit
     28!
     29! 3719 2019-02-06 13:10:18Z kanani
    2730! - removed wind_turbine cpu measurement, since same time is measured inside
    2831!   wtm_forces subroutine as special measures
     
    13511354                IF ( ( urban_surface  .OR.  land_surface )  .AND.               &
    13521355                     radiation_interactions )  THEN
    1353                    CALL cpu_log( log_point_s(75), 'radiation_interaction', 'start' )
     1356                   CALL cpu_log( log_point_s(46), 'radiation_interaction', 'start' )
    13541357                   CALL radiation_interaction
    1355                    CALL cpu_log( log_point_s(75), 'radiation_interaction', 'stop' )
     1358                   CALL cpu_log( log_point_s(46), 'radiation_interaction', 'stop' )
    13561359                ENDIF
    13571360   
  • palm/trunk/SOURCE/turbulence_closure_mod.f90

    r3719 r3724  
    2525! -----------------
    2626! $Id$
     27! Correct double-used log_point_s units
     28!
     29! 3719 2019-02-06 13:10:18Z kanani
    2730! Changed log_point to log_point_s, otherwise this overlaps with
    2831! 'all progn.equations' cpu measurement.
     
    19491952    IF ( .NOT. constant_diffusion )  THEN
    19501953
    1951        CALL cpu_log( log_point_s(16), 'tke-equation', 'start' )
     1954       CALL cpu_log( log_point_s(67), 'tke-equation', 'start' )
    19521955
    19531956       sbt = tsc(2)
     
    20572060       ENDIF
    20582061
    2059        CALL cpu_log( log_point_s(16), 'tke-equation', 'stop' )
     2062       CALL cpu_log( log_point_s(67), 'tke-equation', 'stop' )
    20602063
    20612064    ENDIF   ! TKE equation
     
    20652068    IF ( rans_tke_e )  THEN
    20662069
    2067        CALL cpu_log( log_point_s(33), 'diss-equation', 'start' )
     2070       CALL cpu_log( log_point_s(64), 'diss-equation', 'start' )
    20682071
    20692072       sbt = tsc(2)
     
    21572160       ENDIF
    21582161
    2159        CALL cpu_log( log_point_s(33), 'diss-equation', 'stop' )
     2162       CALL cpu_log( log_point_s(64), 'diss-equation', 'stop' )
    21602163
    21612164    ENDIF
Note: See TracChangeset for help on using the changeset viewer.