Changeset 3719 for palm/trunk/SOURCE/turbulence_closure_mod.f90
 Timestamp:
 Feb 6, 2019 1:10:18 PM (4 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/turbulence_closure_mod.f90
r3684 r3719 25 25 !  26 26 ! $Id$ 27 ! Changed log_point to log_point_s, otherwise this overlaps with 28 ! 'all progn.equations' cpu measurement. 29 ! 30 ! 3684 20190120 20:20:58Z knoop 27 31 ! Remove unused variable simulated_time 28 32 ! … … 214 218 215 219 USE cpulog, & 216 ONLY: cpu_log, log_point , log_point_s220 ONLY: cpu_log, log_point_s 217 221 218 222 USE indices, & … … 1945 1949 IF ( .NOT. constant_diffusion ) THEN 1946 1950 1947 CALL cpu_log( log_point (16), 'tkeequation', 'start' )1951 CALL cpu_log( log_point_s(16), 'tkeequation', 'start' ) 1948 1952 1949 1953 sbt = tsc(2) … … 2053 2057 ENDIF 2054 2058 2055 CALL cpu_log( log_point (16), 'tkeequation', 'stop' )2059 CALL cpu_log( log_point_s(16), 'tkeequation', 'stop' ) 2056 2060 2057 2061 ENDIF ! TKE equation … … 2061 2065 IF ( rans_tke_e ) THEN 2062 2066 2063 CALL cpu_log( log_point (33), 'dissequation', 'start' )2067 CALL cpu_log( log_point_s(33), 'dissequation', 'start' ) 2064 2068 2065 2069 sbt = tsc(2) … … 2153 2157 ENDIF 2154 2158 2155 CALL cpu_log( log_point (33), 'dissequation', 'stop' )2159 CALL cpu_log( log_point_s(33), 'dissequation', 'stop' ) 2156 2160 2157 2161 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.