SWkviscosity(283, 'K', 35, 'g/kg')
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R')
SWkviscosity(283, 'K', 35, 'g/kg')
SWkviscosity(280, 'K', 35, 'g/kg')
SWkviscosity(c(280, 283, 285, 290, 295), 'K', 35, 'g/kg')
SWkviscosity(c(280, 283, 285, 290, 295), 'K', c(35,35,35,35,35), 'g/kg')
SWkviscosity(rep(283,5), 'K', c(15, 20, 25, 30, 35, 40), 'g/kg')
SWkviscosity(rep(283,5), 'K', c(15, 20, 25, 30, 35), 'g/kg')
getwd()
setwd('~')
getwd()
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R')
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R')
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R')
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R', local = TRUE)
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R', chdir = TRUE)
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R', chdir = TRUE)
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/sharqawy2010/SW_tools.R', chdir = TRUE)
setwd('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/ssemis_v3.8.6')
setwd('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/ssemis_v3.9.0')
cmaqDJKcut_RH = c(0.9733300,0.9931762,1.0002055,1.0065636,1.0253434,1.0313600,1.0373646,1.0433571,1.0619879,1.0684070,1.0748874,1.0817093,1.1016666,1.1093022,1.1173310,1.1382075,1.1470727,1.1563205,1.1785785,1.1886234,1.1987831,1.2222700,1.2329512,1.2569815,1.2684568,1.2799862,1.3044443,1.3164224,1.3410494,1.3534926,1.3659777,1.3910988,1.4040940,1.4296401,1.4435438,1.4702086,1.4858212,1.5026260,1.5325787,1.5642715,1.5867775,1.6236187,1.6640832,1.7091908,1.7600568,1.8185113,1.8240176,1.8292607,1.8347960,1.8406768,1.8463104,1.8616118,1.8676366,1.8736936,1.8800937,1.8862150,1.8929904,1.8994869,1.9148132,1.9220294,1.9289832,1.9362967,1.9436425,1.9510370,1.9668032,1.9746244,1.9827894,1.9910033,1.9992826,2.0079056,2.0239770,2.0330440,2.0421768,2.0513753,2.0609179,2.0773533,2.0873736,2.0977547,2.1082185,2.1187484,2.1358494,2.1471692,2.1585721,2.1703529,2.1875916,2.1998835,2.2125535,2.2256350,2.2431228,2.2567315,2.2707523,2.2851681,2.3030964,2.3180880,2.3337862,2.3518094,2.3683922,2.3851098,2.4022735,2.4211275,2.4390957,2.4579315,2.4776718,2.4971590,2.5177151,2.5378258,2.5593893,2.5792868,2.6021420,2.6255469,2.6464577,2.6713285,2.6924409,2.7190987,2.7463356,2.7683877,2.7975645,2.8200233,2.8510416,2.8744743,2.9075382,2.9313487,2.9669210,2.9920640,3.0298081,3.0555582,3.0811926,3.1238162,3.1506915,3.1960097,3.2249975,3.2536223,3.3043753,3.3357636,3.3674472,3.4246533)
which(cmaqRH==0.8)
cmaqRH = c(0.45, 0.46, 0.47, 0.48, 0.49, 0.5, 0.51, 0.52, 0.53, 0.54, 0.55, 0.56, 0.57, 0.58, 0.59, 0.6, 0.61, 0.62, 0.63, 0.64, 0.65, 0.66, 0.67, 0.68, 0.69, 0.7, 0.71, 0.72, 0.73, 0.74, 0.75, 0.76, 0.77, 0.78, 0.79, 0.8, 0.81, 0.82, 0.83, 0.84, 0.85, 0.86, 0.87, 0.88, 0.89, 0.9, 0.901, 0.902, 0.903, 0.904, 0.905, 0.906, 0.907, 0.908, 0.909, 0.91, 0.911, 0.912, 0.913, 0.914, 0.915, 0.916, 0.917, 0.918, 0.919, 0.92, 0.921, 0.922, 0.923, 0.924, 0.925, 0.926, 0.927, 0.928, 0.929, 0.93, 0.931, 0.932, 0.933, 0.934, 0.935, 0.936, 0.937, 0.938, 0.939, 0.94, 0.941, 0.942, 0.943, 0.944, 0.945, 0.946, 0.947, 0.948, 0.949, 0.95, 0.951, 0.952, 0.953, 0.954, 0.955, 0.956, 0.957, 0.958, 0.959, 0.96, 0.961, 0.962, 0.963, 0.964, 0.965, 0.966, 0.967, 0.968, 0.969, 0.97, 0.971, 0.972, 0.973, 0.974, 0.975, 0.976, 0.977, 0.978, 0.979, 0.98, 0.981, 0.982, 0.983, 0.984, 0.985, 0.986, 0.987, 0.988, 0.989, 0.99)
which(cmaqRH==0.8)
which(cmaqRH==0.98)
cmaqDJKcut_RH[36]
cmaqDJKcut_RH[126]
source('/media/neumannd/work_mn/65_R/sea_salt_emissions_NEW/src/ssemis_v3.9.0/ssemis_params.R')
length(cmaqRH)
which(cmaqRH%in%c(0.45,0.50))
which(cmaqRH%in%c(1:10))
(1:10)
(1:10)*5
(1:10)*5 + 40
(1:11)*5 + 40
c((1:11)*5 + 40, c(97,99))/100
c((1:10)*5 + 40, c(93, 95,97,99))/100
cmaqRH[c((1:10)*5 + 40, c(93, 95,97,99))/100]
cmaqRH[c((1:10)*5 + 40, c(93, 95,97,99))/100]
c((1:10)*5 + 40, c(93, 95,97,99))/100
cmaqRH[1]
cmaqRH[2]
cmaqRH[c((1:10)*5 + 40, c(93, 95,97,99))/100]
myJKcut = cmaqDJKcut_RH[which(cmaqRH%in%myRHs)]
myRHs = c((1:10)*5 + 40, c(93, 95,97,99))/100
myJKcut = cmaqDJKcut_RH[which(cmaqRH%in%myRHs)]
myJKcut
myRHs
formatC(12, type = 'd')
formatC(12, format = 'd')
formatC(12.2, format = 'd')
getwd()
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_spada.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
writeSuccess = write_ssemis(gridDesc, iDate, namespace, 0, valSSEMIS, valUNITS)
namespace
namespace$OUT
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_params.R')
writeSuccess = write_ssemis(gridDesc, iDate, namespace, 0, valSSEMIS, valUNITS)
namespace$OUT
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_params.R')
writeSuccess = write_ssemis(gridDesc, iDate, namespace, 0, valSSEMIS, valUNITS)
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_spada.R')
namespace = set_base_directories(namespace, GRID_NAME, '2008', myBASEOUT='../../output_example')
writeSuccess = write_ssemis(gridDesc, iDate, namespace, 0, valSSEMIS, valUNITS)
namespace$OUT
namespace$OUT$path = '../../output_example/CD24/ssemis_CD24_ae5_OCwSZnSL_sp13_mode3_2008370'
writeSuccess = write_ssemis(gridDesc, iDate, namespace, 0, valSSEMIS, valUNITS)
source('/media/neumannd/work_mn/35_Publications/Neumann_et_al_2015b/supplement/ssemis/ssemis_v4.0.1/ssemis_main_ovadnevaite.R')
