Commit 3253b68a authored by ronesy's avatar ronesy
Browse files

Correction to grid_area for mid, lower, upper latitude

parent 82534c2b
......@@ -179,9 +179,9 @@ module mod_tools
real, parameter :: pi=3.14159265, rearth=6.371e6, pih=pi/180.
real :: ylata, ylatp, ylatm, cosfact, cosfactp, cosfactm, hzone
ylata = ylat+(0.5)*dy
ylatp = ylata+0.5*dy
ylatm = ylat
ylata = ylat
ylatp = ylat+0.5*dy
ylatm = ylat-0.5*dy
if (ylatm.lt.0.and.ylatp.gt.0) then
hzone = rearth*pih
else
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment