Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 3684


Ignore:
Timestamp:
Jan 20, 2019 8:20:58 PM (5 years ago)
Author:
knoop
Message:

Enabled module_interface_actions in time_integration and prognostic_equations

Location:
palm/trunk/SOURCE
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/Makefile

    r3679 r3684  
    13421342        synthetic_turbulence_generator_mod.o \
    13431343        urban_surface_mod.o \
     1344        user_actions.o \
    13441345        user_read_restart_data_mod.o \
    13451346        user_write_restart_data_mod.o \
    … …  
    14001401        modules.o \
    14011402        pmc_interface_mod.o \
    1402         surface_mod.o \
    1403         user_actions.o
     1403        surface_mod.o
    14041404outflow_turbulence.o: \
    14051405        cpulog_mod.o \
    … …  
    15411541        mod_kinds.o \
    15421542        mod_kinds.o \
    1543         modules.o \
     1543        module_interface.o \
    15441544        modules.o \
    15451545        ocean_mod.o \
    … …  
    15511551        surface_mod.o \
    15521552        turbulence_closure_mod.o \
    1553         user_actions.o \
    15541553        wind_turbine_model_mod.o
    15551554progress_bar_mod.o: \
    … …  
    16911690        data_output_flight.o \
    16921691        disturb_heatflux.o \
    1693         gust_mod.o \
    16941692        indoor_model_mod.o \
    16951693        interaction_droplets_ptq.o \
    … …  
    17151713        turbulence_closure_mod.o\
    17161714        urban_surface_mod.o \
    1717         user_actions.o \
    17181715        vertical_nesting_mod.o \
    17191716        virtual_flight_mod.o \
    … …  
    17671764        pmc_interface_mod.o \
    17681765        surface_layer_fluxes_mod.o \
    1769         surface_mod.o \
    1770         user_actions.o
     1766        surface_mod.o
    17711767urban_surface_mod.o: \
    17721768        basic_constants_and_equations_mod.o \

  • palm/trunk/SOURCE/module_interface.f90

    r3655 r3684  
    130130              gust_check_data_output,                                          &
    131131              gust_header,                                                     &
     132              gust_actions,                                                    &
    132133              gust_swap_timelevel,                                             &
    133134              gust_3d_data_averaging,                                          &
    … …  
    240241              usm_rrd_local,                                                   &
    241242              usm_wrd_local
     243
     244   USE user_actions_mod,                                                       &
     245       ONLY:  user_actions
    242246
    243247   USE user_read_restart_data_mod,                                             &
    … …  
    637641
    638642
     643   IF ( gust_module_enabled )  CALL gust_actions( location )
     644
     645   CALL user_actions( location ) ! ToDo: make user module switch
     646
     647
    639648END SUBROUTINE module_interface_actions
    640649
    … …  
    651660   INTEGER(iwp),      INTENT(IN) ::  j         !< grid index in y-direction
    652661   CHARACTER (LEN=*), INTENT(IN) ::  location  !< call location string
     662
     663
     664   IF ( gust_module_enabled )  CALL gust_actions( i, j, location )
     665
     666   CALL user_actions( i, j, location ) ! ToDo: make user module switch
    653667
    654668

  • palm/trunk/SOURCE/ocean_mod.f90

    r3636 r3684  
    15041504               surf_usm_v
    15051505
    1506     USE user_actions_mod,                                                      &
    1507         ONLY:  user_actions
    1508 
    15091506    IMPLICIT NONE
    15101507
    … …  
    15751572                         surf_usm_v(2)%sasws, surf_usm_v(3)%sasws )
    15761573
    1577        CALL user_actions( 'sa-tendency' )
     1574!       CALL user_actions( 'sa-tendency' ) ToDo: find general solution for dependency between modules
    15781575
    15791576!
    … …  
    16671664               surf_usm_v
    16681665
    1669     USE user_actions_mod,                                                      &
    1670         ONLY:  user_actions
    1671 
    16721666    IMPLICIT NONE
    16731667
    … …  
    17201714                         surf_usm_v(2)%sasws, surf_usm_v(3)%sasws )
    17211715
    1722        CALL user_actions( i, j, 'sa-tendency' )
     1716!       CALL user_actions( i, j, 'sa-tendency' ) ToDo: find general solution for dependency between modules
    17231717
    17241718!

  • palm/trunk/SOURCE/prognostic_equations.f90

    r3655 r3684  
    409409        ONLY:  ls_advec, nudge
    410410
     411    USE module_interface,                                                      &
     412        ONLY:  module_interface_actions
     413
    411414    USE ocean_mod,                                                             &
    412415        ONLY:  ocean_prognostic_equations, stokes_drift_terms, stokes_force,   &
    … …  
    442445        ONLY:  tcm_prognostic_equations
    443446
    444     USE user_actions_mod,                                                      &
    445         ONLY:  user_actions
    446 
    447447    USE wind_turbine_model_mod,                                                &
    448448        ONLY:  wtm_tendencies
    … …  
    694694             IF ( wind_turbine )  CALL wtm_tendencies( i, j, 1 )
    695695
    696              CALL user_actions( i, j, 'u-tendency' )
     696             CALL module_interface_actions( i, j, 'u-tendency' )
    697697!
    698698!--          Prognostic equation for u-velocity component
    … …  
    777777             IF ( wind_turbine )  CALL wtm_tendencies( i, j, 2 )
    778778
    779              CALL user_actions( i, j, 'v-tendency' )
     779             CALL module_interface_actions( i, j, 'v-tendency' )
    780780!
    781781!--          Prognostic equation for v-velocity component
    … …  
    856856          IF ( wind_turbine )  CALL wtm_tendencies( i, j, 3 )
    857857
    858           CALL user_actions( i, j, 'w-tendency' )
     858          CALL module_interface_actions( i, j, 'w-tendency' )
    859859!
    860860!--       Prognostic equation for w-velocity component
    … …  
    944944
    945945
    946              CALL user_actions( i, j, 'pt-tendency' )
     946             CALL module_interface_actions( i, j, 'pt-tendency' )
    947947!
    948948!--          Prognostic equation for potential temperature
    … …  
    10291029             ENDIF
    10301030
    1031              CALL user_actions( i, j, 'q-tendency' )
     1031             CALL module_interface_actions( i, j, 'q-tendency' )
    10321032
    10331033!
    … …  
    13501350             ENDIF
    13511351
    1352              CALL user_actions( i, j, 's-tendency' )
     1352             CALL module_interface_actions( i, j, 's-tendency' )
    13531353
    13541354!
    … …  
    16151615    IF ( wind_turbine )  CALL wtm_tendencies( 1 )
    16161616
    1617     CALL user_actions( 'u-tendency' )
     1617    CALL module_interface_actions( 'u-tendency' )
    16181618
    16191619!
    … …  
    17221722    IF ( wind_turbine )  CALL wtm_tendencies( 2 )
    17231723
    1724     CALL user_actions( 'v-tendency' )
     1724    CALL module_interface_actions( 'v-tendency' )
    17251725
    17261726!
    … …  
    18251825    IF ( wind_turbine )  CALL wtm_tendencies( 3 )
    18261826
    1827     CALL user_actions( 'w-tendency' )
     1827    CALL module_interface_actions( 'w-tendency' )
    18281828
    18291829!
    … …  
    19571957       ENDIF
    19581958
    1959        CALL user_actions( 'pt-tendency' )
     1959       CALL module_interface_actions( 'pt-tendency' )
    19601960
    19611961!
    … …  
    20812081       ENDIF
    20822082
    2083        CALL user_actions( 'q-tendency' )
     2083       CALL module_interface_actions( 'q-tendency' )
    20842084
    20852085!
    … …  
    25562556       ENDIF
    25572557
    2558        CALL user_actions( 's-tendency' )
     2558       CALL module_interface_actions( 's-tendency' )
    25592559
    25602560!

  • palm/trunk/SOURCE/time_integration.f90

    r3658 r3684  
    514514        ONLY:  flight_measurement
    515515
    516     USE gust_mod,                                                              &
    517         ONLY:  gust_actions, gust_module_enabled
    518 
    519516    USE indices,                                                               &
    520517        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt, &
    … …  
    537534    USE lsf_nudging_mod,                                                       &
    538535        ONLY:  calc_tnudge, ls_forcing_surf, ls_forcing_vert, nudge_ref
     536
     537    USE module_interface,                                                      &
     538        ONLY:  module_interface_actions
    539539
    540540    USE multi_agent_system_mod,                                                &
    … …  
    616616        ONLY:  dt_stg_call, dt_stg_adjust, parametrize_inflow_turbulence,      &
    617617               stg_adjust, stg_main, time_stg_adjust, time_stg_call,           &
    618                use_syn_turb_gen   
    619 
    620     USE user_actions_mod,                                                      &
    621         ONLY:  user_actions
     618               use_syn_turb_gen
    622619
    623620
    … …  
    836833
    837834!
    838 !--    Execute the gust module actions
    839        IF ( gust_module_enabled )  THEN
    840           CALL gust_actions( 'before_timestep' )
    841        ENDIF
    842 
    843 !
    844 !--    Execute the user-defined actions
    845        CALL user_actions( 'before_timestep' )
     835!--    Execute alle other module actions routunes
     836       CALL module_interface_actions( 'before_timestep' )
    846837
    847838!
    … …  
    15311522
    15321523!
    1533 !--    Execute the gust module actions
    1534        IF ( gust_module_enabled )  THEN
    1535           CALL gust_actions( 'after_integration' )
    1536        ENDIF
    1537 
    1538 !
    1539 !--    Execute user-defined actions
    1540        CALL user_actions( 'after_integration' )
     1524!--    Execute alle other module actions routunes
     1525       CALL module_interface_actions( 'after_integration' )
    15411526
    15421527!
    … …  
    17621747
    17631748!
    1764 !--    Execute the gust module actions
    1765        IF ( gust_module_enabled )  THEN
    1766           CALL gust_actions( 'after_timestep' )
    1767        ENDIF
    1768 
    1769 !
    1770 !--    Execute user-defined actions
    1771        CALL user_actions( 'after_timestep' )
     1749!--    Execute alle other module actions routunes
     1750       CALL module_interface_actions( 'after_timestep' )
    17721751
    17731752!

  • palm/trunk/SOURCE/turbulence_closure_mod.f90

    r3646 r3684  
    233233        ONLY:  hom, hom_sum, statistic_regions
    234234
    235     USE user_actions_mod,                                                      &
    236         ONLY:  user_actions
    237 
    238235
    239236    IMPLICIT NONE
    … …  
    20032000       IF ( plant_canopy )  CALL pcm_tendency( 6 )
    20042001
    2005        CALL user_actions( 'e-tendency' )
     2002!       CALL user_actions( 'e-tendency' ) ToDo: find general solution for circular dependency between modules
    20062003
    20072004!
    … …  
    21102107!        IF ( plant_canopy )  CALL pcm_tendency( ? )         !> @todo not yet implemented
    21112108
    2112 !        CALL user_actions( 'diss-tendency' )                !> @todo not yet implemented
     2109!       CALL user_actions( 'e-tendency' ) ToDo: find general solution for circular dependency between modules
    21132110
    21142111!
    … …  
    22222219       IF ( plant_canopy )  CALL pcm_tendency( i, j, 6 )
    22232220
    2224        CALL user_actions( i, j, 'e-tendency' )
     2221!       CALL user_actions( i, j, 'e-tendency' ) ToDo: find general solution for circular dependency between modules
    22252222
    22262223!
    … …  
    22842281!        IF ( plant_canopy )  CALL pcm_tendency( i, j, ? )     !> @todo not yet implemented
    22852282
    2286 !        CALL user_actions( i, j, 'diss-tendency' )            !> @todo not yet implemented
     2283!       CALL user_actions( i, j, 'diss-tendency' ) ToDo: find general solution for circular dependency between modules
    22872284
    22882285!

  • palm/trunk/SOURCE/user_flight.f90

    r3655 r3684  
    1 !> @file user_actions.f90
     1!> @file user_flight.f90
    22!------------------------------------------------------------------------------!
    33! This file is part of the PALM model system.
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |