Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
pgf | Module: ATMDYN | File: ATMDYN.f |
Author : Original development team
Version:
Declaration:
subroutine pgf (dt1, u, v, mam, ut, vt, mafter, s0, sz)
- grav : used from constant
- rgas : used from constant
- kapa : used from constant
- bygrav : used from constant
- zk : used from constant
- Initial Value
= >byKAPA
- zkp1 : used from constant
- Initial Value
= >byKAPAp1
- zkp2 : used from constant
- Initial Value
= >byKAPAp2
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- mtop : used from resolution
- zatmo : used from atm_com
- modd5k : used from diag_com
- imaxj : used from geom
- dxv : used from geom
- dyv : used from geom
- dxys : used from geom
- dxyn : used from geom
- acor : used from geom
- acor2 : used from geom
- gz : used from atm_com
- phi : used from atm_com
- dut : used from dynamics
- dvt : used from dynamics
- adm : used from dynamics
- Initial Value
= >SPA
- do_polefix : used from dynamics
- mrch : used from dynamics
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- halo_update : used from domain_decomp_1d
- south : used from domain_decomp_1d
- havelatitude : used from domain_decomp_1d
- dt1 :
real*8
- u :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- v :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- ut :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- vt :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- s0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- sz :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- mam :
real*8, dimension(lm, im, grid%j_strt_halo:grid%j_stop_halo)
- mafter :
real*8, dimension(lm, im, grid%j_strt_halo:grid%j_stop_halo)
- p :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- pgfu :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- dt4 :
real*8
- dgzu :
real*8, dimension(LM)
- dgza :
real*8, dimension(LM)
- m :
real*8
- pu :
real*8
- pku :
real*8
- pkpu :
real*8
- pkppu :
real*8
- dp :
real*8
- zdp :
real*8
- x :
real*8
- y :
real*8
- pd :
real*8
- pkd :
real*8
- pkpd :
real*8
- pkppd :
real*8
- gzd :
real*8
- factor :
real*8
- flux :
real*8
- vmass :
real*8
- hundredthekapa :
real*8
- ipole :
integer
- loop variab.
- l :
integer
- loop variab.
- im1 :
integer
- loop variab.
- ip1 :
integer
- loop variab.
- j :
integer
- loop variab.
- i :
integer
- loop variab.
- fd :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- rfdux :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- j_0 :
integer
- j_1 :
integer
- j_0stg :
integer
- j_1stg :
integer
- j_0s :
integer
- j_1s :
integer
- j_0h :
integer
- j_1h :
integer
- have_south_pole :
logical
- have_north_pole :
logical