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

Timestamp:

Jan 9, 2008 8:17:38 AM (17 years ago)

Author:

raasch

Message:

second preliminary update for turbulent inflow

File:

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

palm/trunk/SOURCE/user_interface.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! new subroutine user_spectra
+! +routines user_read_restart_data, user_spectra
 !
 ! Former revisions:
@@ -177 +177 @@
 
 
- SUBROUTINE user_init
-
-!------------------------------------------------------------------------------!
-!
-! Description:
-! ------------
-! Execution of user-defined initializing actions
+ SUBROUTINE user_read_restart_data
+
+!------------------------------------------------------------------------------!
+!
+! Description:
+! ------------
+! Reading restart data from file(s)
 !------------------------------------------------------------------------------!
 
     USE control_parameters
     USE indices
-    USE netcdf_control
     USE pegrid
     USE user
@@ -196 +195 @@
     CHARACTER (LEN=20) :: field_char
 !
-!-- Here the user-defined initializing actions follow:
+!-- Here the reading of user-defined restart data follows:
 !-- Sample for user-defined output
 !    ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
@@ -224 +223 @@
 !    ENDIF
 
-!
+ END SUBROUTINE user_read_restart_data
+
+
+
+ SUBROUTINE user_init
+
+!------------------------------------------------------------------------------!
+!
+! Description:
+! ------------
+! Execution of user-defined initializing actions
+!------------------------------------------------------------------------------!
+
+    USE control_parameters
+    USE indices
+    USE netcdf_control
+    USE pegrid
+    USE user
+
+    IMPLICIT NONE
+
+    CHARACTER (LEN=20) :: field_char
+!
+!-- Here the user-defined initializing actions follow:
 !-- Sample for user-defined time series
 !-- For each time series quantity you have to give a label and a unit,