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

renamed tcm_prognostic to tcm_prognostic_equations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.