Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
phatmo | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine phatmo(p, h, d, t, o, q, s, ocm, wcm, nphd, natm)
- prs1 :
real*8, dimension(33)
- prs2 :
real*8, dimension(33)
- prs3 :
real*8, dimension(33)
- prs4 :
real*8, dimension(33)
- prs5 :
real*8, dimension(33)
- prs6 :
real*8, dimension(33)
- dns1 :
real*8, dimension(33)
- dns2 :
real*8, dimension(33)
- dns3 :
real*8, dimension(33)
- dns4 :
real*8, dimension(33)
- dns5 :
real*8, dimension(33)
- dns6 :
real*8, dimension(33)
- tmp1 :
real*8, dimension(33)
- tmp2 :
real*8, dimension(33)
- tmp3 :
real*8, dimension(33)
- tmp4 :
real*8, dimension(33)
- tmp5 :
real*8, dimension(33)
- tmp6 :
real*8, dimension(33)
- wvp1 :
real*8, dimension(33)
- wvp2 :
real*8, dimension(33)
- wvp3 :
real*8, dimension(33)
- wvp4 :
real*8, dimension(33)
- wvp5 :
real*8, dimension(33)
- wvp6 :
real*8, dimension(33)
- ozo1 :
real*8, dimension(33)
- ozo2 :
real*8, dimension(33)
- ozo3 :
real*8, dimension(33)
- ozo4 :
real*8, dimension(33)
- ozo5 :
real*8, dimension(33)
- ozo6 :
real*8, dimension(33)
- pres :
real*8, dimension(33, 6)
- dens :
real*8, dimension(33, 6)
- temp :
real*8, dimension(33, 6)
- wvap :
real*8, dimension(33, 6)
- ozon :
real*8, dimension(33, 6)
- htkm :
real*8, parameter, dimension(33)
- Initial Value
= (/1d-9, 1d0, 2d0, 3d0, 4d0, 5d0, 6d0, 7d0, 8d0, 9d0,10d0,11d0 ,12d0,13d0,14d0,15d0,16d0,17d0,18d0,19d0,20d0,21d0,22d0,23d0 ,24d0,25d0,30d0,35d0,40d0,45d0,50d0,70d0,99.9d0/)
- splb :
real*8, parameter, dimension(8)
- Initial Value
= (/ 1013.25d0, 226.32d0, 54.748d0 , 8.6801d0, 1.109d0 , .66938d0, .039564d0, 3.7338d-03/)
- stlb :
real*8, parameter, dimension(8)
- Initial Value
= (/288.15d0, 216.65d0, 216.65d0, 228.65d0, 270.65d0, 270.65d0, 214.65d0, 186.87d0/)
- shlb :
real*8, parameter, dimension(8)
- Initial Value
= (/0d0,11d0,20d0,32d0,47d0,51d0,71d0,84.852d0/)
- sdlb :
real*8, parameter, dimension(8)
- Initial Value
= (/-6.5d0,0d0,1d0,2.8d0,0d0,-2.8d0,-2d0,0d0/)
- hpcon :
real*8, parameter
- Initial Value
= 34.16319d0
- h :
real*8, intent(inout)
- p :
real*8, intent(inout)
- d :
real*8, intent(inout)
- natm :
integer, intent(in)
- nphd :
integer, intent(in)
- o :
real*8, intent(out)
- q :
real*8, intent(out)
- s :
real*8, intent(out)
- ocm :
real*8, intent(out)
- wcm :
real*8, intent(out)
- t :
real*8, intent(out)
- xx :
real*8
- xi :
real*8
- xj :
real*8
- delta :
real*8
- rat :
real*8
- pi :
real*8
- pj :
real*8
- di :
real*8
- dj :
real*8
- dp :
real*8
- es :
real*8
- rs :
real*8
- oi :
real*8
- oj :
real*8
- qi :
real*8
- qj :
real*8
- i :
integer
- j :
integer
- k :
integer
- n :
integer