comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2024-11-23 21:08:36 -05:00
Code Issues Packages Projects Releases Wiki Activity

filter out grid starting with KA or LA

Browse Source
This commit is contained in:
Pavel Demin 2018-04-20 14:46:15 +02:00
parent e5a9ffb91e
commit 504fbf766a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packjt.f90
View File

@ -192,7 +192,7 @@ module packjt
dlat=mod(ng,180)-90
dlong=(ng/180)*2 - 180 + 2
call deg2grid(dlong,dlat,grid6)
msggrid=grid6(:4)
if(grid6(1:2).ne.'KA' .and. grid6(1:2).ne.'LA') msggrid=grid6(:4)
endif
return