Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
setsol | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine setsol(jyears, jjdays, updsol_flag)
- corfac :
real*8, parameter
- Initial Value
= 1366.2911D0/1366.4487855D0
- jyears :
integer, intent(in)
- jjdays :
integer, intent(in)
- updsol_flag :
integer, intent(in), optional
- lmoref :
integer, save
- Initial Value
= 0
- jmo :
integer
- lmo :
integer
- is0x :
integer
- k :
integer
- i :
integer
- nwsuv :
integer
- ii :
integer
- j :
integer
- nuv :
integer
- icyc :
integer
- flxsum :
real*8
- fflux :
real*8, dimension(3)
- uvnorm :
real*8
- xx :
real*8
- ocm :
real*8
- tauk :
real*8
- uvwava :
real*8
- uvwavb :
real*8
- ao33 :
real*8