Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
setgas | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine setgas( getgas_flag)
- getgas_flag :
integer, optional
- hpcon :
real*8, parameter
- Initial Value
= 34.16319d0
- p0 :
real*8, parameter
- Initial Value
= 1013.25d0
- pi :
real*8, parameter
- Initial Value
= 3.141592653589793D0
- sinlat :
real*8, save, dimension(46)
- ifirst :
integer, save
- Initial Value
= 1
- nl0 :
integer, save
- i :
integer
- nlay :
integer
- natm :
integer
- l :
integer
- j :
integer
- k :
integer
- n :
integer
- rhp :
real*8
- est :
real*8
- fwb :
real*8
- fwt :
real*8
- plt :
real*8
- dp :
real*8
- eq :
real*8
- es :
real*8
- acm :
real*8
- hi :
real*8
- fi :
real*8
- hl :
real*8
- hj :
real*8
- fj :
real*8
- dh :
real*8
- ff :
real*8
- ggvdf :
real*8
- zt :
real*8
- zb :
real*8
- expzt :
real*8
- expzb :
real*8
- parttr :
real*8
- parttg :
real*8
- ptro :
real*8
- dl :
real*8
- dls :
real*8
- dln :
real*8
- z0lat :
real*8
- sumcol :
real*8
- ulgasl :
real*8
- ugas0 :
real*8, dimension(LX)
- ugasr :
real*8, dimension(LX)