move namelist specification to be above functional statements to fix …

…GNU compilation
NOAA-GFDL · Apr 22, 2020 · 756f1f7 · 756f1f7
1 parent fdfe171
commit 756f1f7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tools/test_cases.F90 b/tools/test_cases.F90
@@ -6811,13 +6811,14 @@ subroutine read_namelist_test_case_nml(nml_filename)
 
 #include<file_version.h>
 
+        namelist /test_case_nml/test_case, bubble_do, alpha, nsolitons, soliton_Umax, soliton_size
+
         unit = stdlog()
 
         ! Make alpha = 0 the default:
         alpha = 0.
         bubble_do = .false.
         test_case = 11   ! (USGS terrain)
-        namelist /test_case_nml/test_case, bubble_do, alpha, nsolitons, soliton_Umax, soliton_size
 
 #ifdef INTERNAL_FILE_NML
         ! Read Test_Case namelist