Skip to content

Commit 00b99fa

Browse files
v8.3.1-2.33 Correct the equation of time (ufs-community#253)
* Correct the EOT * Update README.md --------- Co-authored-by: Dustin Swales <dustin.swales@noaa.gov>
1 parent 13aef82 commit 00b99fa

2 files changed

Lines changed: 3 additions & 3 deletions

File tree

README.md

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
MPAS-v8.3.1-2.32
1+
MPAS-v8.3.1-2.33
22
====
33

44
The Model for Prediction Across Scales (MPAS) is a collaborative project for

src/core_atmosphere/physics/physics_wrf/module_ra_rrtmg_sw.F

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10204,9 +10204,9 @@ subroutine rrtmg_swrad( &
1020410204
! eot is based on the second equation at https://gml.noaa.gov/grad/solcalc/solareqns.PDF
1020510205
! do not call rrtmg_sw is night-time:
1020610206
dorrsw = .true.
10207-
da=6.2831853071795862*(julian-1.)/365.
10207+
da=6.2831853071795862*(julian-0.5)/365.
1020810208
eot=(0.000075+0.001868*cos(da)-0.032077*sin(da) &
10209-
-0.014615*cos(2*da)-0.04089*sin(2*da))*(229.18)
10209+
-0.014615*cos(2*da)-0.040849*sin(2*da))*(229.18)
1021010210
xt24 = mod(xtime+radt*0.5,1440.)+eot
1021110211
tloctm = gmt + xt24/60. + xlong(i,j)/15.
1021210212
hrang = 15. * (tloctm-12.) * degrad

0 commit comments

Comments
 (0)