Changeset 3045 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 3041 2018-05-25 10:39:54Z gronemeier
 ! Add data type for global file attributes
 ! Add read of global attributes of static driver
@@ -2003 +2006 @@
                 GOTO 12
 
- 10             message_string = 'file TOPOGRAPHY'//TRIM( coupling_char )//    &
-                                 ' does not exist'
+ 10             message_string = 'file TOPOGRAPHY_DATA'//                      &
+                                 TRIM( coupling_char )// ' does not exist'
                 CALL message( 'netcdf_data_input_mod', 'PA0208', 1, 2, 0, 6, 0 )