Ignore:
Timestamp:
Oct 17, 2019 11:29:38 AM (4 years ago)
Author:
schwenkel
Message:

Introducing module interface for boundary conditions and move module specific boundary conditions into their modules

File:
1 edited

Legend:

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

    r4182 r4268  
    2525! -----------------
    2626! $Id$
     27! Introduction of module_interface_boundary_conditions
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! Corrected "Former revisions" section
    2831!
     
    245248               bcm_exchange_horiz,                                             &
    246249               bcm_prognostic_equations,                                       &
     250               bcm_boundary_conditions,                                        &
    247251               bcm_swap_timelevel,                                             &
    248252               bcm_3d_data_averaging,                                          &
     
    266270              chem_non_advective_processes,                                    &
    267271              chem_prognostic_equations,                                       &
     272              chem_boundary_conditions,                                        &
    268273              chem_swap_timelevel,                                             &
    269274              chem_3d_data_averaging,                                          &
     
    418423               salsa_exchange_horiz_bounds,                                    &
    419424               salsa_prognostic_equations,                                     &
     425               salsa_boundary_conditions,                                      &
    420426               salsa_swap_timelevel,                                           &
    421427               salsa_3d_data_averaging,                                        &
     
    520526       module_interface_exchange_horiz,                                        &
    521527       module_interface_prognostic_equations,                                  &
     528       module_interface_boundary_conditions,                                   &
    522529       module_interface_swap_timelevel,                                        &
    523530       module_interface_3d_data_averaging,                                     &
     
    598605       MODULE PROCEDURE module_interface_swap_timelevel
    599606    END INTERFACE module_interface_swap_timelevel
     607
     608    INTERFACE module_interface_boundary_conditions
     609       MODULE PROCEDURE module_interface_boundary_conditions
     610    END INTERFACE module_interface_boundary_conditions
    600611
    601612    INTERFACE module_interface_3d_data_averaging
     
    12731284 END SUBROUTINE module_interface_prognostic_equations_ij
    12741285
     1286!------------------------------------------------------------------------------!
     1287! Description:
     1288! ------------
     1289!> Compute module-specific boundary conditions
     1290!------------------------------------------------------------------------------!
     1291 SUBROUTINE module_interface_boundary_conditions
     1292
     1293
     1294    IF ( debug_output_timestep )  CALL debug_message( 'module-specific boundary_conditions', 'start' )
     1295
     1296    IF ( bulk_cloud_model    )  CALL bcm_boundary_conditions
     1297    IF ( air_chemistry       )  CALL chem_boundary_conditions
     1298    IF ( salsa               )  CALL salsa_boundary_conditions
     1299
     1300    IF ( debug_output_timestep )  CALL debug_message( 'module-specific boundary_conditions', 'end' )
     1301
     1302
     1303 END SUBROUTINE module_interface_boundary_conditions
    12751304
    12761305!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.