Skip to content

Commit

Permalink
Reg latlon update (NOAA-EMC#29)
Browse files Browse the repository at this point in the history
* update modules for jet

* update for regular lat-lon grids to FV3 output change on coordinate
  • Loading branch information
JiliDong-NOAA authored and WenMeng-NOAA committed Dec 13, 2019
1 parent 3b7f408 commit 2eb40f2
Showing 1 changed file with 12 additions and 0 deletions.
12 changes: 12 additions & 0 deletions sorc/ncep_post.fd/INITPOST_NETCDF.f
Original file line number Diff line number Diff line change
Expand Up @@ -531,6 +531,18 @@ SUBROUTINE INITPOST_NETCDF(ncid3d)
end do
lonstart = nint(glon1d(1)*gdsdegr)
lonlast = nint(glon1d(im)*gdsdegr)

! Jili Dong add support for regular lat lon (2019/03/22) start
if (MAPTYPE .eq. 0) then
if(lonstart<0.)then
lonstart=lonstart+360.*gdsdegr
end if
if(lonlast<0.)then
lonlast=lonlast+360.*gdsdegr
end if
end if
! Jili Dong add support for regular lat lon (2019/03/22) end

else if(numDims==2)then
Status=nf90_get_var(ncid3d,varid,dummy)
if(maxval(abs(dummy))<2.0*pi)convert_rad_to_deg=.true.
Expand Down

0 comments on commit 2eb40f2

Please sign in to comment.