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

Timestamp:

Sep 12, 2018 12:04:40 PM (6 years ago)

Author:

Giersch

Message:

Bufgix for an error message in case of restarts and user-defined profiles

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! A check that controls the number of user-defined profiles on the restart file
+! with the one given for the current run has been added.
+! 
+! 3204 2018-08-23 10:49:05Z raasch
 ! additional check for nz
 ! 
@@ -906 +910 @@
 !--          Increment the run count
              runnr = runnr + 1
+!
+!--          In case of a restart run, the number of user-defined profiles on
+!--          the restart file (already stored in max_pr_user) has to match the
+!--          one given for the current run. max_pr_user_tmp is calculated in 
+!--          user_parin and max_pr_user is read in via rrd_global.
+             IF ( max_pr_user /= max_pr_user_tmp )  THEN
+                WRITE( message_string, * ) 'the number of user-defined ',      &
+                      'profiles given in data_output_pr (', max_pr_user_tmp,   &
+                      ') does not match the one ',                             &
+                      'found in the restart file (', max_pr_user, ')'
+                CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )
+             ENDIF
+          ELSE
+             max_pr_user = max_pr_user_tmp
           ENDIF