Changeset 3241 for palm/trunk/SOURCE/exchange_horiz.f90
- Timestamp:
- Sep 12, 2018 3:02:00 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/exchange_horiz.f90
r2718 r3241 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 98 101 99 102 USE control_parameters, & 100 ONLY: bc_lr , bc_lr_cyc, bc_ns, bc_ns_cyc, grid_level,&101 mg_switch_to_pe0,synchronous_exchange103 ONLY: bc_lr_cyc, bc_ns_cyc, grid_level, mg_switch_to_pe0, & 104 synchronous_exchange 102 105 103 106 USE cpulog, & … … 114 117 115 118 116 INTEGER(iwp) :: i !<117 INTEGER(iwp) :: j !<118 INTEGER(iwp) :: k !<119 119 INTEGER(iwp) :: nbgp_local !< 120 120 … … 252 252 !-- workaround has to be removed later. Also, since PGI compiler 12.5 has problems 253 253 !-- with array syntax, explicit loops are used. 254 IF ( bc_lr == 'cyclic') THEN254 IF ( bc_lr_cyc ) THEN 255 255 ar(:,:,nxl-nbgp_local:nxl-1) = ar(:,:,nxr-nbgp_local+1:nxr) 256 256 ar(:,:,nxr+1:nxr+nbgp_local) = ar(:,:,nxl:nxl+nbgp_local-1) 257 257 ENDIF 258 258 259 IF ( bc_ns == 'cyclic') THEN259 IF ( bc_ns_cyc ) THEN 260 260 ar(:,nys-nbgp_local:nys-1,:) = ar(:,nyn-nbgp_local+1:nyn,:) 261 261 ar(:,nyn+1:nyn+nbgp_local,:) = ar(:,nys:nys+nbgp_local-1,:) … … 276 276 277 277 USE control_parameters, & 278 ONLY: bc_lr , bc_lr_cyc, bc_ns, bc_ns_cyc, grid_level278 ONLY: bc_lr_cyc, bc_ns_cyc, grid_level 279 279 280 280 USE indices, & 281 ONLY: n xl, nxr, nyn, nys, nzb, nzt281 ONLY: nzb 282 282 283 283 USE kinds … … 354 354 #else 355 355 356 IF ( bc_lr == 'cyclic') THEN356 IF ( bc_lr_cyc ) THEN 357 357 ar(:,:,nxl_l-nbgp_local:nxl_l-1) = ar(:,:,nxr_l-nbgp_local+1:nxr_l) 358 358 ar(:,:,nxr_l+1:nxr_l+nbgp_local) = ar(:,:,nxl_l:nxl_l+nbgp_local-1) 359 359 ENDIF 360 360 361 IF ( bc_ns == 'cyclic') THEN361 IF ( bc_ns_cyc ) THEN 362 362 ar(:,nys_l-nbgp_local:nys_l-1,:) = ar(:,nyn_l-nbgp_local+1:nyn_l,:) 363 363 ar(:,nyn_l+1:nyn_l+nbgp_local,:) = ar(:,nys_l:nys_l+nbgp_local-1,:)
Note: See TracChangeset
for help on using the changeset viewer.