SGS_hydro

Module

Description

$Id$

This module is the dummy for the SGS_hydro module in which e.g the SGS force or heat is computed.

** AUTOMATIC CPARAM.INC GENERATION ************************ Declare (for generation of cparam.inc) the number of f array variables and auxiliary variables added by this module

CPARAM logical, parameter :: lSGS_hydro = .true.

MVAR CONTRIBUTION 0 MAUX CONTRIBUTION 9 COMMUNICATED AUXILIARIES 9

PENCILS PROVIDED SGS_force(3) PENCILS PROVIDED SGS_heat

Quick access

Variables:

calc_sgs_hydro_heat, cmaxstress, creystress, iaasmooth, idiag_fsgsm, idiag_fsgsrmsx, isgs_force, isgs_heat, itausgsmax, itausgsrey, iuusmooth, lsgs_forc_as_aux, lsgs_heat_as_aux, pencil_criteria_sgs_hydro, pencil_interdep_sgs_hydro, sgs_hydro_before_boundary, tauij_sgs

Routines:

calc_diagnostics_sgs_hydro(), calc_sgs_hydro_force(), initialize_sgs_hydro(), read_sgs_hydro_run_pars(), register_sgs_hydro(), rprint_sgs_hydro(), sgs_hydro_after_boundary(), write_sgs_hydro_run_pars()

Needed modules

Variables

  • sgs_hydro/calc_sgs_hydro_heat [private]
  • sgs_hydro/cmaxstress [real,private/optional/default=1.0]
  • sgs_hydro/creystress [real,private/optional/default=1.0]
  • sgs_hydro/iaasmooth [integer,private/optional/default=0]
  • sgs_hydro/idiag_fsgsm [integer,private/optional/default=0]
  • sgs_hydro/idiag_fsgsrmsx [integer,private/optional/default=0]
  • sgs_hydro/isgs_force [integer,private/optional/default=0]
  • sgs_hydro/isgs_heat [integer,private/optional/default=0]
  • sgs_hydro/itausgsmax [integer,private/optional/default=0]
  • sgs_hydro/itausgsrey [integer,private/optional/default=0]
  • sgs_hydro/iuusmooth [integer,private/optional/default=0]
  • sgs_hydro/lsgs_forc_as_aux [logical,private/optional/default=.false.]
  • sgs_hydro/lsgs_heat_as_aux [logical,private/optional/default=.false.]
  • sgs_hydro/pencil_criteria_sgs_hydro [private]
  • sgs_hydro/pencil_interdep_sgs_hydro [private]
  • sgs_hydro/sgs_hydro_before_boundary [private]
  • sgs_hydro/smth_kernel (7,7,7) [real,private]
  • sgs_hydro/tauij_sgs [private]

Subroutines and functions

subroutine  sgs_hydro/register_sgs_hydro()

19-nov-02/tony: coded

Use :

messages (svn_id()), farraymanager (farray_register_auxiliary())

Call to:

svn_id(), fatal_error(), smoothing_kernel(), div(), div_other(), calc_diagnostics_sgs_hydro(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/initialize_sgs_hydro()
Use :

sub (smoothing_kernel())

Call to:

fatal_error(), smoothing_kernel(), div(), div_other(), calc_diagnostics_sgs_hydro(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/read_sgs_hydro_run_pars(iomsg)
Parameters:

iomsg [character,inout]

Use :

file_io (parallel_unit())

Call to:

div(), div_other(), calc_diagnostics_sgs_hydro(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/write_sgs_hydro_run_pars(unit)
Parameters:

unit [integer,in]

Call to:

div(), div_other(), calc_diagnostics_sgs_hydro(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/rprint_sgs_hydro(lreset[, lwrite])

Writes ishock to index.pro file

24-nov-03/tony: adapted from rprint_ionization

Parameters:

  • lreset [logical]

  • lwrite [logical,in,]

Use :

diagnostics (parse_name())

Call to:

div(), div_other(), calc_diagnostics_sgs_hydro(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/calc_sgs_hydro_force(f, df, p)

Calculate SGS force and store in pencil. Most basic pencils should come first, as others may depend on them.

20-11-04/anders: coded

Parameters:
Use :

sub (div(), div_other(), dot2(), traceless_strain()), diagnostics (sum_mn_name())

Call to:

div(), div_other(), calc_diagnostics_sgs_hydro(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/calc_diagnostics_sgs_hydro(p)
Parameters:

p [pencil_case]

Use :

diagnostics, sub (dot2())

Call to:

boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), div(), traceless_strain(), gij_etc()

subroutine  sgs_hydro/sgs_hydro_after_boundary(f)
Parameters:

f (mx,my,mz,mfarray) [real]

Use :

boundcond (update_ghosts(), boundconds_x(), boundconds_y(), boundconds_z()), mpicomm (finalize_isendrcv_bdry(), initiate_isendrcv_bdry()), sub (traceless_strain(), div(), gij(), gij_etc(), smooth_kernel())

Call to:

boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), smooth_kernel(), update_ghosts(), gij(), div(), traceless_strain(), gij_etc()