diff --git a/src/module_MEDIATOR.F90 b/src/module_MEDIATOR.F90 index 43a5fed8..e1d1d918 100644 --- a/src/module_MEDIATOR.F90 +++ b/src/module_MEDIATOR.F90 @@ -5455,7 +5455,7 @@ subroutine MedPhase_prep_ocn(gcomp, rc) !--- merges to ocn !--------------------------------------- - if (is_local%wrap%i2a_active) then + if ((is_local%wrap%i2o_active) .and. (is_local%wrap%a2o_active))then ! atm and ice fraction ! atmwgt and icewgt are the "normal" fractions