Changeset 3386


Ignore:
Timestamp:
Oct 19, 2018 4:28:22 PM (5 years ago)
Author:
gronemeier
Message:

renamed tcm_prognostic to tcm_prognostic_equations

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3355 r3386  
    2525! -----------------
    2626! $Id$
     27! Renamed tcm_prognostic to tcm_prognostic_equations
     28!
     29! 3355 2018-10-16 14:03:34Z knoop
    2730! (from branch resler)
    2831! Fix for chemistry call
     
    412415
    413416    USE turbulence_closure_mod,                                                &
    414         ONLY:  tcm_prognostic
     417        ONLY:  tcm_prognostic_equations
    415418
    416419    USE user_actions_mod,                                                      &
     
    12941297!
    12951298!--       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 )
    12971300
    12981301!
     
    23642367!
    23652368!-- Calculate prognostic equations for turbulence closure
    2366     CALL tcm_prognostic()
     2369    CALL tcm_prognostic_equations()
    23672370
    23682371!
  • palm/trunk/SOURCE/turbulence_closure_mod.f90

    r3385 r3386  
    2525! -----------------
    2626! $Id$
     27! Renamed tcm_prognostic to tcm_prognostic_equations
     28!
     29! 3385 2018-10-19 14:52:29Z knoop
    2730! Restructured loops and ifs in production_e to ease vectorization on GPUs
    2831!
     
    309312!
    310313!-- Prognostic equations for TKE and TKE dissipation rate
    311     INTERFACE tcm_prognostic
    312        MODULE PROCEDURE tcm_prognostic
    313        MODULE PROCEDURE tcm_prognostic_ij
    314     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
    315318
    316319!
     
    386389           tcm_check_parameters, tcm_data_output_2d, tcm_data_output_3d,       &
    387390           tcm_define_netcdf_grid, tcm_diffusivities, tcm_init,                &
    388            tcm_init_arrays, tcm_prognostic, tcm_swap_timelevel
     391           tcm_init_arrays, tcm_prognostic_equations, tcm_swap_timelevel
    389392
    390393
     
    20222025!> Vector-optimized version
    20232026!------------------------------------------------------------------------------!
    2024  SUBROUTINE tcm_prognostic
     2027 SUBROUTINE tcm_prognostic_equations
    20252028
    20262029    USE arrays_3d,                                                             &
     
    23002303    ENDIF
    23012304
    2302  END SUBROUTINE tcm_prognostic
     2305 END SUBROUTINE tcm_prognostic_equations
    23032306
    23042307
     
    23092312!> Cache-optimized version
    23102313!------------------------------------------------------------------------------!
    2311  SUBROUTINE tcm_prognostic_ij( i, j, i_omp, tn )
     2314 SUBROUTINE tcm_prognostic_equations_ij( i, j, i_omp, tn )
    23122315
    23132316    USE arrays_3d,                                                             &
     
    25322535    ENDIF   ! dissipation equation
    25332536
    2534  END SUBROUTINE tcm_prognostic_ij
     2537 END SUBROUTINE tcm_prognostic_equations_ij
    25352538
    25362539
Note: See TracChangeset for help on using the changeset viewer.