Changeset 1092 for palm/trunk/SOURCE/netcdf.f90

Timestamp:

Feb 2, 2013 11:24:22 AM (11 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

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

palm/trunk/SOURCE/netcdf.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
+! unused variables removed
 !
 ! Former revisions:
@@ -155 +156 @@
     CHARACTER (LEN=10)             ::  netcdf_var_name, precision, var
     CHARACTER (LEN=80)             ::  time_average_text
-    CHARACTER (LEN=2000)           ::  char_cross_profiles,     &
-                                       message_cross_profiles,  &
-                                       var_list, var_list_old
+    CHARACTER (LEN=2000)           ::  char_cross_profiles, var_list, var_list_old
 
     CHARACTER (LEN=100), DIMENSION(1:crmax) ::  cross_profiles_adj,   &