Changeset 3386 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

Oct 19, 2018 4:28:22 PM (6 years ago)

Author:

gronemeier

Message:

renamed tcm_prognostic to tcm_prognostic_equations

File:

• palm/trunk/SOURCE/turbulence_closure_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed tcm_prognostic to tcm_prognostic_equations
+! 
+! 3385 2018-10-19 14:52:29Z knoop
 ! Restructured loops and ifs in production_e to ease vectorization on GPUs
 ! 
@@ -309 +312 @@
 !
 !-- Prognostic equations for TKE and TKE dissipation rate
-    INTERFACE tcm_prognostic
-       MODULE PROCEDURE tcm_prognostic
-       MODULE PROCEDURE tcm_prognostic_ij
-    END INTERFACE tcm_prognostic
+    INTERFACE tcm_prognostic_equations
+       MODULE PROCEDURE tcm_prognostic_equations
+       MODULE PROCEDURE tcm_prognostic_equations_ij
+    END INTERFACE tcm_prognostic_equations
 
 !
@@ -386 +389 @@
            tcm_check_parameters, tcm_data_output_2d, tcm_data_output_3d,       &
            tcm_define_netcdf_grid, tcm_diffusivities, tcm_init,                &
-           tcm_init_arrays, tcm_prognostic, tcm_swap_timelevel
+           tcm_init_arrays, tcm_prognostic_equations, tcm_swap_timelevel
 
 
@@ -2022 +2025 @@
 !> Vector-optimized version
 !------------------------------------------------------------------------------!
- SUBROUTINE tcm_prognostic
+ SUBROUTINE tcm_prognostic_equations
 
     USE arrays_3d,                                                             &
@@ -2300 +2303 @@
     ENDIF
 
- END SUBROUTINE tcm_prognostic
+ END SUBROUTINE tcm_prognostic_equations
 
 
@@ -2309 +2312 @@
 !> Cache-optimized version
 !------------------------------------------------------------------------------!
- SUBROUTINE tcm_prognostic_ij( i, j, i_omp, tn )
+ SUBROUTINE tcm_prognostic_equations_ij( i, j, i_omp, tn )
 
     USE arrays_3d,                                                             &
@@ -2532 +2535 @@
     ENDIF   ! dissipation equation
 
- END SUBROUTINE tcm_prognostic_ij
+ END SUBROUTINE tcm_prognostic_equations_ij