atmos_ocean_fluxes.F90

1! This file is part of MOM6, the Modular Ocean Model version 6.
2! See the LICENSE file for licensing information.
3! SPDX-License-Identifier: Apache-2.0
4
5!> A dummy version of atmos_ocean_fluxes_mod module for
6!! use when the vastly larger FMS package is not needed.
8
9implicit none ; private
10
12
13contains
14
15!> This subroutine duplicates an interface used by the FMS coupler, but only
16!! returns a value of -1. None of the arguments are used for anything.
17function aof_set_coupler_flux(name, flux_type, implementation, atm_tr_index, &
18 param, flag, mol_wt, ice_restart_file, ocean_restart_file, &
19 units, caller, verbosity) result (coupler_index)
20
21 character(len=*), intent(in) :: name !< An unused argument
22 character(len=*), intent(in) :: flux_type !< An unused argument
23 character(len=*), intent(in) :: implementation !< An unused argument
24 integer, optional, intent(in) :: atm_tr_index !< An unused argument
25 real, dimension(:), optional, intent(in) :: param !< An unused argument that would be used to
26 !! pass parameters for flux parameterizations
27 !! in other contexts [various]
28 logical, dimension(:), optional, intent(in) :: flag !< An unused argument
29 real, optional, intent(in) :: mol_wt !< An unused argument that would usually be
30 !! the tracer's molecular weight [g mol-1]
31 character(len=*), optional, intent(in) :: ice_restart_file !< An unused argument
32 character(len=*), optional, intent(in) :: ocean_restart_file !< An unused argument
33 character(len=*), optional, intent(in) :: units !< An unused argument
34 character(len=*), optional, intent(in) :: caller !< An unused argument
35 integer, optional, intent(in) :: verbosity !< An unused argument
36
37 ! None of these arguments are used for anything.
38
39 integer :: coupler_index
40 coupler_index = -1
41
42end function aof_set_coupler_flux
43