1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

...
! example of code for domestic withdrawal:

    ! ---------------------------------------------------------------------
    ! to rof: domestic withdrawal flux from land (withdrawal from rivers)
    ! ---------------------------------------------------------------------
    if (phase == 'advertise') then
       call addfld(fldListFr(complnd)%flds, 'Flrl_dom_withd')
       call addfld(fldListTo(comprof)%flds, 'Flrl_dom_withd')
    else
       if ( fldchk(is_local%wrap%FBImp(complnd, complnd), 'Flrl_dom_withd', rc=rc) .and. &
            fldchk(is_local%wrap%FBExp(comprof)         , 'Flrl_dom_withd', rc=rc)) then
          call addmap(fldListFr(complnd)%flds, 'Flrl_dom_withd', comprof, mapconsf, 'lfrac', lnd2rof_map)
          call addmrg(fldListTo(comprof)%flds, 'Flrl_dom_withd', &
               mrg_from=complnd, mrg_fld='Flrl_dom_withd', mrg_type='copy_with_weights', mrg_fracname='lfrac')
       end if
    end if
...