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

Timestamp:

Sep 7, 2010 2:50:07 PM (14 years ago)

Author:

weinreis

Message:

bugfix message string in set_mask_locations

File:

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

palm/trunk/SOURCE/parin.f90

@@ -98 +98 @@
     IMPLICIT NONE
 
-    INTEGER ::  idum
+    INTEGER ::  idum, mod_blocksize, rbs
 
 
@@ -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, &
@@ -208 +209 @@
  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)
- 12 IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
-
-       CALL read_var_list
+    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
+       
 !
 !--    The restart file will be reopened when reading the subdomain data