Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
diag5a | Module: | File: GCDIAGb.f |
Author :
Version:
Declaration:
subroutine diag5a (m5, ndt)
- sha : used from constant
- undef_val : used from constant
- ls1 : used from resolution
- psfmpt : used from resolution
- ptop : used from resolution
- 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
- t : used from atm_com
- u : used from atm_com
- v : used from atm_com
- zatmo : used from atm_com
- areag : used from geom
- dxyn : used from geom
- dxyp : used from geom
- dxys : used from geom
- imaxj : used from geom
- speca : used from gc_com
- atpe : used from gc_com
- nspher : used from gc_com
- kspeca : used from gc_com
- klayer : used from gc_com
- agc : used from gc_com
- Initial Value
= >agc_loc
- jeq : used from gc_com
- sqrtm : used from diag_com
- imh : used from diag_com
- fim : used from diag_com
- byim : used from diag_com
- jl_ape : used from gcdiag
- lupa : used from diag_loc
- ldna : used from diag_loc
- sqrtp : used from atm_com
- pk : used from atm_com
- sig : used from dynamics
- dsig : used from dynamics
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- halo_update : used from domain_decomp_1d
- am_i_root : used from domain_decomp_1d
- globalsum : used from domain_decomp_1d
- south : used from domain_decomp_1d
- write_parallel : used from domain_decomp_1d
- sumxpe : used from domain_decomp_1d
- broadcast : used from domain_decomp_1d
- m5 :
integer
- ndt :
integer
- x :
real*8, dimension(im)
- xtmp :
real*8, dimension(im)
- ke :
real*8, dimension(imh+1, nspher)
- ke_jsum :
real*8, dimension(imh+1, nspher)
- ape :
real*8, dimension(imh+1, nspher)
- ke_part :
real*8, dimension(imh+1, grid%j_strt_halo:grid%j_stop_halo, nspher)
- var :
real*8, dimension(imh+1, 4, lm)
- var_jsum :
real*8, dimension(imh+1, 4, lm)
- var_part :
real*8, dimension(imh+1, 4, lm, grid%j_strt_halo:grid%j_stop_halo)
- tpe :
real*8, dimension(2)
- tpe_sum :
real*8
- tpe_psum :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)
- thgm :
real*8, dimension(lm)
- gmean :
real*8, dimension(lm)
- izero :
integer, parameter
- Initial Value
= 0
- mtpeof :
integer, dimension(kspeca), parameter
- Initial Value
= (/0,0,1,0,0,0,0,2,0,3, 4,0,5,0,6,0,7,0,0,8/)
- i :
integer
- ijl2 :
integer
- ip1 :
integer
- j :
integer
- j45n :
integer
- jh :
integer
- jhemi :
integer
- jp :
integer
- k :
integer
- ks :
integer
- kspher :
integer
- l :
integer
- ldn :
integer
- lup :
integer
- mape :
integer
- mke :
integer
- mtpe :
integer
- n :
integer
- nm :
integer
- sqrtpg :
real*8
- sumi :
real*8
- sumt :
real*8
- now :
real*8
- gmean_part :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo, lm)
- thgm_part :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo, lm)
- j_0s :
integer
- j_1s :
integer
- j_0stg :
integer
- j_1stg :
integer
- j_0 :
integer
- j_1 :
integer
- have_south_pole :
logical
- have_north_pole :
logical