From 504fbf766a50bec77df787de9aed5bd0ced16629 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Fri, 20 Apr 2018 14:46:15 +0200
Subject: [PATCH] filter out grid starting with KA or LA

---
 packjt.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packjt.f90 b/packjt.f90
index 35ad0c8..c23e685 100644
--- a/packjt.f90
+++ b/packjt.f90
@@ -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