coupler_flux_ocean_to_ice and coupler_flux_ice_to_ocean have been defined and have been used to replace sections of coupler_main that calls _flux_ocean_toice and _flux_ice_toocean subroutines .
Subroutine coupler_flux_ice_to_ocean is called twice in _couplermain and contains the option to set _slow_ice_oceanpelist as the current pelist for the following reason: at the top of the outer loop, current pelist is set to _slow_ice_oceanpelist in coupler_flux_ocean_to_ice. Thus, the pelist is already set to the correct one when coupler_flux_ice_to_ocean is called immediately afterwords. However, the current pelist is not set to _slow_ice_oceanpelist when coupler_flux_ice_to_ocean is called at the bottom of the outer loop. The optional argument is not specified in the first call and is set in the second call.
Pending: all the "if(pe)" statements remain unchanged in _couplermain in case MPI parallelization details benefit the users.
In this PR,
coupler_flux_ocean_to_iceandcoupler_flux_ice_to_oceanhave been defined and have been used to replace sections of coupler_main that calls _flux_ocean_toice and _flux_ice_toocean subroutines .Subroutine
coupler_flux_ice_to_oceanis called twice in _couplermain and contains the option to set _slow_ice_oceanpelist as the current pelist for the following reason: at the top of the outer loop, current pelist is set to _slow_ice_oceanpelist incoupler_flux_ocean_to_ice. Thus, the pelist is already set to the correct one whencoupler_flux_ice_to_oceanis called immediately afterwords. However, the current pelist is not set to _slow_ice_oceanpelist whencoupler_flux_ice_to_oceanis called at the bottom of the outer loop. The optional argument is not specified in the first call and is set in the second call.Pending: all the "if(pe)" statements remain unchanged in _couplermain in case MPI parallelization details benefit the users.