Commit cb11ccb8 authored by ronesy's avatar ronesy
Browse files

Correction to grid_area for prep_fluxes and prep_syndata

parent 2d26e4a3
......@@ -44,9 +44,9 @@ subroutine gridarea(ylat,dy,dx,area)
real :: ylata, ylatp, ylatm
real :: 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
......
......@@ -51,9 +51,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