Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2018
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. do i = 2, i2Tmp
  2. do j = 2, j2Tmp
  3.  
  4.  
  5.     ! ************************************************************************************************************
  6.     ! Step 1a): Locate point that is farthest away from wall (at far field (FF)) and save its flow quantities
  7.     ! ************************************************************************************************************
  8.  
  9.  
  10.     ! loop over all points of the wall normal "pillar", locate local maximum of distx within the far field range
  11.     maxDistxLocalFF = 0.
  12.     idxMaxDistxLocalFF = 2
  13.  
  14.     do k = 2, k2Tmp
  15.    
  16.         if (distxTmp(i,j,k) > maxDistxLocalFF .and. distxTmp(i,j,k) <= maxDistxAllowed) then
  17.  
  18.             maxDistxLocalFF = distxTmp(i,j,k)
  19.             idxMaxDistxLocalFF = j
  20.  
  21.         endif
  22.     enddo
  23.  
  24.     ! depending on the orientation of the block, the index must be inversed,
  25.     ! and if the far field range is reached, those cells are not modified
  26.     if (wallNormDirIJK >0) then
  27.         idxB = 2
  28.         idxE = idxMaxDistxLocalFF
  29.     else
  30.         idxB = idxMaxDistxLocalFF
  31.         idxE = k2Tmp   
  32.     endif
  33.  
  34.     ! maximum global wall distance of far field cell
  35.     ! -> also consider dummy layers that contain the information of neighboring blocks
  36.     idxMaxDistxGlobalFF = maxloc(vortShieldStep1Tmp(i,j,1:k2Tmp+1,1), 1)
  37.     maxDistxGlobalFF = vortShieldStep1Tmp(i,j,idxMaxDistxGlobalFF,1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement