| Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
setgas | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine setgas( getgas_flag)- rel_humidity : used from planet_rad
- getgas_flag :
integer, optional
- p36 :
real*8, parameter, dimension(36)
- Initial Value
= (/ 1.2000D+3, .9720D+3, .9445D+3, .9065D+3, .8515D+3, .7645D+3, .6400D+3, .4975D+3, .3695D+3, .2795D+3, .2185D+3, .1710D+3, .1250D+3, .8500D+2, .6000D+2, .4000D+2, .2500D+2, .1500D+2, .7500D+1, .4000D+1, .2500D+1, .1500D+1, .7500D+0, .4000D+0, .2500D+0, .1500D+0, .7810D-1, .4390D-1, .2470D-1, .1390D-1, .7594D-2, .3623D-2, .1529D-2, .7030D-3, .2059D-3, .0D0/)
- ufac36 :
real*8, parameter, dimension(36)
- Initial Value
= (/ 0.800d0,0.800d0,0.800d0,0.750d0,0.750d0,0.750d0,0.700d0, 0.750d0,0.846d0,0.779d0,0.892d0,0.886d0,0.881d0,0.875d0, 0.870d0,0.846d0,0.840d0,0.902d0,0.880d0,0.775d0,0.796d0, 0.842d0,0.866d0,0.861d0,0.821d0,0.903d0,1.264d0,1.732d0, 2.000d0,1.701d0,1.609d0,1.478d0,1.253d0,1.372d0,1.571d0, 1.571d0/)
- 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)
- ip_gas_loop :
integer, dimension(13)
- ip_gas :
integer
- ip_gas_old :
integer