Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Include Sl_soilw field exchange for CAM CARMA aerosol configurations #268

Merged
merged 1 commit into from
Feb 4, 2022
Merged

Include Sl_soilw field exchange for CAM CARMA aerosol configurations #268

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 14 additions & 6 deletions mediator/esmFldsExchange_cesm_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -73,7 +73,7 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc)
use med_methods_mod , only : fldchk => med_methods_FB_FldChk
use med_internalstate_mod , only : InternalState, logunit, mastertask
use med_internalstate_mod , only : compmed, compatm, complnd, compocn
use med_internalstate_mod , only : compice, comprof, compwav, compglc, ncomps
use med_internalstate_mod , only : compice, comprof, compwav, compglc, ncomps
use med_internalstate_mod , only : mapbilnr, mapconsf, mapconsd, mappatch, mappatch_uv3d, mapbilnr_nstod
use med_internalstate_mod , only : mapfcopy, mapnstod, mapnstod_consd, mapnstod_consf
use med_internalstate_mod , only : coupling_mode
Expand Down Expand Up @@ -1451,6 +1451,19 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc)
end if
end if
! ---------------------------------------------------------------------
! CARMA fields (volumetric soil water)
!-----------------------------------------------------------------------------
if (phase == 'advertise') then
call addfld(fldListFr(complnd)%flds, 'Sl_soilw')
call addfld(fldListTo(compatm)%flds, 'Sl_soilw')
else
if ( fldchk(is_local%wrap%FBexp(compatm) , 'Sl_soilw', rc=rc) .and. &
fldchk(is_local%wrap%FBImp(complnd,complnd ), 'Sl_soilw', rc=rc)) then
call addmap(fldListFr(complnd)%flds, 'Sl_soilw', compatm, mapconsf, 'lfrin', lnd2atm_map)
call addmrg(fldListTo(compatm)%flds, 'Sl_soilw', mrg_from=complnd, mrg_fld='Sl_soilw', mrg_type='copy')
end if
end if
! ---------------------------------------------------------------------
! to atm: dust fluxes from land (4 sizes)
! ---------------------------------------------------------------------
if (phase == 'advertise') then
Expand Down Expand Up @@ -3188,11 +3201,6 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc)
end if
endif

!-----------------------------------------------------------------------------
! CARMA fields (volumetric soil water)
!-----------------------------------------------------------------------------
! TODO (mvertens, 2021-07-25): add this

end subroutine esmFldsExchange_cesm

end module esmFldsExchange_cesm_mod
5 changes: 4 additions & 1 deletion mediator/fd_cesm.yaml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,6 @@
field_dictionary:
version_number: 0.0.0
institution: National ESPC, CSC & MCL Working Groups
source: automatically generated by the NUOPC Layer
description: Community-based dictionary for shared coupling fields
entries:
#
Expand Down Expand Up @@ -155,6 +154,10 @@
canonical_units: m
description: land export
#
- standard_name: Sl_soilw
canonical_units: m3/m3
description: land export
#
- standard_name: Sl_t
canonical_units: K
description: land export
Expand Down