Changeset 3711


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

Introduced module_interface_init_checks for post-init checks

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r3693 r3711  
    2727! -----------------
    2828! $Id$
     29! Introduced interface routine bio_init_checks + small error message changes
     30!
     31! 3693 2019-01-23 15:20:53Z dom_dwd_user
    2932! Added usage of time_averaged mean radiant temperature, together with calculation,
    3033! grid and restart routines. General cleanup and commenting.
     
    245248    bio_check_parameters, bio_data_output_3d, bio_data_output_2d,              &
    246249    bio_define_netcdf_grid, bio_get_thermal_index_input_ij, bio_header,        &
    247     bio_init, bio_parin, bio_perct, bio_perct_av, bio_pet,                     &
     250    bio_init, bio_init_checks, bio_parin, bio_perct, bio_perct_av, bio_pet,    &
    248251    bio_pet_av, bio_utci, bio_utci_av, thermal_comfort, time_bio_results,      &
    249252    bio_nmrtbl, bio_wrd_local, bio_rrd_local, bio_wrd_global, bio_rrd_global
     
    314317       MODULE PROCEDURE bio_init
    315318    END INTERFACE bio_init
     319!
     320!-- Initialization checks
     321    INTERFACE bio_init_checks
     322       MODULE PROCEDURE bio_init_checks
     323    END INTERFACE bio_init_checks
    316324!
    317325!-- Reading of NAMELIST parameters
     
    816824                           'air humidity information, but humidity module ' // &
    817825                           'is disabled!'
    818           CALL message( 'check_parameters', 'PA0561', 0, 0, 0, 6, 0 )
     826          CALL message( 'bio_check_parameters', 'PA0561', 1, 2, 0, 6, 0 )
    819827       ENDIF
    820828
     
    11361144 SUBROUTINE bio_init
    11371145
    1138     USE control_parameters,                                                    &
    1139         ONLY: message_string
    1140 
    11411146    USE netcdf_data_input_mod,                                                 &
    11421147        ONLY:  netcdf_data_input_uvem
     
    11601165    bio_output_height = bio_output_height + bio_cell_level * dz(1)
    11611166
     1167!
     1168!-- Init UVEM and load lookup tables
     1169    IF ( uv_exposure )  CALL netcdf_data_input_uvem
     1170   
     1171    CALL location_message( 'finished', .TRUE. )
     1172
     1173 END SUBROUTINE bio_init
     1174
     1175
     1176!------------------------------------------------------------------------------!
     1177! Description:
     1178! ------------
     1179!> Checks done after the Initialization
     1180!------------------------------------------------------------------------------!
     1181 SUBROUTINE bio_init_checks
     1182
     1183    USE control_parameters,                                                    &
     1184        ONLY: message_string
     1185
    11621186    IF ( .NOT. radiation_interactions ) THEN
    11631187       message_string = 'The mrt calculation requires ' //                     &
    11641188                        'enabled radiation_interactions but it ' //            &
    11651189                        'is disabled!'
    1166        CALL message( 'check_parameters', 'PAHU03', 0, 0, -1, 6, 0 )
    1167     ENDIF
    1168 
    1169 !
    1170 !-- Init UVEM and load lookup tables
    1171     IF ( uv_exposure )  CALL netcdf_data_input_uvem
    1172    
    1173     CALL location_message( 'finished', .TRUE. )
    1174 
    1175  END SUBROUTINE bio_init
     1190       CALL message( 'bio_init_checks', 'PAHU03', 1, 2, 0, 6, 0 )
     1191    ENDIF
     1192
     1193
     1194 END SUBROUTINE bio_init_checks
    11761195
    11771196
  • palm/trunk/SOURCE/init_3d_model.f90

    r3700 r3711  
    2525! -----------------
    2626! $Id$
     27! Introduced module_interface_init_checks for post-init checks in modules
     28!
     29! 3700 2019-01-26 17:03:42Z knoop
    2730! Some interface calls moved to module_interface + cleanup
    2831!
     
    611614
    612615    USE module_interface,                                                      &
    613         ONLY:  module_interface_init_arrays, module_interface_init
     616        ONLY:  module_interface_init_arrays,                                   &
     617               module_interface_init,                                          &
     618               module_interface_init_checks
    614619
    615620    USE multi_agent_system_mod,                                                &
     
    22452250!-- Initialize the ws-scheme.   
    22462251    IF ( ws_scheme_sca .OR. ws_scheme_mom )  CALL ws_init
     2252!
     2253!-- Perform post-initializing checks for all other modules
     2254    CALL module_interface_init_checks
    22472255
    22482256!
  • 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.