Subroutine TurbulenceScalar

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: turbulencescalar.f90,v 1.5 2005/02/02 10:19:17 odakker Exp $
• Tag Name: $Name: $
• Change History:

Overview

$B%9%+%i!2A(B

Error Handling

Known Bugs

Note

Future Plans

Dependency

use dc_trace, only: BeginSub, EndSub
use dc_message, only: MessageNotify
use gridset,   only: DimXMin, DimXMax, DimZMin, DimZMax
use average,   only: sf_avr_ss, fs_avr_ss, ss_avr_sf, ss_avr_fs
use differentiate,  only: sf_dz_ss, fs_dx_ss, ss_dz_sf, ss_dx_fs

Input

real(8), intent(in)   :: ss_PotTemp_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)   :: ss_Kh_n(DimXMin:DimXMax, DimZMin:DimZMax)

Output

real(8), intent(out)  :: ss_TurbScalar_n(DimXMin:DimXMax, DimZMin:DimZMax)