Ignore:
Timestamp:
Jun 21, 2019 9:00:21 PM (2 years ago)
Author:
knoop
Message:

Moved turbulence_closure_mod calls into module_interface

File:
1 edited

Legend:

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

    r4047 r4048  
    2525! -----------------
    2626! $Id$
     27! Moved turbulence_closure_mod calls into this module_interface
     28!
     29! 4047 2019-06-21 18:58:09Z knoop
    2730! Introduction of the dynamics module
    2831!
     
    168171
    169172    USE turbulence_closure_mod, &
    170         ONLY:  tcm_swap_timelevel
     173        ONLY:  tcm_check_parameters, &
     174               tcm_check_data_output, &
     175               tcm_init_arrays, &
     176               tcm_init, &
     177               tcm_actions, &
     178               tcm_prognostic_equations, &
     179               tcm_swap_timelevel, &
     180               tcm_3d_data_averaging, &
     181               tcm_data_output_2d, &
     182               tcm_data_output_3d
    171183
    172184    USE control_parameters,                                                    &
     
    659671
    660672    CALL dynamics_check_parameters
     673    CALL tcm_check_parameters
    661674
    662675    IF ( bulk_cloud_model )     CALL bcm_check_parameters
     
    797810    CALL dynamics_check_data_output( variable, unit )
    798811
     812    CALL tcm_check_data_output( variable, unit )
     813
    799814    IF ( unit == 'illegal'  .AND.  biometeorology )  THEN
    800815       CALL bio_check_data_output( variable, unit, i, j, ilen, k )
     
    946961
    947962    CALL dynamics_init_arrays
     963    CALL tcm_init_arrays
    948964
    949965    IF ( bulk_cloud_model    )  CALL bcm_init_arrays
     
    977993
    978994    CALL dynamics_init
     995    CALL tcm_init
    979996
    980997    IF ( biometeorology      )  CALL bio_init
     
    10741091
    10751092    CALL dynamics_actions( location )
     1093    CALL tcm_actions( location )
    10761094
    10771095    IF ( bulk_cloud_model    )  CALL bcm_actions( location )
     
    11021120
    11031121    CALL dynamics_actions( i, j, location )
     1122    CALL tcm_actions( i, j, location )
    11041123
    11051124    IF ( bulk_cloud_model    )  CALL bcm_actions( i, j, location )
     
    11851204
    11861205    CALL dynamics_prognostic_equations
     1206    CALL tcm_prognostic_equations
    11871207
    11881208    IF ( bulk_cloud_model    )  CALL bcm_prognostic_equations
     
    12101230
    12111231    CALL dynamics_prognostic_equations( i, j, i_omp_start, tn )
     1232    CALL tcm_prognostic_equations( i, j, i_omp_start, tn )
    12121233
    12131234    IF ( bulk_cloud_model    )  CALL bcm_prognostic_equations( i, j, i_omp_start, tn )
     
    12671288
    12681289    CALL dynamics_3d_data_averaging( mode, variable )
     1290    CALL tcm_3d_data_averaging( mode, variable )
    12691291
    12701292    IF ( biometeorology      )  CALL bio_3d_data_averaging( mode, variable )
     
    13151337            )
    13161338
     1339    IF ( .NOT. found )  THEN
     1340       CALL tcm_data_output_2d(                                                  &
     1341               av, variable, found, grid, mode, local_pf, nzb_do, nzt_do &
     1342            )
     1343    ENDIF
     1344
    13171345    IF ( .NOT. found  .AND.  biometeorology )  THEN
    13181346       CALL bio_data_output_2d(                                                &
     
    14061434    CALL dynamics_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do )
    14071435    resorted = .FALSE.
     1436
     1437    IF ( .NOT. found )  THEN
     1438       CALL tcm_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
     1439       resorted = .TRUE.
     1440    ENDIF
    14081441
    14091442    IF ( .NOT. found  .AND.  biometeorology )  THEN
Note: See TracChangeset for help on using the changeset viewer.