Ignore:
Timestamp:
Mar 8, 2018 11:57:45 AM (4 years ago)
Author:
suehring
Message:

Bugfix, move call of user_init in front of initialization of grid-point arrays

File:
1 edited

Legend:

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

    r2817 r2864  
    2525! -----------------
    2626! $Id$
     27! Bugfix, move call of user_init in front of initialization of grid-point
     28! arrays
     29!
     30! 2817 2018-02-19 16:32:21Z knoop
    2731! Preliminary gust module interface implemented
    2832!
     
    21742178    ENDDO
    21752179
     2180!
     2181!-- User-defined initializing actions
     2182    CALL user_init
     2183!
     2184!-- Initialize arrays encompassing number of grid-points in inner and outer
     2185!-- domains, statistic regions, etc. Mainly used for horizontal averaging
     2186!-- of turbulence statistics. Please note, user_init must be called before
     2187!-- doing this.   
    21762188    sr = statistic_regions + 1
    21772189#if defined( __parallel )
     
    25182530       ENDDO
    25192531    ENDIF
    2520 
    2521 !
    2522 !-- User-defined initializing actions. Check afterwards, if maximum number
    2523 !-- of allowed timeseries is exceeded
    2524     CALL user_init
    2525 
     2532!
     2533!-- Check if maximum number of allowed timeseries is exceeded
    25262534    IF ( dots_num > dots_max )  THEN
    25272535       WRITE( message_string, * ) 'number of time series quantities exceeds',  &
Note: See TracChangeset for help on using the changeset viewer.