Include Sl_soilw field exchange for CAM CARMA aerosol configurations (#…

…268)

New field exchanges needed for CESM/CAM CARMA

mediator/esmFldsExchange_cesm_mod.F90

@@ -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
@@ -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
@@ -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

mediator/fd_cesm.yaml

@@ -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:
       #
@@ -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