# NOT RUN {
D_c <- set_units(1.29e-05, "m^2/s")
D_w <- set_units(2.12e-05, "m^2/s")
g_c <- set_units(3, "umol/m^2/s/Pa")
g_w <- gc2gw(g_c, D_c, D_w, unitless = FALSE)
g_w
gw2gc(g_w, D_c, D_w, unitles = FALSE)
# }
Run the code above in your browser using DataLab