Ignore:
Timestamp:
Jan 22, 2019 10:42:06 AM (2 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r3685 r3687  
    295295
    296296    USE kinds
     297
     298    USE module_interface,                                                      &
     299        ONLY:  module_interface_last_actions
    297300
    298301    USE multi_agent_system_mod,                                                &
     
    560563    IF ( myid == 0 )  CALL header
    561564!
    562 !-- If required, final  user-defined actions, and
    563 !-- last actions on the open files and close files. Unit 14 was opened
    564 !-- in wrd_local but it is closed here, to allow writing on this
    565 !-- unit in routine user_last_actions.
     565!-- Perform module specific last actions
    566566    CALL cpu_log( log_point(4), 'last actions', 'start' )
    567567
    568     IF ( myid == 0 .AND. agents_active ) CALL mas_last_actions
    569     CALL user_last_actions
     568    IF ( myid == 0 .AND. agents_active ) CALL mas_last_actions ! ToDo: move to module_interface
     569
     570    CALL module_interface_last_actions
     571
     572    CALL cpu_log( log_point(4), 'last actions', 'stop' )
     573
     574!
     575!-- Close files
    570576    CALL close_file( 0 )
    571577    CALL close_dvrp
    572 
    573     CALL cpu_log( log_point(4), 'last actions', 'stop' )
    574578
    575579!
Note: See TracChangeset for help on using the changeset viewer.