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

Timestamp:

Aug 8, 2007 7:12:55 AM (17 years ago)

Author:

raasch

Message:

bugs in check_open and user_interface removed

File:

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

palm/trunk/SOURCE/user_interface.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +dots_num_palm in module user, +module netcdf_control in user_init
 !
 ! Former revisions:
@@ -42 +42 @@
 !------------------------------------------------------------------------------!
 
-    INTEGER ::  user_idummy
+    INTEGER ::  dots_num_palm, user_idummy
     LOGICAL ::  user_defined_namelist_found = .FALSE.
     REAL    ::  user_dummy
@@ -180 +180 @@
     USE control_parameters
     USE indices
+    USE netcdf_control
     USE pegrid
     USE user