Skip to content

Commit

Permalink
Merge pull request mom-ocean#857 from wrongkindofdoctor/user/jml/add_…
Browse files Browse the repository at this point in the history
…mol_wt_to_aof

User/jml/add mol wt to aof

Retested at https://gitlab.gfdl.noaa.gov/ogrp/MOM6/pipelines/5953
  • Loading branch information
adcroft authored Oct 5, 2018
2 parents 1205624 + 7575e39 commit c4d6dd0
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion config_src/solo_driver/atmos_ocean_fluxes.F90
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ module atmos_ocean_fluxes_mod
!> This subroutine duplicates an interface used by the FMS coupler, but only
!! returns a value of -1. None of the arguments are used for anything.
function aof_set_coupler_flux(name, flux_type, implementation, atm_tr_index, &
param, flag, ice_restart_file, ocean_restart_file, &
param, flag, mol_wt, ice_restart_file, ocean_restart_file, &
units, caller, verbosity) result (coupler_index)

character(len=*), intent(in) :: name !< An unused argument
Expand All @@ -22,6 +22,7 @@ function aof_set_coupler_flux(name, flux_type, implementation, atm_tr_index,
integer, optional, intent(in) :: atm_tr_index !< An unused argument
real, dimension(:), optional, intent(in) :: param !< An unused argument
logical, dimension(:), optional, intent(in) :: flag !< An unused argument
real, optional, intent(in) :: mol_wt !< An unused argument
character(len=*), optional, intent(in) :: ice_restart_file !< An unused argument
character(len=*), optional, intent(in) :: ocean_restart_file !< An unused argument
character(len=*), optional, intent(in) :: units !< An unused argument
Expand Down

0 comments on commit c4d6dd0

Please sign in to comment.