Changeset 2964 for palm/trunk/SOURCE/check_open.f90

Timestamp:

Apr 12, 2018 4:04:03 PM (6 years ago)

Author:

Giersch

Message:

Bugfix in the calculation of fixed number of output time levels for parallel netcdf output, error message related to reading sky view factors revised

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (4 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message moved to radiation_model_mod
+! 
+! 2957 2018-04-11 08:48:06Z Giersch
 ! Error message has been corrected in case of writing sky view factors
 ! 
@@ -167 +170 @@
 
     USE control_parameters,                                                    &
-        ONLY:  coupling_char, data_output_2d_on_each_pe, max_masks,            &
-               message_string, mid, nz_do3d, openfile, run_description_header, &
-               runnr
+        ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
+               max_masks, message_string, mid, nz_do3d, openfile,              &
+               run_description_header, runnr
 
     USE grid_variables,                                                        &
@@ -546 +549 @@
        CASE ( 88 )
 
-          IF (numprocs_previous_run /= numprocs) THEN
-             WRITE( message_string, * ) 'A different number of processors',    &
-                                        ' between the run that has written',   &
-                                        ' the svf data and the one that will ',&
-                                        ' read it is not allowed' 
-             CALL message( 'check_open', 'PA0484', 1, 2, 0, 6, 0 )
-          ENDIF
-
           IF ( myid_char == '' )  THEN
              OPEN ( 88, FILE='SVFIN'//TRIM( coupling_char )//myid_char,        &
@@ -887 +882 @@
 !--       actual run.
           INQUIRE( FILE=filename, EXIST=netcdf_extend )
-
           IF ( netcdf_extend )  THEN
 !