7 implicit none ;
private
9 public :: aof_set_coupler_flux
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)
19 character(len=*),
intent(in) :: name
20 character(len=*),
intent(in) :: flux_type
21 character(len=*),
intent(in) :: implementation
22 integer,
optional,
intent(in) :: atm_tr_index
23 real,
dimension(:),
optional,
intent(in) :: param
24 logical,
dimension(:),
optional,
intent(in) :: flag
25 real,
optional,
intent(in) :: mol_wt
26 character(len=*),
optional,
intent(in) :: ice_restart_file
27 character(len=*),
optional,
intent(in) :: ocean_restart_file
28 character(len=*),
optional,
intent(in) :: units
29 character(len=*),
optional,
intent(in) :: caller
30 integer,
optional,
intent(in) :: verbosity
34 integer :: coupler_index
37 end function aof_set_coupler_flux