Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
uv_eqn_sta | Module: SOCPBL | File: PBL.f |
Author : Ye Cheng/G. Hartke
Version: 1.0
Declaration:
subroutine uv_eqn_sta(u, v, z, km, dz, dzh, ustar, cm, utop, vtop, coriol, uocean, vocean, n, dpdxr, dpdyr, dpdxr0, dpdyr0, ug, vg)
- u :
real*8, dimension(n), intent(inout)
- z-profle of west-east velocity component
- v :
real*8, dimension(n), intent(inout)
- z-profle of south-north velocity component
- z :
real*8, dimension(n), intent(in)
- vertical height at the main grids (meter)
- zhat :
- vertical height at the secondary grids (meter)
- km :
real*8, dimension(n-1), intent(in)
- z-profile of turbulent viscosity
- kh :
- z-profile of turbulent conductivity
- dz :
real*8, dimension(n), intent(in)
- (j) zhat(j)-zhat(j-1)
- dzh :
real*8, dimension(n-1), intent(in)
- (j) z(j+1)-z(j)
- ustar :
real*8, intent(in)
- friction velocity at the surface
- cm :
real*8, intent(in)
- dimensionless momentum flux at surface (drag coeff.)
- ch :
- dimensionless heat flux at surface (stanton number)
- cq :
- dimensionless moisture flux at surface (dalton number)
- utop :
real*8, intent(in)
- due east component of the wind at the first GCM layer
- vtop :
real*8, intent(in)
- due north component of the wind at the first GCM layer
- coriol :
real*8, intent(in)
- the Coriolis parameter
- n :
integer, intent(in)
- number of vertical subgrid main layers
- sub :
real*8, dimension(n)
- dia :
real*8, dimension(n)
- sup :
real*8, dimension(n)
- rhs :
real*8, dimension(n)
- rhs1 :
real*8, dimension(n)
- uocean :
real*8, intent(in)
- vocean :
real*8, intent(in)
- dpdxr :
real*8, intent(in)
- dpdyr :
real*8, intent(in)
- dpdxr0 :
real*8, intent(in)
- dpdyr0 :
real*8, intent(in)
- iter :
integer
- loop variable
- j :
integer
- loop variable
- i :
integer
- loop variable
- factx :
real*8
- facty :
real*8
- dpdx :
real*8
- dpdy :
real*8
- usurf :
real*8
- factor :
real*8
- ug :
real*8
- vg :
real*8