From bac594cbdf4c09af6460e2d4d9a685587673086c Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Wed, 25 Nov 2020 14:39:00 -0500 Subject: [PATCH] Use flush function --- config_src/solo_driver/MOM_driver.F90 | 2 +- src/diagnostics/MOM_PointAccel.F90 | 4 ++-- src/framework/MOM_domains.F90 | 2 +- src/framework/MOM_write_cputime.F90 | 4 ++-- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/config_src/solo_driver/MOM_driver.F90 b/config_src/solo_driver/MOM_driver.F90 index ba52d9c02a..da517b6e9d 100644 --- a/config_src/solo_driver/MOM_driver.F90 +++ b/config_src/solo_driver/MOM_driver.F90 @@ -257,7 +257,7 @@ program MOM_main !$ call omp_set_num_threads(ocean_nthreads) !$OMP PARALLEL !$ write(6,*) "ocean_solo OMPthreading ", fms_affinity_get(), omp_get_thread_num(), omp_get_num_threads() -!$ call flush(6) +!$ flush(6) !$OMP END PARALLEL ! Read ocean_solo restart, which can override settings from the namelist. diff --git a/src/diagnostics/MOM_PointAccel.F90 b/src/diagnostics/MOM_PointAccel.F90 index f6326b06fa..091f88fac2 100644 --- a/src/diagnostics/MOM_PointAccel.F90 +++ b/src/diagnostics/MOM_PointAccel.F90 @@ -390,7 +390,7 @@ subroutine write_u_accel(I, j, um, hin, ADp, CDp, dt_in_T, G, GV, US, CS, vel_rp write(file,'(2/)') - call flush(file) + flush(file) endif end subroutine write_u_accel @@ -722,7 +722,7 @@ subroutine write_v_accel(i, J, vm, hin, ADp, CDp, dt_in_T, G, GV, US, CS, vel_rp write(file,'(2/)') - call flush(file) + flush(file) endif end subroutine write_v_accel diff --git a/src/framework/MOM_domains.F90 b/src/framework/MOM_domains.F90 index 67989f37da..46cc9c526a 100644 --- a/src/framework/MOM_domains.F90 +++ b/src/framework/MOM_domains.F90 @@ -1309,7 +1309,7 @@ subroutine MOM_domains_init(MOM_dom, param_file, symmetric, static_memory, & !$ call fms_affinity_set('OCEAN', ocean_omp_hyper_thread, ocean_nthreads) !$ call omp_set_num_threads(ocean_nthreads) !$ write(6,*) "MOM_domains_mod OMPthreading ", fms_affinity_get(), omp_get_thread_num(), omp_get_num_threads() -!$ call flush(6) +!$ flush(6) !$ endif #endif call log_param(param_file, mdl, "!SYMMETRIC_MEMORY_", MOM_dom%symmetric, & diff --git a/src/framework/MOM_write_cputime.F90 b/src/framework/MOM_write_cputime.F90 index 2c1cb3378a..4ef00707fe 100644 --- a/src/framework/MOM_write_cputime.F90 +++ b/src/framework/MOM_write_cputime.F90 @@ -110,7 +110,7 @@ subroutine MOM_write_cputime_end(CS) ! Flush and close the output files. if (is_root_pe() .and. CS%fileCPU_ascii > 0) then - call flush(CS%fileCPU_ascii) + flush(CS%fileCPU_ascii) call close_file(CS%fileCPU_ascii) endif @@ -200,7 +200,7 @@ subroutine write_cputime(day, n, CS, nmax, call_end) reday, n, (CS%cputime2 / real(CLOCKS_PER_SEC)), & d_cputime / real(CLOCKS_PER_SEC) - call flush(CS%fileCPU_ascii) + flush(CS%fileCPU_ascii) endif CS%previous_calls = CS%previous_calls + 1