Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
get_dxtru3_corr | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine get_dxtru3_corr(dxtru3_10, jlat, mlat46, jday)
- n :
integer
- jlat :
integer
- mlat46 :
integer
- jday :
integer
- dxtru3_10 :
real*8, dimension(10)
- dx3_jan :
real*8, dimension(10), dimension(10)
- dx3_jul :
real*8, dimension(10), dimension(10)
- reflat :
real*8
- wtjlat :
real*8
- refday :
real*8
- wtjday :
real*8
- wt1 :
real*8
- wt2 :
real*8
- wt3 :
real*8
- dxtru3_speqnp_jan :
real*8, parameter, dimension(10, 3)
- Initial Value
= RESHAPE((/ 0.000000D+00,0.111138D-03,0.594676D-04,0.770460D-04,0.694530D-04, 0.645742D-04,0.245626D-04,0.248727D-04,-.520744D-05,0.165988D-04, 0.000000D+00,-.891406D-05,-.743531D-04,-.160635D-04,-.119857D-04, 0.873209D-05,0.473174D-05,0.158620D-04,0.548129D-05,0.121151D-04, 0.000000D+00,-.176254D-04,-.395480D-04,0.200113D-04,0.172199D-04, -.661705D-05,0.399818D-04,0.130381D-04,0.198000D-04,0.263105D-04/ ), (/ 10,3 /))
- dxtru3_speqnp_jul :
real*8, parameter, dimension(10, 3)
- Initial Value
= RESHAPE((/ 0.000000D+00,0.120614D-04,0.809026D-05,0.473324D-05,0.482039D-05, -.863633D-05,-.856459D-06,0.335398D-04,0.422371D-04,0.512790D-04, 0.000000D+00,0.128452D-04,0.811048D-05,0.153064D-04,0.799234D-05, 0.214280D-04,0.146487D-04,0.225772D-05,0.327750D-05,0.835161D-05, 0.000000D-04,0.652637D-04,0.651595D-04,0.637362D-04,0.538371D-04, 0.429989D-04,0.948327D-05,0.194748D-04,-.200184D-06,0.110353D-04/ ), (/ 10,3 /))