Ignore:
Timestamp:
Mar 3, 2020 8:49:28 PM (19 months ago)
Author:
suehring
Message:

Synthetic turbulence: performance optimizations - random numbers only defined and computed locally, option to compute velocity seeds locally without need of global communication; paralell random number generator: new routine to initialize 1D random number arrays; virtual measurements: CPU-log points added

File:
1 edited

Legend:

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

    r4422 r4438  
    2525! -----------------
    2626! $Id$
     27! Add cpu-log points
     28!
     29! 4422 2020-02-24 22:45:13Z suehring
    2730! Missing trim()
    2831!
     
    165168    USE cpulog,                                                                &
    166169        ONLY:  cpu_log,                                                        &
    167                log_point
     170               log_point_s
    168171
    169172    USE data_output_module
     
    14491452
    14501453!
    1451 !-- Determine the number of output timesteps. Set a maximum value of 80000
    1452 !-- timesteps.
     1454!-- Determine the number of output timesteps.
    14531455    ntimesteps = CEILING(                                                      &
    14541456                  ( end_time - MAX( vm_time_start, time_since_reference_point )&
     
    14681470                                                TRIM( coupling_char ) // '/' //&
    14691471                                                'site', l
    1470 
    14711472
    14721473       return_value = dom_def_file( vmea(l)%nc_filename, 'netcdf4-parallel' )
     
    22812282    REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET ::  output_values_2d_target  !< target for 2d output array
    22822283
     2284    CALL cpu_log( log_point_s(26), 'VM output', 'start' )
    22832285!
    22842286!-- At the first call of this routine write the spatial coordinates.
     
    25482550    ENDDO  ! loop over sites
    25492551
     2552    CALL cpu_log( log_point_s(26), 'VM output', 'stop' )
     2553
    25502554
    25512555  END SUBROUTINE vm_data_output
     
    25822586     REAL(wp) ::  q_s      !< saturation mixing ratio
    25832587     REAL(wp) ::  q_wv     !< mixing ratio
     2588
     2589     CALL cpu_log( log_point_s(27), 'VM sampling', 'start' )
    25842590!
    25852591!--  Loop over all sites.
     
    32943300     ENDDO
    32953301
     3302     CALL cpu_log( log_point_s(27), 'VM sampling', 'stop' )
     3303
    32963304  END SUBROUTINE vm_sampling
    32973305
Note: See TracChangeset for help on using the changeset viewer.