diff --git a/config_src/infra/FMS1/MOM_cpu_clock_infra.F90 b/config_src/infra/FMS1/MOM_cpu_clock_infra.F90 index 62c21e5772..0c42c577b4 100644 --- a/config_src/infra/FMS1/MOM_cpu_clock_infra.F90 +++ b/config_src/infra/FMS1/MOM_cpu_clock_infra.F90 @@ -85,8 +85,13 @@ integer function cpu_clock_id(name, sync, grain) integer :: clock_flags clock_flags = clock_flag_default - if (present(sync)) & - clock_flags = ibset(clock_flags, 0) + if (present(sync)) then + if (sync) then + clock_flags = ibset(clock_flags, 0) + else + clock_flags = ibclr(clock_flags, 0) + endif + endif cpu_clock_id = mpp_clock_id(name, flags=clock_flags, grain=grain) end function cpu_clock_id diff --git a/config_src/infra/FMS2/MOM_cpu_clock_infra.F90 b/config_src/infra/FMS2/MOM_cpu_clock_infra.F90 index 62c21e5772..0c42c577b4 100644 --- a/config_src/infra/FMS2/MOM_cpu_clock_infra.F90 +++ b/config_src/infra/FMS2/MOM_cpu_clock_infra.F90 @@ -85,8 +85,13 @@ integer function cpu_clock_id(name, sync, grain) integer :: clock_flags clock_flags = clock_flag_default - if (present(sync)) & - clock_flags = ibset(clock_flags, 0) + if (present(sync)) then + if (sync) then + clock_flags = ibset(clock_flags, 0) + else + clock_flags = ibclr(clock_flags, 0) + endif + endif cpu_clock_id = mpp_clock_id(name, flags=clock_flags, grain=grain) end function cpu_clock_id