fix machine variables

NOAA-EMC · Jul 2, 2024 · 2ea75fe · 2ea75fe
1 parent 166571d
commit 2ea75fe
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/sorc/ncep_post.fd/machine.f b/sorc/ncep_post.fd/machine.f
@@ -5,11 +5,11 @@ MODULE MACHINE_POST
       IMPLICIT NONE
       SAVE
 
-      integer kind_io4(:,:) & !< Array of 4-byte I/O variables ?
-      ,kind_io8(:,:) &      !< Array of 8-byte I/O variables ?
-      ,kind_phys(:,:) &     !< Array of physics variables ?
-      ,kind_rad(:,:) &      !< Array of radiation variables ?
-      ,kint_mpi(:,:)        !< Array of MPI variables ?
+      integer kind_io4 &    !< 4-byte I/O variables ?
+      ,kind_io8 &           !< 8-byte I/O variables ?
+      ,kind_phys &          !< Physics variables ?
+      ,kind_rad &           !< Radiation variables ?
+      ,kint_mpi             !< MPI variables ?
 
       parameter (kind_rad = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
       parameter (kind_phys = selected_real_kind(13,60)) ! the '60' maps to 64-bit real