Changeset 348 for palm


Ignore:
Timestamp:
Jul 7, 2009 8:01:16 PM (15 years ago)
Author:
maronga
Message:

bugfix for coupled restart runs

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r347 r348  
    142142(read_var_list, write_var_list)
    143143
     144Bugfix: initial setting of time_coupling in coupled restart runs (time_integration)
     145
    144146advec_particles, check_parameters, cpu_log, data_output_2d, header, init_3d_model, init_particles, modules, netcdf, prandtl_fluxes, read_var_list, time_integration, write_var_list
  • palm/trunk/SOURCE/time_integration.f90

    r343 r348  
    9797          time_coupling = time_coupling - dt_coupling
    9898       ENDDO
     99       IF (time_coupling == 0.0 .AND. time_since_reference_point < dt_coupling)&
     100       THEN
     101          time_coupling = time_since_reference_point
     102       ENDIF
    99103    ENDIF
    100104
Note: See TracChangeset for help on using the changeset viewer.