Changeset 557 for palm/trunk/SOURCE/user_last_actions.f90
- Timestamp:
- Sep 7, 2010 2:50:07 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_last_actions.f90
r484 r557 22 22 23 23 USE control_parameters 24 USE pegrid 24 25 USE user 25 26 26 27 IMPLICIT NONE 28 29 INTEGER :: rbs 27 30 28 31 ! … … 30 33 !-- Sample for user-defined output: 31 34 IF ( write_binary(1:4) == 'true' ) THEN 32 ! IF ( ALLOCATED( u2_av ) ) THEN 33 ! WRITE ( 14 ) 'u2_av '; WRITE ( 14 ) u2_av 34 ! ENDIF 35 DO rbs = 0, numprocs/binary_io_blocksize-1 36 IF ( mod_numprocs_size == rbs ) THEN 37 38 ! IF ( ALLOCATED( u2_av ) ) THEN 39 ! WRITE ( 14 ) 'u2_av '; WRITE ( 14 ) u2_av 40 ! ENDIF 35 41 36 WRITE ( 14 ) '*** end user *** ' 42 WRITE ( 14 ) '*** end user *** ' 43 44 ENDIF 45 CALL MPI_BARRIER(comm2d, ierr ) 46 ENDDO 37 47 38 48 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.