Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
diag5p | Module: DIAG_SERIAL | File: DIAG_PRT.f |
Author : Gary Russell
Version:
Declaration:
subroutine diag5p
- grav : used from constant
- rgas : used from constant
- teeny : used from constant
- modeleclock : used from model_com
- idacc : used from model_com
- jhour0 : used from model_com
- jdate0 : used from model_com
- amon : used from model_com
- amon0 : used from model_com
- jyear0 : used from model_com
- xlabel : used from model_com
- dxyv : used from geom
- im : used from diag_com
- jm : used from diag_com
- lm : used from diag_com
- fim : used from diag_com
- aijk : used from diag_com
- ia_d5s : used from diag_com
- ia_filt : used from diag_com
- ia_12hr : used from diag_com
- ia_d5f : used from diag_com
- ia_d5d : used from diag_com
- ia_dga : used from diag_com
- ia_inst : used from diag_com
- kdiag : used from diag_com
- speca : used from gc_com
- atpe : used from gc_com
- agc : used from gc_com
- kspeca : used from gc_com
- ktpe : used from gc_com
- nhemi : used from gc_com
- nspher : used from gc_com
- klayer : used from gc_com
- istrat : used from gc_com
- jeq : used from gc_com
- xwon : used from diag_zonal
- dt : used from dynamics
- x :
real*8, dimension(im)
- scalet :
real*8, dimension(kspeca)
- f0 :
real*8, dimension(kspeca)
- fnsum :
real*8, dimension(kspeca)
- mn :
integer, dimension(kspeca)
- fatpe :
real*8, dimension(ktpe, nhemi)
- izero :
integer, parameter
- Initial Value
= 0
- mapeof :
integer, dimension(ktpe), parameter
- Initial Value
= (/3,8,10,11,13,15,17,20/)
- latitd :
character*8, dimension(4)
- Initial Value
= (/ 'SOUTHERN','NORTHERN',' EQUATOR','45 NORTH'/)
- sphere :
character*16, dimension(4)
- Initial Value
= (/'TROPOSPHERE ','LOW STRATOSPHERE', 'MID STRATOSPHERE','UPP STRATOSPHERE'/)
- scalek :
real*8, dimension(4)
- Initial Value
= (/1.,1.,10.,10./)
- i :
integer
- iunitj :
integer
- iunitw :
integer
- j :
integer
- j45n :
integer
- k :
integer
- kpage :
integer
- krow :
integer
- kspher :
integer
- l :
integer
- m :
integer
- mape :
integer
- mtpe :
integer
- n :
integer
- nm :
integer
- nm1 :
integer
- latf :
integer
- latl :
integer
- factor :
real*8
- fnm :
real*8
- year :
integer
- hour :
integer
- date :
integer