From b0183ea81b279a1afd81fbc2121244f5ad3fd9ee Mon Sep 17 00:00:00 2001 From: "denise.worthen" Date: Wed, 21 Aug 2019 16:46:07 +0000 Subject: [PATCH] Weights mean_salt_rate by icewgt --- src/module_MEDIATOR.F90 | 10 ++++++++++ 1 file changed, 10 insertions(+) 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) !-------------