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

bugfix message string in set_mask_locations

File:
1 edited

Legend:

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

    r486 r557  
    113113    IMPLICIT NONE
    114114
    115     INTEGER ::  i, ind_array(1), j, k, sr
     115    INTEGER ::  i, ind_array(1), j, k, rbs, sr
    116116
    117117    INTEGER, DIMENSION(:), ALLOCATABLE ::  ngp_2dh_l
     
    969969!--    some of the global variables from restart file
    970970       IF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN
    971 
    972971          WRITE (9,*) 'before read_parts_of_var_list'
    973972          CALL local_flush( 9 )
    974           CALL read_parts_of_var_list
     973          DO rbs = 0, numprocs/binary_io_blocksize-1     
     974             IF ( mod_numprocs_size == rbs ) THEN
     975                CALL read_parts_of_var_list
     976             ENDIF
     977             CALL MPI_BARRIER(comm2d, ierr )
     978          ENDDO
    975979          WRITE (9,*) 'after read_parts_of_var_list'
    976980          CALL local_flush( 9 )
     
    10561060!
    10571061!--    Read binary data from restart file
    1058           WRITE (9,*) 'before read_3d_binary'
    1059           CALL local_flush( 9 )
    1060        CALL read_3d_binary
    1061           WRITE (9,*) 'after read_3d_binary'
    1062           CALL local_flush( 9 )
     1062       WRITE (9,*) 'before read_3d_binary'
     1063       CALL local_flush( 9 )
     1064       DO rbs = 0, numprocs/binary_io_blocksize-1       
     1065          IF ( mod_numprocs_size == rbs ) THEN 
     1066             CALL read_3d_binary
     1067          ENDIF     
     1068          CALL MPI_BARRIER(comm2d, ierr )
     1069       ENDDO 
     1070       WRITE (9,*) 'after read_3d_binary'
     1071       CALL local_flush( 9 )
    10631072
    10641073!
     
    15731582#endif
    15741583
    1575     ngp_3d = INT( ngp_2dh * ( nz + 2 ), KIND = SELECTED_INT_KIND( 18 ) )
     1584    ngp_3d = INT ( ngp_2dh, KIND = SELECTED_INT_KIND( 18 ) ) * &
     1585             INT ( (nz + 2 ), KIND = SELECTED_INT_KIND( 18 ) )
    15761586
    15771587!
Note: See TracChangeset for help on using the changeset viewer.