MOM6
atmos_ocean_fluxes.F90
Go to the documentation of this file.
1 !> A dummy version of atmos_ocean_fluxes_mod module for
2 !! use when the vastly larger FMS package is not needed.
4 
5 ! This file is part of MOM6. See LICENSE.md for the license.
6 
7 implicit none ; private
8 
9 public :: aof_set_coupler_flux
10 
11 contains
12 
13 !> This subroutine duplicates an interface used by the FMS coupler, but only
14 !! returns a value of -1. None of the arguments are used for anything.
15 function aof_set_coupler_flux(name, flux_type, implementation, atm_tr_index, &
16  param, flag, mol_wt, ice_restart_file, ocean_restart_file, &
17  units, caller, verbosity) result (coupler_index)
18 
19  character(len=*), intent(in) :: name !< An unused argument
20  character(len=*), intent(in) :: flux_type !< An unused argument
21  character(len=*), intent(in) :: implementation !< An unused argument
22  integer, optional, intent(in) :: atm_tr_index !< An unused argument
23  real, dimension(:), optional, intent(in) :: param !< An unused argument
24  logical, dimension(:), optional, intent(in) :: flag !< An unused argument
25  real, optional, intent(in) :: mol_wt !< An unused argument
26  character(len=*), optional, intent(in) :: ice_restart_file !< An unused argument
27  character(len=*), optional, intent(in) :: ocean_restart_file !< An unused argument
28  character(len=*), optional, intent(in) :: units !< An unused argument
29  character(len=*), optional, intent(in) :: caller !< An unused argument
30  integer, optional, intent(in) :: verbosity !< An unused argument
31 
32  ! None of these arguments are used for anything.
33 
34  integer :: coupler_index
35  coupler_index = -1
36 
37 end function aof_set_coupler_flux
38 
39 end module atmos_ocean_fluxes_mod
atmos_ocean_fluxes_mod
A dummy version of atmos_ocean_fluxes_mod module for use when the vastly larger FMS package is not ne...
Definition: atmos_ocean_fluxes.F90:3
atmos_ocean_fluxes_mod::aof_set_coupler_flux
integer function, public aof_set_coupler_flux(name, flux_type, implementation, atm_tr_index, param, flag, mol_wt, ice_restart_file, ocean_restart_file, units, caller, verbosity)
This subroutine duplicates an interface used by the FMS coupler, but only returns a value of -1....
Definition: atmos_ocean_fluxes.F90:18