Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
writet | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine writet(kwru, index, jyrref, jyrnow, jmonth, klimit)
- updateaerosol : used from aerparam_mod
- updateaerosol2 : used from aerparam_mod
- updo3d : used from o3mod
- updo3d_solar : used from o3mod
- plbo3 : used from o3mod
- nlo3 : used from o3mod
- kwru :
integer, intent(in)
- index :
integer, intent(in)
- jyrref :
integer, intent(in)
- jyrnow :
integer, intent(in)
- jmonth :
integer, intent(in)
- klimit :
integer, intent(in)
- wref :
real*8, dimension(7)
- wdat :
real*8, dimension(7)
- wppm :
real*8, dimension(7)
- xrat :
real*8, dimension(5)
- qx :
real*8, dimension(49, lx)
- qs :
real*8, dimension(49, lx)
- qg :
real*8, dimension(49, lx)
- qp :
real*8, dimension(49, lx)
- o3 :
real*8, dimension(49, lx)
- qxcol :
real*8, dimension(49)
- qscol :
real*8, dimension(49)
- qgcol :
real*8, dimension(49)
- qpcol :
real*8, dimension(49)
- o3col :
real*8, dimension(49)
- sfl0 :
real*8, dimension(5)
- sflx :
real*8, dimension(5)
- dflx :
real*8, dimension(5)
- rflx :
real*8, dimension(5)
- o3l :
real*8, dimension(46, 72)
- lo3 :
integer, dimension(36)
- nsw1 :
integer, parameter
- Initial Value
= 24
- nsw2 :
integer, parameter
- Initial Value
= 32
- nsw3 :
integer, parameter
- Initial Value
= 40
- nsw4 :
integer, parameter
- Initial Value
= 48
- chaer :
character*32, parameter, dimension(4)
- Initial Value
= (/ 'Tropospheric Climatology Aerosol', 'Tropospheric Desert Dust Aerosol', 'Stratospheric (Volcanic) Aerosol', 'Total Column Atmospheric Aerosol'/)
- yref11 :
real*8
- zref12 :
real*8
- sumo3 :
real*8
- qosh :
real*8
- qonh :
real*8
- qogl :
real*8
- sumxl :
real*8
- sumgl :
real*8
- sumsl :
real*8
- qxsh :
real*8
- qxnh :
real*8
- qxgl :
real*8
- qssh :
real*8
- qsnh :
real*8
- qsgl :
real*8
- qpsh :
real*8
- qpnh :
real*8
- qpgl :
real*8
- qgsh :
real*8
- qgnh :
real*8
- qggl :
real*8
- kw :
integer
- indj :
integer
- indi :
integer
- indx :
integer
- kindex :
integer
- i :
integer
- jjdayg :
integer
- jyearg :
integer
- kwskip :
integer
- j :
integer
- iyear :
integer
- nspace :
integer
- lmo :
integer
- k :
integer
- mavg :
integer
- iyr1 :
integer
- lmax :
integer
- icyc :
integer
- jyears :
integer
- m :
integer
- jjdayo :
integer
- l :
integer
- jj :
integer
- n :
integer
- n1 :
integer
- n2 :
integer
- ii :
integer
- kaeros :
integer
- ll1 :
integer
- ka :
integer
- jjday :
integer
- icycf :
integer