Changeset 258 for palm/trunk/SOURCE/timestep.f90
- Timestamp:
- Mar 13, 2009 12:36:03 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/timestep.f90
r226 r258 2 2 3 3 !------------------------------------------------------------------------------! 4 ! Actualrevisions:4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Output of messages replaced by message handling routine. 7 ! 7 8 ! 8 9 ! Former revisions: … … 201 202 stop_dt = .TRUE. 202 203 203 IF ( myid == 0 ) THEN 204 PRINT*,'+++ time_step: Time step has reached minimum limit.' 205 PRINT*,' dt = ', dt_3d, ' s Simulation is terminated.' 206 PRINT*,' old_dt = ', old_dt, ' s' 207 PRINT*,' dt_u = ', dt_u, ' s' 208 PRINT*,' dt_v = ', dt_v, ' s' 209 PRINT*,' dt_w = ', dt_w, ' s' 210 PRINT*,' dt_diff = ', dt_diff, ' s' 211 PRINT*,' u_max = ', u_max, ' m/s k=', u_max_ijk(1), & 212 ' j=', u_max_ijk(2), ' i=', u_max_ijk(3) 213 PRINT*,' v_max = ', v_max, ' m/s k=', v_max_ijk(1), & 214 ' j=', v_max_ijk(2), ' i=', v_max_ijk(3) 215 PRINT*,' w_max = ', w_max, ' m/s k=', w_max_ijk(1), & 216 ' j=', w_max_ijk(2), ' i=', w_max_ijk(3) 217 ENDIF 204 WRITE( message_string, * ) 'Time step has reached minimum limit.', & 205 '&dt = ', dt_3d, ' s Simulation is terminated.', & 206 '&old_dt = ', old_dt, ' s', & 207 '&dt_u = ', dt_u, ' s', & 208 '&dt_v = ', dt_v, ' s', & 209 '&dt_w = ', dt_w, ' s', & 210 '&dt_diff = ', dt_diff, ' s', & 211 '&u_max = ', u_max, ' m/s k=', u_max_ijk(1), & 212 ' j=', u_max_ijk(2), ' i=', u_max_ijk(3), & 213 '&v_max = ', v_max, ' m/s k=', v_max_ijk(1), & 214 ' j=', v_max_ijk(2), ' i=', v_max_ijk(3), & 215 '&w_max = ', w_max, ' m/s k=', w_max_ijk(1), & 216 ' j=', w_max_ijk(2), ' i=', w_max_ijk(3) 217 CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 ) 218 218 ! 219 219 !-- In case of coupled runs inform the remote model of the termination
Note: See TracChangeset
for help on using the changeset viewer.