fixed warnings in pionfput_mod.F90.in

jedwards4b · Jun 26, 2019 · 776e542 · 776e542
1 parent 8df467e
commit 776e542
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/src/flib/pionfput_mod.F90.in b/src/flib/pionfput_mod.F90.in
@@ -344,6 +344,7 @@ contains
   end function put_var_0d_{TYPE}
 
 
+! TYPE int,real,double
   integer function put_vara_internal_{TYPE} (ncid,varid,start,count, ival) result(ierr)
     integer, intent(in) :: ncid
     integer, intent(in) :: varid
@@ -451,7 +452,19 @@ contains
     character(C_CHAR), intent(out) :: cstr(:)
     integer :: clen, sd({DIMS})
     integer :: cinc
-    integer :: i, j, k, m, n, q
+    integer :: i, j
+#if {DIMS} >= 2
+    integer :: k
+#endif
+#if {DIMS} >= 3
+    integer :: m
+#endif
+#if {DIMS} >= 4
+    integer :: n
+#endif
+#if {DIMS} == 5
+    integer :: q
+#endif
 
     cstr = C_NULL_CHAR
     do i=1,{DIMS}