From 8614b58ebef324bebc0f62f53fe2d2e031501c98 Mon Sep 17 00:00:00 2001 From: Dougie Squire <42455466+dougiesquire@users.noreply.github.com> Date: Fri, 23 Aug 2024 11:54:06 +1000 Subject: [PATCH] Apply suggestions from code review Co-authored-by: Aidan Heerdegen --- src/access/accesscm_coupler/mom_oasis3_interface.F90 | 2 +- src/access/accesscm_coupler/ocean_solo.F90 | 2 +- src/mom5/ocean_bgc/ocean_generic_tracer.F90 | 1 - 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/access/accesscm_coupler/mom_oasis3_interface.F90 b/src/access/accesscm_coupler/mom_oasis3_interface.F90 index 9816ce0b6..06dccc794 100644 --- a/src/access/accesscm_coupler/mom_oasis3_interface.F90 +++ b/src/access/accesscm_coupler/mom_oasis3_interface.F90 @@ -737,7 +737,7 @@ subroutine from_coupler(step,Ocean_sfc,Ice_ocean_boundary, Atm_fields, Time) case('co2_io') ! Ice_ocean_boundary%co2(iisc:iiec,jjsc:jjec) = vwork(iisc:iiec,jjsc:jjec) ! Set the pcair field in the Atm_fields coupler_bc_type "co2_flux" boundary condition, - ! converting from from [ppmv] to [mol/mol] + ! converting from [ppmv] to [mol/mol] call set_coupler_type_data(vwork, "co2_flux", ind_pcair, Atm_fields, & scale_factor=1.e-6, idim=(/iisc,iisc,iiec,iiec/), jdim=(/jjsc,jjsc,jjec,jjec/)) case('wnd_io') diff --git a/src/access/accesscm_coupler/ocean_solo.F90 b/src/access/accesscm_coupler/ocean_solo.F90 index 4397e0567..0fd42996a 100644 --- a/src/access/accesscm_coupler/ocean_solo.F90 +++ b/src/access/accesscm_coupler/ocean_solo.F90 @@ -536,7 +536,7 @@ subroutine ocean_solo_restart(Time_run, Time_res, time_stamp) end subroutine ocean_solo_restart !==================================================================== -! get forcing data from data_overide +! get forcing data from data_override subroutine ice_ocn_bnd_from_data(x, Time_next) type (ice_ocean_boundary_type) :: x diff --git a/src/mom5/ocean_bgc/ocean_generic_tracer.F90 b/src/mom5/ocean_bgc/ocean_generic_tracer.F90 index 8d4625238..e4cf03afa 100644 --- a/src/mom5/ocean_bgc/ocean_generic_tracer.F90 +++ b/src/mom5/ocean_bgc/ocean_generic_tracer.F90 @@ -342,7 +342,6 @@ subroutine ocean_generic_sbc(Ice_ocean_boundary_fluxes,Disd,Djsd, T_prog, runoff ! with MOM6. Note this means that the generic_?_update_from_coupler method is no longer ! called here. Instead this will be called later in ocean_generic_sbc_adjust when flux ! adjustments are available - ! call generic_tracer_coupler_get(Ice_ocean_boundary_fluxes) call generic_tracer_coupler_accumulate(Ice_ocean_boundary_fluxes, 1.) ! dts: Is this still needed here, since this is now also done in ocean_generic_sbc_adjust?