Finish I/O conversion

Tests now use the create/delete_file() functions for scratch files. There are still a few wayward operations happening both within and outside of the tests which need to be handled.
marshallward · Feb 22, 2022 · 1e5ef39 · 1e5ef39
1 parent b774041
commit 1e5ef39
Show file tree

Hide file tree

Showing 2 changed files with 171 additions and 215 deletions.
diff --git a/config_src/drivers/new_unit/MOM_new_unit_tests.F90 b/config_src/drivers/new_unit/MOM_new_unit_tests.F90
@@ -314,9 +314,6 @@ program MOM_unit_tests
 call run_unit_test(test_read_param_real_type_err, fatal=.true.)
 
 print '(/a)', "=== call test_read_param_real_array"
-open(newunit=param_unit, file=param_filename)
-write(param_unit, '(a)') sample_param_name // ' = 1., 2., 3.'
-close(param_unit)
 call run_unit_test(test_read_param_real_array)
 
 print '(/a)', "=== call test_read_param_real_array_missing"
@@ -329,9 +326,6 @@ program MOM_unit_tests
 call run_unit_test(test_read_param_real_array_type_err, fatal=.true.)
 
 print '(/a)', "=== call test_read_param_real_logical"
-open(newunit=param_unit, file=param_filename)
-write(param_unit, '(a)') sample_param_name // ' = True'
-close(param_unit)
 call run_unit_test(test_read_param_logical)
 
 print '(/a)', "=== call test_read_param_logical_missing"