From 8309884aa4ef46caa672b3e38fd0b6a9bc18c199 Mon Sep 17 00:00:00 2001 From: Denise Worthen Date: Wed, 13 Mar 2024 18:28:59 -0400 Subject: [PATCH] modify dstmask for lnd->atm in UFS --- mediator/med_map_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mediator/med_map_mod.F90 b/mediator/med_map_mod.F90 index c20fe4bd..3d888bcf 100644 --- a/mediator/med_map_mod.F90 +++ b/mediator/med_map_mod.F90 @@ -415,7 +415,7 @@ subroutine med_map_routehandles_initfrom_field(n1, n2, fldsrc, flddst, mapindex, end if if (n1 == complnd .and. n2 == compatm) then srcMaskValue = ispval_mask - dstMaskValue = 0 + dstMaskValue = ispval_mask end if end if if (coupling_mode(1:4) == 'hafs') then