Module Mean Flow


INTERFACE:

   module meanflow
DESCRIPTION:

This module provides all variables necessary for the meanflow calculation and also makes the proper initialisations.


USES:

   IMPLICIT NONE
   Default all is private.
   private
PUBLIC MEMBER FUNCTIONS:
   public init_meanflow, clean_meanflow
 ifdef _PRINTSTATE_
   public print_state_meanflow
 endif
PUBLIC DATA MEMBERS:
   logical, public                              :: grid_ready
   logical, public                              :: init_buoyancy
 
   coordinate z, layer thicknesses
   REALTYPE, public, dimension(:), allocatable, target  :: ga,z,h,ho
 
   the velocity components
   REALTYPE, public, dimension(:), allocatable, target  :: u,v,w
 
   velocity at old time step
   REALTYPE, public, dimension(:), allocatable  :: uo,vo
 
   potential temperature, salinity
   REALTYPE, public, dimension(:), allocatable, target  :: T,S,rho
 
   boyancy frequency squared
   (total, from temperature only, from salinity only)
   REALTYPE, public, dimension(:), allocatable  :: NN,NNT,NNS
 
   shear-frequency squared
   (total, from u only, from v only)
   REALTYPE, public, dimension(:), allocatable  :: SS,SSU,SSV
 
   buoyancy, short-wave radiation,
   extra production of tke by see-grass etc
   REALTYPE, public, dimension(:), allocatable  :: buoy,rad,xP
 
   a dummy array
   (most often used for diffusivities)
   REALTYPE, public, dimension(:), allocatable  :: avh
 
   grid-related vertical velocity
   REALTYPE, public, dimension(:), allocatable  :: w_grid
 
   extra friction terms due to e.g. seagrass
   REALTYPE, public, dimension(:), allocatable  :: fric,drag
 
   shading in the water column
   REALTYPE, public, dimension(:), allocatable, target  :: bioshade
 
  ifdef EXTRA_OUTPUT
 
   dummies for testing
   REALTYPE, public, dimension(:), allocatable   :: mean1,mean2,mean3,mean4,mean5
 
  endif
 
   the 'meanflow' namelist
   REALTYPE, public                    :: h0b
   REALTYPE, public                    :: z0s_min
   logical,  public                    :: charnock
   REALTYPE, public                    :: charnock_val
   REALTYPE, public                    :: ddu
   REALTYPE, public                    :: ddl
   integer,  public                    :: grid_method
   REALTYPE, public                    :: c1ad
   REALTYPE, public                    :: c2ad
   REALTYPE, public                    :: c3ad
   REALTYPE, public                    :: c4ad
   REALTYPE, public                    :: Tgrid
   REALTYPE, public                    :: NNnorm
   REALTYPE, public                    :: SSnorm
   REALTYPE, public                    :: dsurf
   REALTYPE, public                    :: dtgrid
   character(LEN=PATH_MAX), public     :: grid_file
   REALTYPE, public                    :: gravity
   REALTYPE, public                    :: rho_0
   REALTYPE, public                    :: cp
   REALTYPE, public                    :: avmolu
   REALTYPE, public                    :: avmolT
   REALTYPE, public                    :: avmolS
   integer,  public                    :: MaxItz0b
   logical,  public                    :: no_shear
 
   the roughness lengths
   REALTYPE, public                    :: z0b,z0s,za
 
   the coriolis parameter
   REALTYPE, public                    :: cori
 
   the friction velocities
   REALTYPE, public                    :: u_taub,u_taus
 
   bottom stress
   REALTYPE, public, target            :: taub
 
   other stuff
   REALTYPE, public                    :: depth0
   REALTYPE, public                    :: depth
   REALTYPE, public                    :: runtimeu, runtimev
DEFINED PARAMETERS:
   REALTYPE, public, parameter         :: pi=3.141592654
REVISION HISTORY:
   Original author(s): Karsten Bolding & Hans Burchard



Subsections

Karsten Bolding 2012-12-28