map wind stress atm->ocn with patch interpolation

Author: kieranricardo

mediator/esmFldsExchange_access_mod.F90

@@ -508,12 +508,12 @@ subroutine esmFldsExchange_access_init(gcomp, phase, rc)
       ! momentum transfer
       call addmap_from(compice, 'Fioi_taux', compocn, mapfcopy, 'unset', 'unset')
       call addmrg_to(compocn, 'Foxx_taux', mrg_from=compice, mrg_fld='Fioi_taux', mrg_type='merge', mrg_fracname='ifrac')
-      call addmap_from(compatm, 'Faxa_taux', compocn, mapconsf, 'one', 'unset')
+      call addmap_from(compatm, 'Faxa_taux', compocn, mappatch, 'one', 'unset')
       call addmrg_to(compocn, 'Foxx_taux', mrg_from=compatm, mrg_fld='Faxa_taux', mrg_type='merge', mrg_fracname='ofrac')
 
       call addmap_from(compice, 'Fioi_tauy', compocn, mapfcopy, 'unset', 'unset')
       call addmrg_to(compocn, 'Foxx_tauy', mrg_from=compice, mrg_fld='Fioi_tauy', mrg_type='merge', mrg_fracname='ifrac')
-      call addmap_from(compatm, 'Faxa_tauy', compocn, mapconsf, 'one', 'unset')
+      call addmap_from(compatm, 'Faxa_tauy', compocn, mappatch, 'one', 'unset')
       call addmrg_to(compocn, 'Foxx_tauy', mrg_from=compatm, mrg_fld='Faxa_tauy', mrg_type='merge', mrg_fracname='ofrac')
 
       !=====================================================================