diff --git a/src/trans/cpu/external/inv_trans.F90 b/src/trans/cpu/external/inv_trans.F90
index 417675fb..7fc250fa 100644
--- a/src/trans/cpu/external/inv_trans.F90
+++ b/src/trans/cpu/external/inv_trans.F90
@@ -504,9 +504,9 @@ SUBROUTINE INV_TRANS(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
     WRITE(NOUT,*)'INV_TRANS:SECOND DIMENSION OF PGPUV /= IF_UV_G ',IUBOUND(2),IF_UV_G
     CALL ABORT_TRANS('INV_TRANS:SECOND DIMENSION OF PGPUV /= IF_UV_G ')
   ENDIF
-  IF(IUBOUND(3) /= IF_UV_PAR) THEN
-    WRITE(NOUT,*)'INV_TRANS:THIRD DIMENSION OF PGPUV /= IF_UV_PAR',IUBOUND(3),IF_UV_PAR
-    CALL ABORT_TRANS('INV_TRANS:THIRD DIMENSION OF PGPUV /= IF_UV_PAR')
+  IF(IUBOUND(3) < IF_UV_PAR) THEN
+    WRITE(NOUT,*)'INV_TRANS:THIRD DIMENSION OF PGPUV TOO SMALL',IUBOUND(3),IF_UV_PAR
+    CALL ABORT_TRANS('INV_TRANS:THIRD DIMENSION OF PGPUV TOO SMALL')
   ENDIF
   IF(IUBOUND(4) /= NGPBLKS) THEN
     WRITE(NOUT,*)'INV_TRANS:FOURTH DIMENSION OF PGPUV /= NGPBLKS',IUBOUND(4),NGPBLKS
diff --git a/src/trans/gpu/external/inv_trans.F90 b/src/trans/gpu/external/inv_trans.F90
index d4af78c2..42564588 100755
--- a/src/trans/gpu/external/inv_trans.F90
+++ b/src/trans/gpu/external/inv_trans.F90
@@ -516,9 +516,9 @@ SUBROUTINE INV_TRANS(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
     WRITE(NOUT,*)'INV_TRANS:SECOND DIMENSION OF PGPUV /= IF_UV_G ',IUBOUND(2),IF_UV_G
     CALL ABORT_TRANS('INV_TRANS:SECOND DIMENSION OF PGPUV /= IF_UV_G ')
   ENDIF
-  IF(IUBOUND(3) /= IF_UV_PAR) THEN
-    WRITE(NOUT,*)'INV_TRANS:THIRD DIMENSION OF PGPUV /= IF_UV_PAR',IUBOUND(3),IF_UV_PAR
-    CALL ABORT_TRANS('INV_TRANS:THIRD DIMENSION OF PGPUV /= IF_UV_PAR')
+  IF(IUBOUND(3) < IF_UV_PAR) THEN
+    WRITE(NOUT,*)'INV_TRANS:THIRD DIMENSION OF PGPUV TOO SMALL',IUBOUND(3),IF_UV_PAR
+    CALL ABORT_TRANS('INV_TRANS:THIRD DIMENSION OF PGPUV TOO SMALL')
   ENDIF
   IF(IUBOUND(4) /= NGPBLKS) THEN
     WRITE(NOUT,*)'INV_TRANS:FOURTH DIMENSION OF PGPUV /= NGPBLKS',IUBOUND(4),NGPBLKS