diff --git a/models/basgra/man/run_BASGRA.Rd b/models/basgra/man/run_BASGRA.Rd index 8fc469087a9..d40673c03f0 100644 --- a/models/basgra/man/run_BASGRA.Rd +++ b/models/basgra/man/run_BASGRA.Rd @@ -47,7 +47,7 @@ BASGRA wrapper function. Runs and writes model outputs in PEcAn standard. \details{ BASGRA is written in fortran is run through R by wrapper functions written by Marcel Van Oijen. This function makes use of those wrappers but gives control of datastream in and out of the model to PEcAn. -With this function we skip model2netcdf, we can also skip met2model but keeping it for now. +With this function we skip model2netcdf, we can also skip met2model but keeping it for now. write.config.BASGRA modifies args of this function through template.job then job.sh runs calls this function to run the model } diff --git a/modules/rtm/man/fortran_data_module.Rd b/modules/rtm/man/fortran_data_module.Rd index 31b9abc88d7..8e952a91f22 100644 --- a/modules/rtm/man/fortran_data_module.Rd +++ b/modules/rtm/man/fortran_data_module.Rd @@ -30,22 +30,26 @@ arrays may be in the future) and splits long data into rows of 10. Currently, only numeric data are supported (i.e. no characters). } \examples{ - w <- 3.2 - x <- 1:5 - y <- 6:15 - z <- seq(exp(1), pi, length.out=42) - l <- list(x=x, y=y, z=z) ## NOTE that names must be explicitly declared - l.types <- c('real','integer', 'real*4', 'real*8') - fortran_data_module(l, l.types, 'testmod', - file.path(tempdir(), "testmod.f90")) +w <- 3.2 +x <- 1:5 +y <- 6:15 +z <- seq(exp(1), pi, length.out = 42) +l <- list(x = x, y = y, z = z) ## NOTE that names must be explicitly declared +l.types <- c("real", "integer", "real*4", "real*8") +fortran_data_module( + l, l.types, "testmod", + file.path(tempdir(), "testmod.f90") +) - x <- runif(10) - y <- rnorm(10) - z <- rgamma(10, 3) - d <- data.frame(x,y,z) ## NOTE that data.frames are just named lists - d.types <- rep('real*8', ncol(d)) - fortran_data_module(d, d.types, 'random', - file.path(tempdir(), "random.f90")) +x <- runif(10) +y <- rnorm(10) +z <- rgamma(10, 3) +d <- data.frame(x, y, z) ## NOTE that data.frames are just named lists +d.types <- rep("real*8", ncol(d)) +fortran_data_module( + d, d.types, "random", + file.path(tempdir(), "random.f90") +) } \author{ Alexey Shiklomanov