data-raw/data-raw.R

In rogiersbart/RMODFLOW: Pre- and post-processing of MODFLOW files

rmfd_guide_shortcuts <- tibble::tribble(
  ~shortcut, ~name,
  "pval", "parameter_value_file",
  "nam", "name_file"
)
rmfd_supported_codes <- c("MODFLOW-2005", "MODFLOW-OWHM", "MODFLOW-NWT",
                          "MODFLOW-LGR", "MODFLOW-CFP")
rmfd_supported_packages <- tibble::tribble(
  ~ftype,   ~rmf,
   'HOB',  'hob',
  'PVAL',  'pval',
   'DIS',  'dis',
  'ZONE',  'zon', 
  'MULT',  'mlt',
  'BAS6',  'bas',
  'HUF2',  'huf',
    'OC',   'oc',
   'WEL',  'wel',
   'GHB',  'ghb',
   'PCG',  'pcg',
  'KDEP', 'kdep',
   'LPF',  'lpf',
   'RCH',  'rch',
   'CHD',  'chd',
  'BCF6',  'bcf', 
  'HFB6',  'hfb',
   'RIV',  'riv',
   'DRN',  'drn',
   'EVT',  'evt',
   'SIP',  'sip',
   'DE4',  'de4',
   'NWT',  'nwt',
   'UPW',  'upw',
  'LVDA', 'lvda',
   'GMG',  'gmg',
  'LMT6',  'lmt'
)
rmfd_supported_output <- tibble::tribble(
                   ~type,  ~rmf,
                  'HEAD', 'hed',
              'DRAWDOWN', 'ddn',
   'CELL-BY-CELL BUDGET', 'cbc',
     'VOLUMETRIC BUDGET', 'bud',
       'HOB OUTPUT FILE', 'hpr'
)
rmfd_supported_length_units <- tibble::tribble(
     ~unit,        ~conv,
      "km",         1000,
       "m",            1,
      "dm",          0.1,
      "cm",         0.01,
      "mm",        0.001,
     "kmi",         1852,
      "in",       0.0254,
      "ft",       0.3048,
      "yd",       0.9144,
      "mi",     1609.344,
    "fath",     1.828804,
      "ch",     20.11684,
    "link",    0.2011684,
   "us-in",   0.02540005,
   "us-ft",    0.3048006,
   "us-yd",    0.9144018,
   "us-ch", 20.116840234,
   "us-mi",     1609.347,
  "ind-yd",    0.9143988,
  "ind-ft",    0.3047996
)
rmfd_state_headers <-  c('HEAD', # only used to check precision
                         'DRAWDOWN',
                         'SUBSIDENCE',
                         'COMPACTION',
                         'CRITICAL HEAD',
                         'HEAD IN HGU',
                         'NDSYS COMPACTION',
                         'Z DISPLACEMENT',
                         'D CRITICAL HEAD',
                         'LAYER COMPACTION',
                         'DSYS COMPACTION',
                         'ND CRITICAL HEAD',
                         'LAYER COMPACTION',
                         'SYSTM COMPACTION',
                         'PRECONSOL STRESS',
                         'CHANGE IN PCSTRS',
                         'EFFECTIVE STRESS',
                         'CHANGE IN EFF-ST',
                         'VOID RATIO',
                         'THICKNESS',
                         'CENTER ELEVATION',
                         'GEOSTATIC STRESS',
                         'CHANGE IN G-STRS')
rmfd_cbc_headers <- c('CONSTANT HEAD', # only used to check precision
                      'STORAGE',
                      'FLOW RIGHT FACE',
                      'FLOW FRONT FACE',
                      'FLOW LOWER FACE',
                      'WELLS',
                      'RIVER LEAKAGE',
                      'RECHARGE',
                      'DRAINS',
                      'ET',
                      'HEAD DEP BOUNDS',
                      'SWIADDTOFLF',
                      'SWIADDTOFRF',
                      'SWIADDTOFFF',
                      'SWIADDTOCH',
                      'SPECIFIED FLOWS',
                      'RESERV. LEAKAGE',
                      'STREAM LEAKAGE',
                      'STREAM FLOW OUT',
                      'INTERBED STORAGE',
                      'ET SEGMENTS',
                      'DRAINS (DRT)',
                      'STREAMFLOW OUT',
                      'STREAM LISTING',
                      'UZF INFILTR.',
                      'SFR-DIV. INFLTR.',
                      'UZF RECHARGE',
                      'GW ET',
                      'SURFACE LEAKAGE',
                      'HORT+DUNN',
                      'INFILTRATION',
                      'STORAGE CHANGE',
                      'UZF ET',
                      'NETRECHARGE',
                      'NETDISCHARGE',
                      'LAKE  SEEPAGE',
                      'MNW2',
                      'MNW',
                      'INST. IB STORAGE',
                      'DELAY IB STORAGE',
                      'SWR LEAKAGE',
                      'SWR GWET'
                      )
usethis::use_data(
  rmfd_supported_codes,
  rmfd_supported_packages,
  rmfd_guide_shortcuts,
  rmfd_supported_output,
  rmfd_supported_length_units,
  rmfd_state_headers,
  rmfd_cbc_headers,
  internal = TRUE,
  overwrite = TRUE
)