Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
writer | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine writer(kwru, index)
- get_albedo_data : used from surf_albedo
- am_i_root : used from domain_decomp_atm
- sha : used from constant
- seconds_per_day : used from timeconstants_mod
- index :
integer, intent(in)
- avscat :
real*8
- anscat :
real*8
- avfoam :
real*8
- anfoam :
real*8
- wettra :
real*8
- wetsra :
real*8
- zocsra :
real*8
- zsnsra :
real*8
- zicsra :
real*8
- zdssra :
real*8
- zvgsra :
real*8
- eoctra :
real*8
- esntra :
real*8
- eictra :
real*8
- edstra :
real*8
- evgtra :
real*8
- agexpf :
real*8, dimension(3, 2)
- albdif :
real*8, dimension(3, 2)
- reaero :
real*8, dimension(10)
- Initial Value
= (/ 0.1, 0.3, 0.3, 2.0, 0.3, 1.0, 0.3, 0.3, 0.2, 0.5/)
- ftype :
character*8, parameter, dimension(5)
- Initial Value
= (/'DOWNWARD',' UPWARD','UPWD NET','COOLRATE','FRACTION'/)
- ghg :
character*6, parameter, dimension(12)
- Initial Value
= (/' H2O',' CO2',' O3',' O2',' NO2',' N2O' ,' CH4','CCL3P1','CCL2P2',' N2',' CFC-Y',' CFC-Z'/)
- trabcd :
character*3, dimension(5)
- traxsg :
character*3, dimension(5)
- snotyp :
character*3
- tkeff :
real*8, dimension(3)
- trpi0k :
real*8, dimension(25)
- wflb :
real*8, dimension(LX, 33)
- wfsl :
real*8, dimension(33)
- uxgas :
real*8, dimension(LX, 9)
- bgflux :
real*8, dimension(33)
- bgfrac :
real*8, dimension(33)
- tausum :
real*8, dimension(33)
- sum0 :
real*8, dimension(20)
- sum1 :
real*8, dimension(LX+1)
- sum2 :
real*8, dimension(LX+1)
- sum3 :
real*8, dimension(LX+1)
- wsrext :
real*8, dimension(lx, 6)
- wsrsct :
real*8, dimension(lx, 6)
- wsrgcb :
real*8, dimension(lx, 6)
- wsrpi0 :
real*8, dimension(lx, 6)
- fsr1 :
real*8, dimension(17)
- fsr2 :
real*8, dimension(17)
- isr1 :
integer, dimension(16)
- kwru :
integer
- kslamw :
integer, parameter, dimension(16)
- Initial Value
= (/ 1, 1, 2, 2, 5, 5, 5, 5, 1, 1, 1, 3, 4, 6, 6, 1/)
- iorder :
integer, parameter, dimension(16)
- Initial Value
= (/12,11,10, 9, 6, 5, 4, 3,15,14,13, 8, 7, 2, 1,16/)
- auxgas :
character*1, parameter, dimension(4)
- Initial Value
= (/'0','L','X','X'/)
- p0 :
real*8, parameter
- Initial Value
= 1013.25
- sigma :
real*8, parameter
- Initial Value
= 5.6697D-08
- acolx :
real*8
- bcolx :
real*8
- dcolx :
real*8
- vcolx :
real*8
- tcolx :
real*8
- factor :
real*8
- ppmco2 :
real*8
- ppmo2 :
real*8
- ppmn2o :
real*8
- ppmch4 :
real*8
- ppmf11 :
real*8
- ppmf12 :
real*8
- ppmy11 :
real*8
- ppmz12 :
real*8
- eps :
real*8
- taer :
real*8
- hlm :
real*8
- tlaps :
real*8
- tau55 :
real*8
- tgmean :
real*8
- psum :
real*8
- sralb :
real*8
- stnflb :
real*8
- crhrf :
real*8
- stfhr :
real*8
- trdcr :
real*8
- srdhr :
real*8
- stdhr :
real*8
- pfw :
real*8
- dpf :
real*8
- fracsl :
real*8
- sigt4 :
real*8
- wtg :
real*8
- sumk :
real*8
- sumt :
real*8
- sumk1 :
real*8
- sumk2 :
real*8
- asum1 :
real*8
- bsum1 :
real*8
- csum1 :
real*8
- dsum1 :
real*8
- esum1 :
real*8
- fsum1 :
real*8
- asum2 :
real*8
- bsum2 :
real*8
- csum2 :
real*8
- dsum2 :
real*8
- esum2 :
real*8
- fsum2 :
real*8
- asum3 :
real*8
- bsum3 :
real*8
- csum3 :
real*8
- dsum3 :
real*8
- esum3 :
real*8
- fsum3 :
real*8
- suml :
real*8
- suma :
real*8
- sumb :
real*8
- sumc :
real*8
- sumd :
real*8
- sume :
real*8
- sumf :
real*8
- i :
integer
- j :
integer
- k :
integer
- l :
integer
- kw :
integer
- indj :
integer
- indi :
integer
- indx :
integer
- kpage :
integer
- npage :
integer
- luxgas :
integer
- lgs :
integer
- ipi0 :
integer
- irhl :
integer
- n :
integer
- ii :
integer
- ipf :
integer
- itg :
integer
- lk :
integer
- kk :
integer
- nw :
integer
- linfil :
integer
- cr_kpd :
real*8
- hr_kpd :
real*8