Ignore:
Timestamp:
Jun 8, 2017 2:25:57 PM (4 years ago)
Author:
raasch
Message:

changes in mrun: unified cycle numbers for output files are used, paths and filenames are allowed to contain arbitrary numbers of dots, archive feature completely removed from the script, nech related parts completely removed, OpenMP bugfix in prognostic_equations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r2233 r2261  
    2525! -----------------
    2626! $Id$
     27! output of run number for mrun to create unified cycle numbers
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    171174
    172175    USE control_parameters,                                                    &
    173 
    174176        ONLY:  cloud_physics, constant_diffusion, coupling_char, coupling_mode,&
    175177               do2d_at_begin, do3d_at_begin, humidity, initializing_actions,   &
    176                land_surface, io_blocks, io_group,                              &
    177                large_scale_forcing, message_string, microphysics_seifert,      &
    178                nest_domain, neutral,                                           &
    179                nudging, passive_scalar, simulated_time, simulated_time_chr,    &
    180                urban_surface,                                                  &
     178               io_blocks, io_group, land_surface, large_scale_forcing,         &
     179               message_string, microphysics_seifert, nest_domain, neutral,     &
     180               nudging, passive_scalar, runnr, simulated_time,                 &
     181               simulated_time_chr, urban_surface,                              &
    181182               user_interface_current_revision,                                &
    182183               user_interface_required_revision, version, wall_heatflux,       &
     
    480481
    481482!
     483!-- Write run number to file (used by mrun to create unified cycle numbers for
     484!-- output files
     485    IF ( myid == 0  .AND.  runnr > 0 )  THEN
     486       OPEN( 90, FILE='RUN_NUMBER', FORM='FORMATTED' )
     487       WRITE( 90, '(I4)' )  runnr
     488       CLOSE( 90 )
     489    ENDIF
     490
     491!
    482492!-- Take final CPU-time for CPU-time analysis
    483493    CALL cpu_log( log_point(1), 'total', 'stop' )
Note: See TracChangeset for help on using the changeset viewer.