Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
diag7a | Module: | File: GCDIAGb.f |
Author :
Version:
Declaration:
subroutine diag7a
- grav : used from constant
- bygrav : used from constant
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- idacc : used from model_com
- mdiag : used from model_com
- p : used from atm_com
- u : used from atm_com
- v : used from atm_com
- phi : used from atm_com
- nwav_dag : used from gc_com
- wave : used from gc_com
- max12hr_sequ : used from gc_com
- kwp : used from gc_com
- re_and_im : used from gc_com
- jeq : used from gc_com
- j50n : used from gc_com
- ia_12hr : used from diag_com
- imh : used from diag_com
- ldex : used from diag_loc
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- sumxpe : used from domain_decomp_1d
- am_i_root : used from domain_decomp_1d
- an :
real*8, dimension(0:imh)
- bn :
real*8, dimension(0:imh)
- km :
integer, parameter
- Initial Value
= 6
- kqmax :
integer, parameter
- Initial Value
= 12
- nmax :
integer
- Initial Value
= nwav_dag
- htrd :
real*8, dimension(im, km)
- htrd_loc :
real*8, dimension(im, km)
- ueq :
real*8, dimension(im, lm)
- ueq_loc :
real*8, dimension(im, lm)
- veq :
real*8, dimension(im, lm)
- veq_loc :
real*8, dimension(im, lm)
- pmb :
real*8, dimension(km), parameter
- Initial Value
= (/922.,700.,500.,300.,100.,10./)
- ght :
real*8, dimension(km), parameter
- Initial Value
= (/500.,2600.,5100.,8500.,15400.,30000./)
- p00 :
real*8, dimension(lm)
- aml :
real*8, dimension(lm)
- pdsigl :
real*8, dimension(lm)
- pmidl :
real*8, dimension(lm)
- pednl :
real*8, dimension(lm+1)
- pij50n :
real*8
- pl :
real*8
- plm1 :
real*8
- slope :
real*8
- now :
real*8
- i :
integer
- idacc9 :
integer
- k :
integer
- kq :
integer
- l :
integer
- n :
integer
- j_0 :
integer
- j_1 :
integer