Changeset 3687 for palm/trunk/SOURCE/palm.f90

Timestamp:

Jan 22, 2019 10:42:06 AM (5 years ago)

Author:

knoop

Message:

Moved all user routunes that are dependencies of the PALM core only, to user_module.f90
The files that formerly contained these routines, have been deleted.
Also module_interface routines for init_mask and last_actions have been added.

File:

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

palm/trunk/SOURCE/palm.f90

@@ -295 +295 @@
 
     USE kinds
+
+    USE module_interface,                                                      &
+        ONLY:  module_interface_last_actions
 
     USE multi_agent_system_mod,                                                &
@@ -560 +563 @@
     IF ( myid == 0 )  CALL header
 !
-!-- If required, final  user-defined actions, and
-!-- last actions on the open files and close files. Unit 14 was opened
-!-- in wrd_local but it is closed here, to allow writing on this
-!-- unit in routine user_last_actions.
+!-- Perform module specific last actions
     CALL cpu_log( log_point(4), 'last actions', 'start' )
 
-    IF ( myid == 0 .AND. agents_active ) CALL mas_last_actions
-    CALL user_last_actions
+    IF ( myid == 0 .AND. agents_active ) CALL mas_last_actions ! ToDo: move to module_interface
+
+    CALL module_interface_last_actions
+
+    CALL cpu_log( log_point(4), 'last actions', 'stop' )
+
+!
+!-- Close files
     CALL close_file( 0 )
     CALL close_dvrp
-
-    CALL cpu_log( log_point(4), 'last actions', 'stop' )
 
 !