Changeset 184 for palm

Timestamp:

Aug 4, 2008 3:53:39 PM (16 years ago)

Author:

letzel

Message:

• init_1d_model: provisional solution for run_control_1d output: add 'CALL check_open( 15 )'

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• init_1d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -76 +76 @@
 Format adjustments in order to allow CPU# > 999. (cpu_statistics)
 
-advec_s_ups, advec_u_ups, advec_v_ups, advec_w_ups, calc_spectra, check_open, check_parameters, cpu_statistics, init_3d_model, modules, palm, parin, poisfft, read_var_list, read_3d_binary, transpose, write_var_list, write_3d_binary
+Provisional solution for run_control_1d output: add 'CALL check_open( 15 )'
+(init_1d_model)
+
+advec_s_ups, advec_u_ups, advec_v_ups, advec_w_ups, calc_spectra, check_open, check_parameters, cpu_statistics, init_1d_model, init_3d_model, modules, palm, parin, poisfft, read_var_list, read_3d_binary, transpose, write_var_list, write_3d_binary
 
 

palm/trunk/SOURCE/init_1d_model.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! provisional solution for run_control_1d output: add 'CALL check_open( 15 )'
 !
 ! Former revisions:
@@ -753 +753 @@
 !--    If necessary, write header
        IF ( .NOT. run_control_header_1d )  THEN
+          CALL check_open( 15 )
           WRITE ( 15, 100 )
           run_control_header_1d = .TRUE.