diff --git a/VERSION b/VERSION
index bc80560fa..26ca59460 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.5.0
+1.5.1
diff --git a/src/trans/cpu/external/trans_inq.F90 b/src/trans/cpu/external/trans_inq.F90
index a67a69de2..ea0a91886 100644
--- a/src/trans/cpu/external/trans_inq.F90
+++ b/src/trans/cpu/external/trans_inq.F90
@@ -419,7 +419,7 @@ SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
   IF(UBOUND(PGW,1) < R%NDGL) THEN
     CALL ABORT_TRANS('TRANS_INQ: PGW TOO SMALL')
   ELSE
-    PGW(1:R%NDGL) = F%RW
+    PGW(1:R%NDGL) = REAL(F%RW,JPRB)
   ENDIF
 ENDIF
 
diff --git a/src/trans/gpu/external/trans_inq.F90 b/src/trans/gpu/external/trans_inq.F90
index fb540d949..39be06d2b 100755
--- a/src/trans/gpu/external/trans_inq.F90
+++ b/src/trans/gpu/external/trans_inq.F90
@@ -176,7 +176,7 @@ SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
 INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNMENG(:)
 
 REAL(KIND=JPRD)    ,OPTIONAL, INTENT(OUT) :: PMU(:)
-REAL(KIND=JPRD)    ,OPTIONAL, INTENT(OUT) :: PGW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PGW(:)
 REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRPNM(:,:)
 INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLEI3
 INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPOLEGL
@@ -417,7 +417,7 @@ SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
   IF(UBOUND(PGW,1) < R%NDGL) THEN
     CALL ABORT_TRANS('TRANS_INQ: PGW TOO SMALL')
   ELSE
-    PGW(1:R%NDGL) = F%RW
+    PGW(1:R%NDGL) = REAL(F%RW,JPRB)
   ENDIF
 ENDIF