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

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

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

palm/trunk/SOURCE/netcdf.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-!
+! Forgotten ONLY-attribute added to USE-statements
 !
 ! Former revisions:
@@ -4924 +4924 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
+    USE control_parameters,                                                    &
+        ONLY:  netcdf_data_format
+
     USE netcdf
+
     USE netcdf_control
+
     USE pegrid
 
@@ -4962 +4966 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
+    USE control_parameters,                                                    &
+        ONLY:  message_string
+
     USE netcdf
+
     USE netcdf_control
+
     USE pegrid