[Dart-dev] DART/branches Revision: 11667

[dart at ucar.edu]

jla at ucar.edu
2017-05-26 09:47:11 -0600 (Fri, 26 May 2017)
62
Carriage return now gives default filenames for input/output.



Modified: DART/branches/rma_trunk/assimilation_code/programs/create_fixed_network_seq/create_fixed_network_seq.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/programs/create_fixed_network_seq/create_fixed_network_seq.f90	2017-05-26 14:59:53 UTC (rev 11666)
+++ DART/branches/rma_trunk/assimilation_code/programs/create_fixed_network_seq/create_fixed_network_seq.f90	2017-05-26 15:47:11 UTC (rev 11667)
@@ -49,8 +49,10 @@
 call static_init_obs_sequence
 
 ! Write the sequence to a file
-write(*, *) 'Input filename for network definition sequence (usually  set_def.out  )'
-read(*, *) file_name
+write(*, *) 'Input filename for network definition sequence (<return> for set_def.out  )'
+read(*, 11) file_name
+11 format(a256)
+if(file_name == '') file_name = 'set_def.out'
 call read_obs_seq(file_name, 0, 0, 0, seq_in)
 
 ! Find out how many obs there are
@@ -183,8 +185,10 @@
    goto 20
 endif
 
-write(*, *) 'What is output file name for sequence (  obs_seq.in   is recommended )'
-read(*, *) file_name
+write(*, *) 'What is output file name for sequence (<return> for obs_seq.in)'
+read(*, 11) file_name
+if(file_name == '') file_name = 'obs_seq.in'
+
 call write_obs_seq(seq, file_name)
 
 call error_handler(E_MSG,'create_fixed_network_seq','Finished successfully.',source,revision,revdate)

Modified: DART/branches/rma_trunk/assimilation_code/programs/create_obs_sequence/create_obs_sequence.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/programs/create_obs_sequence/create_obs_sequence.f90	2017-05-26 14:59:53 UTC (rev 11666)
+++ DART/branches/rma_trunk/assimilation_code/programs/create_obs_sequence/create_obs_sequence.f90	2017-05-26 15:47:11 UTC (rev 11667)
@@ -38,8 +38,11 @@
 seq = interactive_obs_sequence()
 
 ! Write the sequence to a file
-write(*, *) 'Input filename for sequence (  set_def.out   usually works well)'
-read(*, *) file_name
+write(*, *) 'Input filename for sequence (<return> for set_def.out )'
+read(*, 11) file_name
+11 format(a256)
+if(file_name == '') file_name = 'set_def.out'
+
 call write_obs_seq(seq, file_name)
 
 call error_handler(E_MSG,'create_obs_sequence','Finished successfully.',source,revision,revdate)