Changeset 1521

Timestamp:

Jan 14, 2015 10:40:04 AM (10 years ago)

Author:

keck

Message:

added query for checking if the advection scheme in a restart run is the same as the advection scheme in the corresponding initial run

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! check for the advection scheme
 ! 
 ! Former revisions:
@@ -744 +744 @@
 
     CHARACTER (LEN=10) ::  version_on_file
+    CHARACTER (LEN=20) ::  momentum_advec_check
+    CHARACTER (LEN=20) ::  scalar_advec_check
     CHARACTER (LEN=30) ::  variable_chr
     CHARACTER (LEN=1)  ::  cdum
@@ -880 +882 @@
              DEALLOCATE( hom_sum_on_file )
 
+          CASE ( 'momentum_advec' )
+             momentum_advec_check = momentum_advec
+             READ ( 13 )  momentum_advec
+             IF ( TRIM( momentum_advec_check ) /= TRIM( momentum_advec ) )  THEN
+                WRITE( message_string, * ) 'momentum_advec of the restart run',&
+                               'differs from momentum_advec of the initial run.'
+                CALL message( 'read_parts_of_var_list', 'PA0100', &
+                                                                 1, 2, 0, 6, 0 )
+             END IF                           
+             
           CASE ( 'nx' )
              READ ( 13 )  nx_on_file
@@ -889 +901 @@
              READ ( 13 )  ref_state
 
-
+          CASE ( 'scalar_advec' )
+             scalar_advec_check = scalar_advec
+             READ ( 13 )  scalar_advec
+             IF ( TRIM( scalar_advec_check ) /= TRIM( scalar_advec ) )  THEN
+                WRITE( message_string, * ) 'scalar_advec of the restart run', &
+                               'differs from scalar_advec of the initial run.'
+                CALL message( 'read_parts_of_var_list', 'PA0101', &
+                                                                 1, 2, 0, 6, 0 )
+             END IF             
+             
           CASE DEFAULT