Ignore:
Timestamp:
Sep 10, 2013 8:59:13 AM (8 years ago)
Author:
raasch
Message:

New:


openACC porting of reduction operations
additional 3D-flag arrays for replacing the 2D-index arrays nzb_s_inner and nzb_diff_s_inner
(flow_statistics, init_grid, init_3d_model, modules, palm, pres, time_integration)

Changed:


for PGI/openACC performance reasons set default compile options for openACC to "-ta=nocache",
and set environment variable PGI_ACC_SYNCHRONOUS=1
(MAKE.inc.pgi.openacc, palm_simple_run)

wall_flags_0 changed to 32bit INTEGER, additional array wall_flags_00 introduced to hold
bits 32-63
(advec_ws, init_grid, modules, palm)

Errors:


dummy argument tri in 1d-routines replaced by tri_for_1d because of name
conflict with arry tri in module arrays_3d
(tridia_solver)

File:
1 edited

Legend:

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

    r1217 r1221  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! wall_flags_0 changed to 32bit int, +wall_flags_00,
     23! +rflags_s_inner, rflags_invers
    2324!
    2425! Former revisions:
     
    10881089! Description:
    10891090! ------------
    1090 ! Definition of array bounds and number of gridpoints
     1091! Definition of array bounds, number of gridpoints, and wall flag arrays
    10911092!------------------------------------------------------------------------------!
    10921093
     
    11121113    INTEGER, DIMENSION(:,:,:), POINTER ::  flags
    11131114
    1114     INTEGER( KIND = SELECTED_INT_KIND(11) ), DIMENSION(:,:,:), ALLOCATABLE ::  &
    1115                 wall_flags_0  ! need to have 34 Bit
     1115    INTEGER, DIMENSION(:,:,:), ALLOCATABLE ::  wall_flags_0, wall_flags_00
    11161116
    11171117    INTEGER, DIMENSION(:,:,:), ALLOCATABLE,  TARGET ::                         &
     
    11201120                wall_flags_9, wall_flags_10
    11211121
     1122    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  rflags_s_inner, rflags_invers
    11221123
    11231124    SAVE
Note: See TracChangeset for help on using the changeset viewer.