modify dstmask for lnd->atm in UFS

ESCOMP · Mar 13, 2024 · 8309884 · 8309884
1 parent 45d63c4
commit 8309884
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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