Changeset 3240 for palm/trunk/SOURCE/user_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/user_parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/user_parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! The check that controls the number of user-defined profiles on the restart file
+! with the one given for the current run has been removed.
+! 
+! 3189 2018-08-06 13:18:55Z Giersch
 ! Indent revised
 ! 
@@ -112 +116 @@
     INTEGER(iwp) ::  i                 !< 
     INTEGER(iwp) ::  j                 !< 
-    INTEGER(iwp) ::  max_pr_user_tmp   !< 
 
 
@@ -177 +180 @@
 !-- standard data output (data_output_pr)
     IF ( user_defined_namelist_found )  THEN
-       max_pr_user_tmp = 0
        IF ( data_output_pr_user(1) /= ' ' )  THEN
           i = 1
@@ -191 +193 @@
           ENDDO
        ENDIF
-
-
-!
-!--    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
-       IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
-          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, ') doe',    &
-                     'snot 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
-
     ENDIF