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