Merge branch 'main' into develop

* main: Bump version to 1.5.1 Fix precision of PGW argument in gpu/TRANS_INQ
ecmwf-ifs · Dec 19, 2024 · a0f1455 · a0f1455
2 parents 5a0a34e + 163ae8e
commit a0f1455
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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