Changeset 3386
 Timestamp:
 Oct 19, 2018 4:28:22 PM (4 years ago)
 Location:
 palm/trunk/SOURCE
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/prognostic_equations.f90
r3355 r3386 25 25 !  26 26 ! $Id$ 27 ! Renamed tcm_prognostic to tcm_prognostic_equations 28 ! 29 ! 3355 20181016 14:03:34Z knoop 27 30 ! (from branch resler) 28 31 ! Fix for chemistry call … … 412 415 413 416 USE turbulence_closure_mod, & 414 ONLY: tcm_prognostic 417 ONLY: tcm_prognostic_equations 415 418 416 419 USE user_actions_mod, & … … 1294 1297 ! 1295 1298 ! Calculate prognostic equations for turbulence closure 1296 CALL tcm_prognostic ( i, j, i_omp_start, tn )1299 CALL tcm_prognostic_equations( i, j, i_omp_start, tn ) 1297 1300 1298 1301 ! … … 2364 2367 ! 2365 2368 ! Calculate prognostic equations for turbulence closure 2366 CALL tcm_prognostic ()2369 CALL tcm_prognostic_equations() 2367 2370 2368 2371 ! 
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.