Skip to content
Snippets Groups Projects
Commit 6c9d0acf authored by Evgeny Mortikov's avatar Evgeny Mortikov
Browse files

adding keys for PAPA and TOGA ocean datasets

parent e2f7e51f
No related branches found
No related tags found
No related merge requests found
......@@ -33,8 +33,9 @@ program sfx_main
integer, parameter :: dataset_IRGASON = 2 !< IRGASON data
integer, parameter :: dataset_SHEBA = 3 !< please spell 'SHIBA'
integer, parameter :: dataset_LAKE = 4 !< Kuivajarvi data
integer, parameter :: dataset_OCEAN = 5 !< Ocean data
integer, parameter :: dataset_USER = 4 !< used defined dataset
integer, parameter :: dataset_PAPA = 5 !< Papa station (ocean) data
integer, parameter :: dataset_TOGA = 6 !< Toga (ocean) data
integer, parameter :: dataset_USER = 7 !< used defined dataset
integer :: model_id !< sfx model ID:
......@@ -85,7 +86,8 @@ program sfx_main
character(len = 128), parameter :: arg_key_dataset_irgason = 'irgason'
character(len = 128), parameter :: arg_key_dataset_sheba = 'sheba'
character(len = 128), parameter :: arg_key_dataset_lake = 'lake'
character(len = 128), parameter :: arg_key_dataset_ocean = 'ocean'
character(len = 128), parameter :: arg_key_dataset_papa = 'papa'
character(len = 128), parameter :: arg_key_dataset_toga = 'toga'
character(len = 128), parameter :: arg_key_dataset_user = 'user'
integer :: is_output_set
......@@ -116,7 +118,7 @@ program sfx_main
write(*, *) ' key = esm (default) || log || most || sheba'
write(*, *) ' --dataset [key]'
write(*, *) ' key = mosaic (default) || irgason || sheba'
write(*, *) ' = lake || ocean || user [files]'
write(*, *) ' = lake || papa || toga || user [files]'
write(*, *) ' files = in-common-file in-file out-file'
write(*, *) ' --output [file]'
write(*, *) ' set output filename '
......@@ -157,8 +159,10 @@ program sfx_main
dataset_id = dataset_SHEBA
else if (trim(arg) == trim(arg_key_dataset_lake)) then
dataset_id = dataset_LAKE
else if (trim(arg) == trim(arg_key_dataset_ocean)) then
dataset_id = dataset_OCEAN
else if (trim(arg) == trim(arg_key_dataset_papa)) then
dataset_id = dataset_PAPA
else if (trim(arg) == trim(arg_key_dataset_toga)) then
dataset_id = dataset_TOGA
else if (trim(arg) == trim(arg_key_dataset_user)) then
dataset_id = dataset_USER
if (i + 4 > num_args) then
......@@ -239,12 +243,18 @@ program sfx_main
filename_in_common = 'data/Kuivajarvi_zh.txt'
filename_in = 'data/Kuivajarvi.txt'
if (is_output_set == 0) filename_out = 'out_Kuivajarvi.txt'
else if (dataset_id == dataset_OCEAN) then
dataset_name = 'OCEAN'
filename_in_common = 'data/Ocean_zh.txt'
filename_in = 'data/Ocean.txt'
if (is_output_set == 0) filename_out = 'out_Ocean.txt'
else if (dataset_id == dataset_PAPA) then
dataset_name = 'PAPA'
filename_in_common = 'data/Papa_zh.txt'
filename_in = 'data/Papa.txt'
if (is_output_set == 0) filename_out = 'out_Papa.txt'
else if (dataset_id == dataset_TOGA) then
dataset_name = 'TOGA'
filename_in_common = 'data/Toga_zh.txt'
filename_in = 'data/Toga.txt'
if (is_output_set == 0) filename_out = 'out_Toga.txt'
else if (dataset_id == dataset_USER) then
dataset_name = 'USER'
else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment