From fa54564262eae22937382e8392a1c4b2327493f1 Mon Sep 17 00:00:00 2001 From: aho Date: Mon, 25 Mar 2019 09:51:39 +0100 Subject: [PATCH] Form adjustment for mon_mean.r and run.r --- mon_mean.r => mon_mean_onept.r | 7 ++++--- run.r | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) rename mon_mean.r => mon_mean_onept.r (57%) diff --git a/mon_mean.r b/mon_mean_onept.r similarity index 57% rename from mon_mean.r rename to mon_mean_onept.r index ab89b64..5d6711a 100644 --- a/mon_mean.r +++ b/mon_mean_onept.r @@ -1,12 +1,13 @@ -mon_mean <- function(var,lat, lon) { +mon_mean_onept <- function(var, lat, lon) { #read in daily mean data, calculate monthly mean -var_onept <- var[lon,lat,] +#'var' is the variable read from netCDF +var_onept <- var[lon, lat, ] monmean <- mean(var_onept) #monmean <- apply(as.matrix(var_onept), 3, mean) #Outputs - return(monmean) + } diff --git a/run.r b/run.r index 08f3b83..70cacb0 100644 --- a/run.r +++ b/run.r @@ -10,6 +10,6 @@ tmp <- read_netcdf(var_name, path, file) lat <- 120 lon <- 255 -monmean <- mon_mean(tmp, lat, lon) +monmean <- mon_mean_onept(tmp, lat, lon) message('Monthly mean at [',lon,',',lat,']: ',monmean) -- GitLab