Undo consistency check in INV_TRANS

This check was failing when "--vordiv --uvders" was enabled. There may
be a case in the IFS when we pass a PGPUV array with more wind elements
than required to INV_TRANS. This is certainly the case in the benchmark
program, although I think that's just because the code is wrong. The
--vordiv option doesn't enable grid point vorticity and divergence, as
one would expect from the way the PGPUV array is sized. It just enables
transforming of vorticity and divergence to U and V.

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

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