Changeset 86 for palm/trunk/SOURCE/user_interface.f90

Timestamp:

May 16, 2007 4:00:18 PM (18 years ago)

Author:

raasch

Message:

small bugfixes

File:

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

palm/trunk/SOURCE/user_interface.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: field_chr renamed field_char
 !
 ! Former revisions:
@@ -163 +163 @@
 !
 !    IF ( initializing_actions == 'read_restart_data' )  THEN
-!       READ ( 13 )  field_chr
-!       DO  WHILE ( TRIM( field_chr ) /= '*** end user ***' )
-!
-!          SELECT CASE ( TRIM( field_chr ) )
+!       READ ( 13 )  field_char
+!       DO  WHILE ( TRIM( field_char ) /= '*** end user ***' )
+!
+!          SELECT CASE ( TRIM( field_char ) )
 !
 !             CASE ( 'u2_av' )
@@ -174 +174 @@
 !             CASE DEFAULT
 !                PRINT*, '+++ user_init: unknown variable named "', &
-!                        TRIM( field_chr ), '" found in'
+!                        TRIM( field_char ), '" found in'
 !                PRINT*, '               data from prior run on PE ', myid
 !                CALL local_stop
@@ -180 +180 @@
 !          END SELECT
 !
-!          READ ( 13 )  field_chr
+!          READ ( 13 )  field_char
 !
 !       ENDDO