Ignore:
Timestamp:
Sep 7, 2010 3:17:00 PM (11 years ago)
Author:
weinreis
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_last_actions.f90

    r557 r559  
    2222
    2323    USE control_parameters
    24     USE pegrid
    2524    USE user
    2625
    2726    IMPLICIT NONE
    28    
    29     INTEGER :: rbs
    3027
    3128!
     
    3330!-- Sample for user-defined output:
    3431    IF ( write_binary(1:4) == 'true' )  THEN
    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
     32!       IF ( ALLOCATED( u2_av ) )  THEN
     33!          WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
     34!       ENDIF
    4135
    42              WRITE ( 14 )  '*** end user ***    '
    43        
    44           ENDIF     
    45           CALL MPI_BARRIER(comm2d, ierr )
    46        ENDDO
     36       WRITE ( 14 )  '*** end user ***    '
    4737
    4838    ENDIF
Note: See TracChangeset for help on using the changeset viewer.