PGF90 (Version     12.8)          08/30/2020  00:27:53      page 1

Switches: -noasm -nodclchk -nodebug -nodlines -noline -list
          -idir ../include
          -inform warn -opt 1 -nosave -object -noonetrip
          -depchk on -nostandard     
          -nosymbol -noupcase    

Filename: bocovs.f90

(    1) !&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
(    2)       subroutine bocovs(vs,im,jm,lsd)
(    3) !     ******************************************************************
(    4) !     *                                                                *
(    5) !     *   Scalar boundary conditions for wind-points                   *
(    6) !     *                                                                *
(    7) !     ******************************************************************
(    8) 
(    9)       integer,parameter::nm=6
(   10) !-----------------------------------------------------------------------
(   11)       integer::im,jm,lsd,im1,jm1,nr,nl
(   12) !-----------------------------------------------------------------------
(   13)       real, dimension(0:im+1,0:jm+1,nm,lsd)::  vs
(   14) !-----------------------------------------------------------------------   
(   15)       im1=im-1
(   16)       jm1=jm-1
(   17)       do n=1,4
(   18)         nl = n-1+4*((5-n)/4)
(   19)         nr = n+1-4*(n/4)
(   20)           do j=1,jm1
(   21)             vs(0 , j, n,:) = vs(im1, j, nl,:)
(   22)             vs(im, j, n,:) = vs(1  , j, nr,:)
(   23)           end do
(   24)       end do
(   25) 
(   26)       do i=1,im1
(   27)        imi = im-i
(   28)        jmi = jm-i
(   29)         vs(i,jm,1,:) = vs(i  ,1  ,5,:) 
(   30)         vs(i,jm,2,:) = vs(im1,i  ,5,:) 
(   31)         vs(i,jm,3,:) = vs(imi,jm1,5,:) 
(   32)         vs(i,jm,4,:) = vs(1  ,jmi,5,:) 
(   33)         vs(i,0, 1,:) = vs(i  ,jm1,6,:) 
(   34)         vs(i,0, 2,:) = vs(im1,jmi,6,:) 
(   35)         vs(i,0, 3,:) = vs(imi,1  ,6,:) 
(   36)         vs(i,0, 4,:) = vs(1  ,i  ,6,:) 
(   37)       end do
(   38) 
(   39)       do i=1,im1
(   40)        imi = im-i
(   41)        jmi = jm-i
(   42)         vs( i, 0, 5,:) = vs(i  ,jm1, 1,:)
(   43)         vs(im, i, 5,:) = vs(i  ,jm1, 2,:)
(   44)         vs(i ,jm, 5,:) = vs(imi,jm1, 3,:)
(   45)         vs(0 , i, 5,:) = vs(imi,jm1, 4,:)
(   46)         vs( i, 0, 6,:) = vs(imi,1, 3,:)
(   47)         vs(im, i, 6,:) = vs(imi,1, 2,:)
(   48)         vs(i ,jm, 6,:) = vs(i  ,1, 1,:)
(   49)         vs(0 , i, 6,:) = vs(i  ,1, 4,:)
(   50)       end do
(   51) !-----------------------------------------------------------------------






PGF90 (Version     12.8)          08/30/2020  00:27:53      page 2

(   52)       end subroutine bocovs