Subroutine PressureGradVelZ

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: pressuregradvelz.f90,v 1.4 2005/02/03 07:12:19 sugiyama Exp $
• Tag Name: $Name: $
• Change History:

Overview

速度 w の傾きを計算. 後退差分で評価

Error Handling

Known Bugs

Note

Future Plans

Dependency

use dc_trace, only: BeginSub, EndSub
use gridset,  only: DimXMin, DimXMax, DimZMin, DimZMax
use basicset, only: ss_CpBasicZ, ss_PotTempBasicZ
use arareprm, only: alpha, beta
use average,   only: sf_avr_ss
use differentiate,  only: sf_dz_ss

Input

real(8), intent(in)      :: ss_Exner_n(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)      :: ss_Exner_a(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)      :: ss_Div_n(DimXMin:DimXMax, DimZMin:DimZMax)

Output

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