Changeset 184 for palm/trunk


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r183 r184  
    7676Format adjustments in order to allow CPU# > 999. (cpu_statistics)
    7777
    78 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
     78Provisional solution for run_control_1d output: add 'CALL check_open( 15 )'
     79(init_1d_model)
     80
     81advec_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
    7982
    8083
  • palm/trunk/SOURCE/init_1d_model.f90

    r139 r184  
    44! Actual revisions:
    55! -----------------
    6 !
     6! provisional solution for run_control_1d output: add 'CALL check_open( 15 )'
    77!
    88! Former revisions:
     
    753753!--    If necessary, write header
    754754       IF ( .NOT. run_control_header_1d )  THEN
     755          CALL check_open( 15 )
    755756          WRITE ( 15, 100 )
    756757          run_control_header_1d = .TRUE.
Note: See TracChangeset for help on using the changeset viewer.