INTERFACE:
subroutine mirror_bdy_3d(f,tag)DESCRIPTION:
Some variables are mirrored outside the calculation domain in the vicinity of the open boundaries. This is to avoid if statements when calculating e.g. the Coriolis terms and advection. This routines mirrors 3d variables. USES:
use halo_zones, only : U_TAG,V_TAG,H_TAG,D_TAG use domain, only: imin,imax,jmin,jmax,kmax use domain, only: az,au,av use domain, only: NWB,NNB,NEB,NSB use domain, only: wi,wfj,wlj,nj,nfi,nli,ei,efj,elj,sj,sfi,sli IMPLICIT NONEINPUT PARAMETERS:
integer, intent(in) :: tagINPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)OUTPUT PARAMETERS:
REVISION HISTORY:
Original author(s): Karsten Bolding & Hans BurchardLOCAL VARIABLES:
integer :: i,j,n