Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
setrel | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine setrel(reff0, naer, kdread, sruqex, sruqsc, sruqcb, truqex, truqsc, truqcb, refu22, q55u22, frsulf, srhqex, srhqsc, srhqcb, trhqab, rhdata)
- openunit : used from filemanager
- closeunit : used from filemanager
- am_i_root : used from domain_decomp_atm
- naer :
integer
- kdread :
integer
- reff0 :
real*8
- sruqex :
real*8, dimension( 6, 110)
- sruqsc :
real*8, dimension( 6, 110)
- sruqcb :
real*8, dimension( 6, 110)
- truqex :
real*8, dimension(33, 110)
- truqsc :
real*8, dimension(33, 110)
- truqcb :
real*8, dimension(33, 110)
- refu22 :
real*8, dimension(110)
- q55u22 :
real*8, dimension(110)
- frsulf :
real*8, dimension(8)
- srhqex :
real*8, dimension(6, 190)
- srhqsc :
real*8, dimension(6, 190)
- srhqcb :
real*8, dimension( 6, 190)
- trhqab :
real*8, dimension(33, 190)
- rhdata :
real*8, dimension(190, 15)
- dtfile :
character*40, save
- Initial Value
= 'oct2003.relhum.nr.Q633G633.table'
- qexist :
logical
- i :
integer
- j :
integer
- j1 :
integer
- k :
integer
- k1 :
integer
- in1 :
integer
- ir1 :
integer
- jdry :
integer
- jwet :
integer
- jhimax :
integer
- khimax :
integer
- maxdry :
integer
- maxwet :
integer
- n :
integer
- n0 :
integer
- n1 :
integer
- nn :
integer
- np :
integer
- nrhn1 :
integer
- x :
real*8
- xx :
real*8
- xi :
real*8
- xn0 :
real*8
- xn1 :
real*8
- xr1 :
real*8
- ff :
real*8
- fi :
real*8
- gi :
real*8
- gd1 :
real*8
- gd2 :
real*8
- gw1 :
real*8
- gw2 :
real*8
- grh :
real*8
- qrh :
real*8
- rrh :
real*8
- rh :
real*8
- rhi :
real*8
- rr0 :
real*8
- rd1 :
real*8
- rd2 :
real*8
- rw1 :
real*8
- rw2 :
real*8
- dwr :
real*8
- qd1 :
real*8
- qd2 :
real*8
- qw1 :
real*8
- qw2 :
real*8
- xdry :
real*8
- sdry :
real*8
- xwet :
real*8
- swet :
real*8
- qqdmax :
real*8
- qqwmax :
real*8
- rqdmax :
real*8
- rqwmax :
real*8
- q55dry :
real*8
- q63dry :
real*8
- dwn :
real*8
- aermas :
real*8
- ddry :
real*8
- dwet :
real*8
- reffi :
real*8
- rhrhi :
real*8
- sum :
real*8
- sumw :
real*8
- vd1 :
real*8
- vd2 :
real*8
- vw1 :
real*8
- vw2 :
real*8
- w1 :
real*8
- w2 :
real*8
- w3 :
real*8
- w4 :
real*8
- wd1 :
real*8
- wd2 :
real*8
- ww1 :
real*8
- ww2 :
real*8
- wtx :
real*8
- wty :
real*8
- wtz :
real*8
- wts :
real*8
- wta :
real*8
- xfdry :
real*8
- q55rh1 :
real*8
- q55rh2 :
real*8
- q55rh3 :
real*8
- q55rh4 :
real*8
- q550 :
real*8
- q633 :
real*8
- qgaerx :
real*8
- qscqcb :
real*8
- rhrhrh :
real*8, dimension(190)
- rhtauf :
real*8, dimension(190)
- rhreff :
real*8, dimension(190)
- rhwgm2 :
real*8, dimension(190)
- rhdgm2 :
real*8, dimension(190)
- rhtgm2 :
real*8, dimension(190)
- rhxmfx :
real*8, dimension(190)
- rhdens :
real*8, dimension(190)
- rhq550 :
real*8, dimension(190)
- taum2g :
real*8, dimension(190)
- xnrrhx :
real*8, dimension(190)
- anbcm2 :
real*8, dimension(190)
- cosbar :
real*8, dimension(190)
- pizero :
real*8, dimension(190)
- angstr :
real*8, dimension(190)
- rhinfo :
real*8, dimension(190, 15)
- r633nr :
real*8, dimension(890)
- xnr :
real*8, dimension(31)
- q633nr :
real*8, dimension(890, 31)
- g633nr :
real*8, dimension(890, 31)
- q880m1 :
real*8, dimension(890)
- g880m1 :
real*8, dimension(890)
- q880m0 :
real*8, dimension(890)
- g880m0 :
real*8, dimension(890)
- q880n1 :
real*8, dimension(890)
- q880n0 :
real*8, dimension(890)
- r550nr :
real*8, dimension(890)
- smooth :
real*8, dimension(890)
- rr0rhx :
real*8, dimension(190)
- qrh633 :
real*8, dimension(190)
- grh633 :
real*8, dimension(190)
- dnrx :
real*8, dimension(190)
- qxaern :
real*8, dimension(33)
- qsaern :
real*8, dimension(33)
- qgaern :
real*8, dimension(33)
- sr1qex :
real*8, dimension( 6)
- sr1qsc :
real*8, dimension( 6)
- sr1qcb :
real*8, dimension( 6)
- sr2qex :
real*8, dimension( 6)
- sr2qsc :
real*8, dimension( 6)
- sr2qcb :
real*8, dimension( 6)
- sr3qex :
real*8, dimension( 6)
- sr3qsc :
real*8, dimension( 6)
- sr3qcb :
real*8, dimension( 6)
- sr4qex :
real*8, dimension( 6)
- sr4qsc :
real*8, dimension( 6)
- sr4qcb :
real*8, dimension( 6)
- tr1qex :
real*8, dimension(33)
- tr1qsc :
real*8, dimension(33)
- tr1qcb :
real*8, dimension(33)
- tr2qex :
real*8, dimension(33)
- tr2qsc :
real*8, dimension(33)
- tr2qcb :
real*8, dimension(33)
- tr3qex :
real*8, dimension(33)
- tr3qsc :
real*8, dimension(33)
- tr3qcb :
real*8, dimension(33)
- tr4qex :
real*8, dimension(33)
- tr4qsc :
real*8, dimension(33)
- tr4qcb :
real*8, dimension(33)
- trhqex :
real*8, dimension(33)
- trhqsc :
real*8, dimension(33)
- trhqcb :
real*8, dimension(33)
- nrhcry :
integer, parameter, dimension(4)
- Initial Value
= (/38,47,28,38/)
- aertyp :
character*8, dimension(4)
- awso4 :
real*8
- dwso4 :
real*8
- roso4 :
real*8
- bxso4 :
real*8
- rxso4 :
real*8
- drwso4 :
real*8
- drdso4 :
real*8
- awsea :
real*8
- dwsea :
real*8
- rosea :
real*8
- bxsea :
real*8
- rxsea :
real*8
- drwsea :
real*8
- drdsea :
real*8
- rrsea :
real*8
- vvsea :
real*8
- gxsea :
real*8
- awno3 :
real*8
- dwno3 :
real*8
- rono3 :
real*8
- bxno3 :
real*8
- r1no3 :
real*8
- r2no3 :
real*8
- drxno3 :
real*8
- awocx :
real*8
- dwocx :
real*8
- roocx :
real*8
- bxocx :
real*8
- rxocx :
real*8
- drwocx :
real*8
- drdocx :
real*8