Changeset 559 for palm/trunk/SOURCE/parin.f90

Timestamp:

Sep 7, 2010 3:17:00 PM (14 years ago)

Author:

weinreis

Message:

 

File:

• palm/trunk/SOURCE/parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/parin.f90

@@ -98 +98 @@
     IMPLICIT NONE
 
-    INTEGER ::  idum, mod_blocksize, rbs
+    INTEGER ::  idum
 
 
@@ -104 +104 @@
                        bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b, &
              bc_q_t,bc_s_b, bc_s_t, bc_sa_t, bc_uv_b, bc_uv_t, &
-             binary_io_blocksize, &
              bottom_salinityflux, building_height, building_length_x, &
              building_length_y, building_wall_left, building_wall_south, &
@@ -209 +208 @@
  11 message_string = 'no \$inipar-namelist found'
     CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
-    
-!
-!-- Check blocksize of binary IO
-12  mod_blocksize = MODULO(numprocs,binary_io_blocksize)
-    IF ( mod_blocksize /= 0 ) THEN
-       WRITE( message_string, * ) 'illegal value for binary_io_blocksize: & 
-                                  ', binary_io_blocksize, &
-                                  ' - no binary IO block by block'  
-       CALL message( 'check_parameters', 'PA0325', 0, 1, 0, 6, 0) 
-       binary_io_blocksize = numprocs
-    ENDIF
-    mod_numprocs_size = MOD(myid,numprocs/binary_io_blocksize)
-    
+
 !
 !-- If required, read control parameters from restart file (produced by
 !-- a prior run). All PEs are reading from file created by PE0 (see check_open)
-    IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
-    
-       DO rbs = 0, numprocs/binary_io_blocksize-1 
-          IF ( mod_numprocs_size == rbs ) THEN
-             CALL read_var_list
-          ENDIF  
-          CALL MPI_BARRIER(comm2d, ierr )    
-       ENDDO
-       
+ 12 IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
+
+       CALL read_var_list
 !
 !--    The restart file will be reopened when reading the subdomain data