Ignore:
Timestamp:
Sep 7, 2010 2:50:07 PM (11 years ago)
Author:
weinreis
Message:

bugfix message string in set_mask_locations

File:
1 edited

Legend:

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

    r484 r557  
    2222
    2323    USE control_parameters
     24    USE pegrid
    2425    USE user
    2526
    2627    IMPLICIT NONE
     28   
     29    INTEGER :: rbs
    2730
    2831!
     
    3033!-- Sample for user-defined output:
    3134    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
    3541
    36        WRITE ( 14 )  '*** end user ***    '
     42             WRITE ( 14 )  '*** end user ***    '
     43       
     44          ENDIF     
     45          CALL MPI_BARRIER(comm2d, ierr )
     46       ENDDO
    3747
    3848    ENDIF
Note: See TracChangeset for help on using the changeset viewer.