Restricted double precision only to the new DBLLON and DBLLAT variables, to minimize impacts elsewhere.

Author: ukmo-kitstokes

model/src/ww3_ounf.F90

@@ -1002,9 +1002,8 @@ SUBROUTINE W3EXNC ( NX, NY, IX1, IXN, IY1, IYN, NSEA,             &
     REAL, PARAMETER            :: LOG2=LOG(2.)
 #endif
     !
-    !REAL,DIMENSION(:),  ALLOCATABLE    :: LON, LAT, FREQ
-    REAL,DIMENSION(:),  ALLOCATABLE    :: FREQ
-    DOUBLE PRECISION,DIMENSION(:),  ALLOCATABLE    :: LON, LAT
+    REAL,DIMENSION(:),  ALLOCATABLE    :: LON, LAT, FREQ
+    DOUBLE PRECISION,DIMENSION(:),  ALLOCATABLE    :: DBLLON, DBLLAT 
     REAL,DIMENSION(:,:),  ALLOCATABLE  :: LON2D, LAT2D, ANGLD2D
 #ifdef W3_RTD
     REAL,DIMENSION(:,:),  ALLOCATABLE  :: LON2DEQ, LAT2DEQ