Subroutine SubGridShear

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: subgridshear.f90,v 1.1 2005/02/07 10:31:21 sugiyama Exp $
• Tag Name: $Name: $
• Change History:

Overview

CReSS, Klemp and Wilhelmson (1978) で用いられている 1.5 次の クロージャーによって, シアーによるサブグリッドスケールの 乱流エネルギー生成を評価する.

Error Handling

Known Bugs

Note

Future Plans

Dependency

use dc_trace,       only: BeginSub, EndSub
use gridset,        only: DimXMin, DimXMax, DimZMin, DimZMax, DelXZ
use differentiate,  only: ss_dx_fs, ss_dz_sf, ff_dz_fs, ff_dx_sf 
use average,        only: ss_avr_ff
use arareprm,       only: Cm

Input

real(8), intent(in) :: fs_VelX_n(DimXMin:DimXMax, DimZMin:DimZMax) !速度 u  
real(8), intent(in) :: sf_VelZ_n(DimXMin:DimXMax, DimZMin:DimZMax) !速度 w
real(8), intent(in) :: ss_DivVel_n(DimXMin:DimXMax, DimZMin:DimZMax) !速度の収束
real(8), intent(in) :: ss_Km_n(DimXMin:DimXMax, DimZMin:DimZMax) !渦粘性係数

Output

real(8), intent(out) :: ss_ShearKm_n(DimXMin:DimXMax, DimZMin:DimZMax) !シアーよる乱流エネルギー生成