From c2c977976cea8162d30c37a6f4d96b76f4610e17 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 27 Sep 2018 15:30:20 -0400 Subject: [PATCH] Correct a typo: Yukon territory is YT, not VT. --- lib/77bit/packjt77.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index 24d41ec04..b1dd3be37 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -236,7 +236,7 @@ subroutine unpack77(c77,msg,unpk77_success) "NM ","NY ","NC ","ND ","OH ","OK ","OR ","PA ","RI ","SC ", & "SD ","TN ","TX ","UT ","VT ","VA ","WA ","WV ","WI ","WY ", & "NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", & - "LB ","NU ","VT ","PEI","DC "/ + "LB ","NU ","YT ","PEI","DC "/ unpk77_success=.true. @@ -990,7 +990,7 @@ subroutine pack77_3(nwords,w,i3,n3,c77) "NM ","NY ","NC ","ND ","OH ","OK ","OR ","PA ","RI ","SC ", & "SD ","TN ","TX ","UT ","VT ","VA ","WA ","WV ","WI ","WY ", & "NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", & - "LB ","NU ","VT ","PEI","DC "/ + "LB ","NU ","YT ","PEI","DC "/ if(nwords.eq.4 .or. nwords.eq.5 .or. nwords.eq.6) then i1=1