Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
setvol | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine setvol(jyearv, jdayva, getvol_flag)
- e46lat :
real*8, save, dimension(47)
- sizlat :
real*8, save, dimension(46)
- taulat :
real*8, save, dimension(46)
- nj46 :
integer, save
- hvol00 :
real*8, parameter, dimension(5)
- Initial Value
= (/15.0, 20.0, 25.0, 30.0, 35.0/)
- fsxtau :
real*8, save
- ftxtau :
real*8, save
- jyearv :
integer, intent(in), optional
- jdayva :
integer, intent(in), optional
- getvol_flag :
integer, intent(in), optional
- j :
integer
- l :
integer
- mi :
integer
- mj :
integer
- k :
integer
- xyyear :
real*8
- xyi :
real*8
- wmi :
real*8
- wmj :
real*8
- sizvol :
real*8
- gdata :
real*8, save, allocatable, dimension(:)
- hlattf :
real*8, save, allocatable, dimension(:)
- htflat :
real*8, save, allocatable, dimension(:, :)
- htprof :
real*8, save, allocatable, dimension(:)