Ignore:
Timestamp:
Aug 16, 2019 1:50:17 PM (3 years ago)
Author:
suehring
Message:

Replace get_topography_top_index functions by pre-calculated arrays in order to save computational resources

File:
1 edited

Legend:

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

    r4069 r4168  
    2525! -----------------
    2626! $Id$
     27! Replace function get_topography_top_index by topo_top_ind
     28!
     29! 4069 2019-07-01 14:05:51Z Giersch
    2730! Masked output running index mid has been introduced as a local variable to
    2831! avoid runtime error (Loop variable has been modified) in time_integration
     
    449452    USE indices,                                                               &
    450453        ONLY:  mg_loc_ind, nnx, nny, nnz, nx, ny, nxl_mg, nxr_mg, nyn_mg,      &
    451                nys_mg, nzt, nzt_mg
     454               nys_mg, nzt, nzt_mg, topo_top_ind
    452455
    453456    USE kinds
     
    478481
    479482    USE surface_mod,                                                           &
    480         ONLY:  surf_def_h, get_topography_top_index_ji
     483        ONLY:  surf_def_h
    481484
    482485    USE turbulence_closure_mod,                                                &
     
    11111114       WRITE( io, 280 )
    11121115       IF ( turbulent_inflow )  THEN
    1113           WRITE( io, 281 )  zu( get_topography_top_index_ji( 0, 0, 's' ) )
     1116          WRITE( io, 281 )  zu(topo_top_ind(0,0,0))
    11141117       ENDIF
    11151118       IF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN
Note: See TracChangeset for help on using the changeset viewer.