Changeset 3386 for palm/trunk/SOURCE/turbulence_closure_mod.f90
 Timestamp:
 Oct 19, 2018 4:28:22 PM (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/turbulence_closure_mod.f90
r3385 r3386 25 25 !  26 26 ! $Id$ 27 ! Renamed tcm_prognostic to tcm_prognostic_equations 28 ! 29 ! 3385 20181019 14:52:29Z knoop 27 30 ! Restructured loops and ifs in production_e to ease vectorization on GPUs 28 31 ! … … 309 312 ! 310 313 ! Prognostic equations for TKE and TKE dissipation rate 311 INTERFACE tcm_prognostic 312 MODULE PROCEDURE tcm_prognostic 313 MODULE PROCEDURE tcm_prognostic_ ij314 END INTERFACE tcm_prognostic 314 INTERFACE tcm_prognostic_equations 315 MODULE PROCEDURE tcm_prognostic_equations 316 MODULE PROCEDURE tcm_prognostic_equations_ij 317 END INTERFACE tcm_prognostic_equations 315 318 316 319 ! … … 386 389 tcm_check_parameters, tcm_data_output_2d, tcm_data_output_3d, & 387 390 tcm_define_netcdf_grid, tcm_diffusivities, tcm_init, & 388 tcm_init_arrays, tcm_prognostic , tcm_swap_timelevel391 tcm_init_arrays, tcm_prognostic_equations, tcm_swap_timelevel 389 392 390 393 … … 2022 2025 !> Vectoroptimized version 2023 2026 !! 2024 SUBROUTINE tcm_prognostic 2027 SUBROUTINE tcm_prognostic_equations 2025 2028 2026 2029 USE arrays_3d, & … … 2300 2303 ENDIF 2301 2304 2302 END SUBROUTINE tcm_prognostic 2305 END SUBROUTINE tcm_prognostic_equations 2303 2306 2304 2307 … … 2309 2312 !> Cacheoptimized version 2310 2313 !! 2311 SUBROUTINE tcm_prognostic_ ij( i, j, i_omp, tn )2314 SUBROUTINE tcm_prognostic_equations_ij( i, j, i_omp, tn ) 2312 2315 2313 2316 USE arrays_3d, & … … 2532 2535 ENDIF ! dissipation equation 2533 2536 2534 END SUBROUTINE tcm_prognostic_ ij2537 END SUBROUTINE tcm_prognostic_equations_ij 2535 2538 2536 2539
Note: See TracChangeset
for help on using the changeset viewer.