Ignore:
Timestamp:
Jun 6, 2019 12:16:46 PM (5 years ago)
Author:
schwenkel
Message:

Modularization of all lagrangian particle model code components

File:
1 edited

Legend:

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

    r4008 r4017  
    242242               im_data_output_3d,                                              &
    243243               im_init
    244 
     244               
     245    USE lagrangian_particle_model_mod,                                         &
     246        ONLY:  lpm_parin,                                                      &
     247               lpm_header,                                                     &
     248               lpm_check_parameters,                                           &
     249               lpm_init,                                                       &
     250               lpm_actions,                                                    &
     251               lpm_rrd_global,                                                 &
     252               lpm_rrd_local,                                                  &
     253               lpm_wrd_local,                                                  &
     254               lpm_wrd_global
     255               
    245256    USE land_surface_model_mod,                                                &
    246257        ONLY:  lsm_parin,                                                      &
     
    290301               ocean_rrd_local,                                                &
    291302               ocean_wrd_local
     303               
     304    USE particle_attributes,                                                   &
     305        ONLY:  particle_advection               
    292306
    293307    USE plant_canopy_model_mod,                                                &
     
    558572    CALL gust_parin
    559573    CALL im_parin
     574    CALL lpm_parin     
    560575    CALL lsm_parin
    561576    ! ToDo: create parin routine for large_scale_forcing and nudging (should be seperate modules or new module switch)
     
    574589    CALL wtm_parin
    575590
    576     CALL package_parin ! ToDo: deprecated, needs to be dissolved
    577 
    578591    IF ( debug_output )  CALL debug_message( 'reading module-specific parameters', 'end' )
    579592
     
    596609    IF ( gust_module_enabled )  CALL gust_check_parameters
    597610    IF ( indoor_model )         CALL im_check_parameters
     611    IF ( particle_advection )   CALL lpm_check_parameters       
    598612    IF ( land_surface )         CALL lsm_check_parameters
    599613    IF ( large_scale_forcing  .OR.  nudging )  CALL lsf_nudging_check_parameters ! ToDo: create single module switch
     
    896910    IF ( gust_module_enabled )  CALL gust_init
    897911    IF ( indoor_model        )  CALL im_init
     912    IF ( particle_advection  )  CALL lpm_init   
    898913    IF ( large_scale_forcing )  CALL lsf_init
    899914    IF ( land_surface        )  CALL lsm_init
     
    950965    IF ( virtual_flight      )  CALL flight_header( io )
    951966    IF ( gust_module_enabled )  CALL gust_header( io )
     967    IF ( particle_advection  )  CALL lpm_header( io )   
    952968    IF ( land_surface        )  CALL lsm_header( io )
    953969    IF ( large_scale_forcing )  CALL lsf_nudging_header( io )
     
    981997    IF ( air_chemistry       )  CALL chem_actions( location )
    982998    IF ( gust_module_enabled )  CALL gust_actions( location )
     999    IF ( particle_advection  )  CALL lpm_actions( location )   
    9831000    IF ( ocean_mode          )  CALL ocean_actions( location )
    9841001    IF ( salsa               )  CALL salsa_actions( location )
     
    13771394    IF ( .NOT. found )  CALL flight_rrd_global( found ) ! ToDo: change interface to pass variable
    13781395    IF ( .NOT. found )  CALL gust_rrd_global( found ) ! ToDo: change interface to pass variable
     1396    IF ( .NOT. found )  CALL lpm_rrd_global( found ) ! ToDo: change interface to pass variable       
    13791397    IF ( .NOT. found )  CALL ocean_rrd_global( found ) ! ToDo: change interface to pass variable
    13801398    IF ( .NOT. found )  CALL stg_rrd_global ( found ) ! ToDo: change interface to pass variable
     
    14801498                            ) ! ToDo: change interface to pass variable
    14811499
     1500    IF ( .NOT. found ) CALL lpm_rrd_local(                                     &
     1501                               map_index,                                      &
     1502                               nxlf, nxlc, nxl_on_file,                        &
     1503                               nxrf, nxrc, nxr_on_file,                        &
     1504                               nynf, nync, nyn_on_file,                        &
     1505                               nysf, nysc, nys_on_file,                        &
     1506                               tmp_3d, found                                   &
     1507                            ) ! ToDo: change interface to pass variable
     1508
    14821509    IF ( .NOT. found ) CALL lsm_rrd_local(                                     &
    14831510                               map_index,                                      &
     
    15571584    IF ( air_chemistry )        CALL chem_wrd_local
    15581585    IF ( gust_module_enabled )  CALL gust_wrd_local
     1586    IF ( particle_advection )   CALL lpm_wrd_local   
    15591587    IF ( land_surface )         CALL lsm_wrd_local
    15601588    IF ( ocean_mode )           CALL ocean_wrd_local
Note: See TracChangeset for help on using the changeset viewer.