Ignore:
Timestamp:
Aug 16, 2019 1:50:17 PM (2 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/bulk_cloud_model_mod.f90

    r4110 r4168  
    2525! -----------------
    2626! $Id$
     27! Replace function get_topography_top_index by topo_top_ind
     28!
     29! 4110 2019-07-22 17:05:21Z suehring
    2730! Pass integer flag array as well as boundary flags to WS scalar advection
    2831! routine
     
    280283        ONLY:  advc_flags_s,                                                   &
    281284               nbgp, nxl, nxlg, nxr, nxrg, nys, nysg, nyn, nyng, nzb, nzt,     &
     285               topo_top_ind,                                                   &
    282286               wall_flags_0
    283287
     
    291295
    292296    USE surface_mod,                                                           &
    293         ONLY :  bc_h, get_topography_top_index_ji, surf_bulk_cloud_model,      &
     297        ONLY :  bc_h,                                                          &
     298                surf_bulk_cloud_model,                                         &
    294299                surf_microphysics_morrison, surf_microphysics_seifert, &
    295300                surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h, surf_usm_v
     
    38073812!
    38083813!--          Determine vertical index of topography top
    3809              k_wall = get_topography_top_index_ji( j, i, 's' )
     3814             k_wall = topo_top_ind(j,i,0)
    38103815             DO  k = nzb+1, nzt
    38113816!
     
    38543859!
    38553860!--    Determine vertical index of topography top
    3856        k_wall = get_topography_top_index_ji( j, i, 's' )
     3861       k_wall = topo_top_ind(j,i,0)
    38573862       DO  k = nzb+1, nzt
    38583863!
Note: See TracChangeset for help on using the changeset viewer.