subroutine shoc::shoc_work |
( |
integer, intent(in) | ix, |
|
|
integer, intent(in) | nx, |
|
|
integer, intent(in) | nzm, |
|
|
integer, intent(in) | nz, |
|
|
real, intent(in) | dtn, |
|
|
real, dimension (ix,nzm), intent(in) | prsl, |
|
|
real, dimension (ix,nzm), intent(in) | delp, |
|
|
real, dimension (ix,nz ), intent(in) | phii, |
|
|
real, dimension (ix,nzm), intent(in) | phil, |
|
|
real, dimension (ix,nzm), intent(in) | u, |
|
|
real, dimension (ix,nzm), intent(in) | v, |
|
|
real, dimension (ix,nzm), intent(in) | omega, |
|
|
real, dimension (ix,nzm), intent(inout) | tabs, |
|
|
real, dimension (ix,nzm), intent(inout) | qwv, |
|
|
real, dimension (ix,nzm), intent(inout) | qi, |
|
|
real, dimension (ix,nzm), intent(inout) | qc, |
|
|
real, dimension (nx,nzm), intent(in) | qpi, |
|
|
real, dimension (nx,nzm), intent(in) | qpl, |
|
|
real, dimension (nx,nzm), intent(in) | rhc, |
|
|
real, intent(in) | supice, |
|
|
real, intent(in) | pcrit, |
|
|
real, intent(in) | cefac, |
|
|
real, intent(in) | cesfac, |
|
|
real, intent(in) | tkef1, |
|
|
real, intent(in) | dis_opt, |
|
|
real, dimension(ix,nzm), intent(out) | cld_sgs, |
|
|
real, dimension (ix,nzm), intent(inout) | tke, |
|
|
real, dimension(nx), intent(in) | hflx, |
|
|
real, dimension(nx), intent(in) | evap, |
|
|
real, dimension (nx,nzm), intent(in) | prnum, |
|
|
real, dimension (ix,nzm), intent(inout) | tkh, |
|
|
real, dimension (ix,nzm), intent(inout) | wthv_sec, |
|
|
integer, intent(in) | ntlnc, |
|
|
real, dimension (nx,nzm), intent(inout) | ncpl, |
|
|
real, dimension (nx,nzm), intent(inout) | ncpi, |
|
|
real, intent(in) | cp, |
|
|
real, intent(in) | ggr, |
|
|
real, intent(in) | lcond, |
|
|
real, intent(in) | lfus, |
|
|
real, intent(in) | rv, |
|
|
real, intent(in) | rgas, |
|
|
real, intent(in) | pi, |
|
|
real, intent(in) | epsv, |
|
|
real, intent(in) | eps ) |
|
private |