Ignore:
Timestamp:
Jan 31, 2019 1:44:26 PM (2 years ago)
Author:
knoop
Message:

Introduced module_interface_init_checks for post-init checks

File:
1 edited

Legend:

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

    r3705 r3711  
    2525! -----------------
    2626! $Id$
     27! Introduced module_interface_init_checks for post-init checks
     28!
     29! 3705 2019-01-29 19:56:39Z suehring
    2730! Add last_actions for virtual measurements
    2831!
     
    8790              bio_check_data_output,                                           &
    8891              bio_init,                                                        &
     92              bio_init_checks,                                                 &
    8993              bio_header,                                                      &
    9094              bio_3d_data_averaging,                                           &
     
    321325      module_interface_init_arrays,                                            &
    322326      module_interface_init,                                                   &
     327      module_interface_init_checks,                                            &
    323328      module_interface_header,                                                 &
    324329      module_interface_actions,                                                &
     
    370375      MODULE PROCEDURE module_interface_init
    371376   END INTERFACE module_interface_init
     377
     378   INTERFACE module_interface_init_checks
     379      MODULE PROCEDURE module_interface_init_checks
     380   END INTERFACE module_interface_init_checks
    372381
    373382   INTERFACE module_interface_header
     
    748757! Description:
    749758! ------------
     759!> Perform module-specific post-initialization checks
     760!------------------------------------------------------------------------------!
     761SUBROUTINE module_interface_init_checks
     762
     763
     764   IF ( biometeorology      )  CALL bio_init_checks
     765
     766
     767END SUBROUTINE module_interface_init_checks
     768
     769
     770!------------------------------------------------------------------------------!
     771! Description:
     772! ------------
    750773!> Gather module-specific header output
    751774!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.