INTERFACE:
subroutine physical_mixing(F,AH,diffusivity,pm3d,pm2d)DESCRIPTION:
Here, the physical tracer variance decay for the tracer , , due to horizontal and vertical mixing is calculated as proposed in Burchard and Rennau (2008):
(133) |
USES:
use domain, only: imin,imax,jmin,jmax,kmax,H,au,av #if defined(SPHERICAL) || defined(CURVILINEAR) use domain, only: dxu,dyv #else use domain, only: dx,dy #endif use variables_3d, only: dt,nuh,hn,ssen IMPLICIT NONEINPUT PARAMETERS:
REALTYPE, intent(in) :: F(I3DFIELD) REALTYPE, intent(in) :: AH REALTYPE, intent(in) :: diffusivity !INPUT PARAMETERS REALTYPE, intent(out) :: pm3d(I3DFIELD) REALTYPE, intent(out) :: pm2d(I2DFIELD)REVISION HISTORY:
Original author(s): Hannes RennauLOCAL VARIABLES:
REALTYPE :: dupper,dlower integer :: i,j,k REALTYPE :: aux(I3DFIELD)