Module m2d - depth integrated hydrodynamical model (2D) (Source File: m2d.F90)

INTERFACE:

    module m2d

DESCRIPTION:

This module contains declarations for all variables related to 2D hydrodynamical calculations. Information about the calculation domain is included from the domain module. The module contains public subroutines for initialisation, integration and clean up of the 2D model component. The actual calculation routines are called in integrate_2d and are linked in from the library lib2d.a.

USES:

    use exceptions
    use time, only: julianday,secondsofday
    use parameters, only: avmmol
    use domain, only: imin,imax,jmin,jmax,az,au,av,H,HU,HV,min_depth
    use domain, only: ilg,ihg,jlg,jhg
    use domain, only: ill,ihl,jll,jhl
    use domain, only: openbdy,z0_method,z0_const,z0
    use domain, only: az,ax
    use halo_zones, only : update_2d_halo,wait_halo
    use halo_zones, only : U_TAG,V_TAG,H_TAG
    use variables_2d
    IMPLICIT NONE
   Temporary interface (should be read from module):
    interface
       subroutine get_2d_field(fn,varname,il,ih,jl,jh,f)
          character(len=*),intent(in)   :: fn,varname
          integer, intent(in)           :: il,ih,jl,jh
          REALTYPE, intent(out)         :: f(:,:)
       end subroutine get_2d_field
    end interface

PUBLIC DATA MEMBERS:

    logical                   :: have_boundaries
    REALTYPE                  :: dtm,Am=-_ONE_
    method for specifying horizontal numerical diffusion coefficient
       (0=const, 1=from named nc-file)
    integer                   :: An_method=0
    REALTYPE                  :: An_const=-_ONE_
    character(LEN = PATH_MAX) :: An_file
 
    integer                   :: MM=1,residual=-1
    integer                   :: sealevel_check=0
    logical                   :: bdy2d=.false.
    integer                   :: bdyfmt_2d,bdytype,bdyramp_2d=-1
    character(len=PATH_MAX)   :: bdyfile_2d
    REAL_4B                   :: bdy_data(1500)
    REAL_4B                   :: bdy_data_u(1500)
    REAL_4B                   :: bdy_data_v(1500)
    REAL_4B, allocatable      :: bdy_times(:)
    integer, parameter        :: comm_method=-1

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard

LOCAL VARIABLES:

   integer                    :: num_neighbors
   REALTYPE                   :: An_sum