filter out grid starting with KA or LA

2018-04-20 14:46:15 +02:00 · 2018-04-20 14:46:15 +02:00 · 504fbf766a
parent e5a9ffb91e
commit 504fbf766a
1 changed files with 1 additions and 1 deletions
--- 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