slow_terms - calculation of slow terms (Source File: slow_terms.F90)

INTERFACE:

    subroutine slow_terms

DESCRIPTION:

Here, the calculation of the so-called slow terms (which are the interaction terms between the barotropic and the baroclinic mode) is completed. The mathematical form of these slow terms is given by equations (63) - (70), see section 7.1. These calculations have been prepared in the routines integrate_3d and slow_bottom_friction. USES:

    use domain, only: imin,imax,jmin,jmax,kmax,HU,HV,au,av
    use variables_2d, only: Uint,Vint,UEx,VEx,Slru,Slrv,SlUx,SlVx,ru,rv
    use variables_3d, only: kumin,kvmin,uu,vv,huo,hun,hvo,hvn
    use variables_3d, only: ssuo,ssun,ssvo,ssvn,uuEx,vvEx,rru,rrv
    use m3d, only: ip_fac
    use getm_timers, only: tic, toc, TIM_SLOWTERMS
 #ifndef NO_BAROCLINIC
    use variables_3d, only: idpdx,idpdy
 #endif
 #ifdef STRUCTURE_FRICTION
    use variables_3d, only: sf
 #endif
  $ use omp_lib
    IMPLICIT NONE

REVISION HISTORY:

    Original author(s): Hans Burchard & Karsten Bolding

LOCAL VARIABLES:

    integer                   :: i,j,k
    REALTYPE                  :: vertsum