small updates to test, needed for gcc

NOAA-GFDL · Jul 22, 2024 · 85306b6 · 85306b6
1 parent 12a421a
commit 85306b6
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/test_fms/data_override/test_data_override_ongrid.F90 b/test_fms/data_override/test_data_override_ongrid.F90
@@ -454,15 +454,21 @@ subroutine generate_weight_input_file()
 subroutine create_weight_file()
   type(FmsNetcdfFile_t) :: fileobj
   real(kind=r8_kind), allocatable :: vdata(:,:,:)
+  character(len=5) :: dim_names(3)
 
+  dim_names(1) = "nlon"
+  dim_names(2) = "nlat"
   if (open_file(fileobj, "INPUT/remap_file.nc", "overwrite")) then
     call register_axis(fileobj, "nlon", nlon)
     call register_axis(fileobj, "nlat", nlat)
     call register_axis(fileobj, "three", 3)
     call register_axis(fileobj, "four", 4)
 
-    call register_field(fileobj, "index", "int", (/"nlon", "nlat", "three"/))
-    call register_field(fileobj, "weight", "double", (/"nlon", "nlat", "four"/))
+    dim_names(3) = "three"
+    call register_field(fileobj, "index", "int", dim_names)
+
+    dim_names(3) = "four"
+    call register_field(fileobj, "weight", "double", dim_names)
 
     allocate(vdata(nlon,nlat,3))
     vdata(1,:,1) = 1