Changeset 1402 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- May 9, 2014 2:25:13 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r1375 r1402 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! location messages added 23 23 ! 24 24 ! Former revisions: … … 285 285 CALL cpu_log( log_point(22), 'write_3d_binary', 'start' ) 286 286 287 CALL location_message( 'writing restart data', .FALSE. ) 288 287 289 CALL check_open( 14 ) 288 290 … … 297 299 #endif 298 300 ENDDO 301 302 CALL location_message( 'finished', .TRUE. ) 299 303 300 304 CALL cpu_log( log_point(22), 'write_3d_binary', 'stop' )
Note: See TracChangeset
for help on using the changeset viewer.