diff --git a/src/module_MEDIATOR.F90 b/src/module_MEDIATOR.F90 index be02e465..87825f78 100644 --- a/src/module_MEDIATOR.F90 +++ b/src/module_MEDIATOR.F90 @@ -5533,6 +5533,16 @@ subroutine MedPhase_prep_ocn(gcomp, rc) ! if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, & ! line=__LINE__, file=__FILE__)) return ! bail out + !------------- + ! field_for_ocn = field_from_ice * ice_fraction + !------------- + + call fieldBundle_FieldMerge(is_local%wrap%FBforOcn, 'mean_salt_rate', & + is_local%wrap%FBIce_o , 'mean_salt_rate', icewgt, & + rc=rc) + if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, & + line=__LINE__, file=__FILE__)) return ! bail out + !------------- ! field_for_ocn = field_from_atm * (1-ice_fraction) + field_from_ice * (ice_fraction) !-------------