From f3db775726f8f3222b9a8e3f704d8a77fdf311dd Mon Sep 17 00:00:00 2001 From: James Edwards Date: Fri, 15 Sep 2023 13:16:41 -0600 Subject: [PATCH] add new fields to exchange. --- mediator/esmFldsExchange_cesm_mod.F90 | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/mediator/esmFldsExchange_cesm_mod.F90 b/mediator/esmFldsExchange_cesm_mod.F90 index a2c4fe435..7c978d70d 100644 --- a/mediator/esmFldsExchange_cesm_mod.F90 +++ b/mediator/esmFldsExchange_cesm_mod.F90 @@ -1999,6 +1999,31 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc) call addfld_to(compocn, 'Foxx_hcond') call addfld_to(compocn, 'Foxx_hrofl') call addfld_to(compocn, 'Foxx_hrofi') + + call addfld_from(compatm, 'Faxa_hrain') + call addfld_from(compatm, 'Faxa_hsnow') + call addfld_from(compatm, 'Faxa_hevap') + else + if ( fldchk(is_local%wrap%FBImp(compatm,compatm), 'Faxa_hrain', rc=rc) .and. & + fldchk(is_local%wrap%FBExp(compocn) , 'Faxa_hrain', rc=rc)) then + call addmap_from(compatm, 'Faxa_hrain', compocn, mapconsf, 'one', atm2ocn_map) + call addmrg_to(compocn, 'Faxa_hrain', & + mrg_from=compatm, mrg_fld='Faxa_hrain', mrg_type='copy') + end if + if ( fldchk(is_local%wrap%FBImp(compatm,compatm), 'Faxa_hsnow', rc=rc) .and. & + + fldchk(is_local%wrap%FBExp(compocn) , 'Faxa_hsnow', rc=rc)) then + call addmap_from(compatm, 'Faxa_hsnow', compocn, mapconsf, 'one', atm2ocn_map) + call addmrg_to(compocn, 'Faxa_hsnow', & + mrg_from=compatm, mrg_fld='Faxa_hsnow', mrg_type='copy') + end if + if ( fldchk(is_local%wrap%FBImp(compatm,compatm), 'Faxa_hevap', rc=rc) .and. & + + fldchk(is_local%wrap%FBExp(compocn) , 'Faxa_hevap', rc=rc)) then + call addmap_from(compatm, 'Faxa_hevap', compocn, mapconsf, 'one', atm2ocn_map) + call addmrg_to(compocn, 'Faxa_hevap', & + mrg_from=compatm, mrg_fld='Faxa_hevap', mrg_type='copy') + end if end if ! ---------------------------------------------------------------------