Changeset 348 for palm

Timestamp:

Jul 7, 2009 8:01:16 PM (15 years ago)

Author:

maronga

Message:

bugfix for coupled restart runs

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• time_integration.f90 (modified) (1 diff)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -142 +142 @@
 (read_var_list, write_var_list)
 
+Bugfix: initial setting of time_coupling in coupled restart runs (time_integration)
+
 advec_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

@@ -97 +97 @@
           time_coupling = time_coupling - dt_coupling
        ENDDO
+       IF (time_coupling == 0.0 .AND. time_since_reference_point < dt_coupling)&
+       THEN
+          time_coupling = time_since_reference_point
+       ENDIF
     ENDIF