Changeset 3386 for palm/trunk/SOURCE

Timestamp:

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

Author:

gronemeier

Message:

renamed tcm_prognostic to tcm_prognostic_equations

Location:

palm/trunk/SOURCE

Files:

• prognostic_equations.f90 (modified) (4 diffs)
• turbulence_closure_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed tcm_prognostic to tcm_prognostic_equations
+! 
+! 3355 2018-10-16 14:03:34Z knoop
 ! (from branch resler)
 ! Fix for chemistry call
@@ -412 +415 @@
 
     USE turbulence_closure_mod,                                                &
-        ONLY:  tcm_prognostic
+        ONLY:  tcm_prognostic_equations
 
     USE user_actions_mod,                                                      &
@@ -1294 +1297 @@
 !
 !--       Calculate prognostic equations for turbulence closure
-          CALL tcm_prognostic( i, j, i_omp_start, tn )
+          CALL tcm_prognostic_equations( i, j, i_omp_start, tn )
 
 !
@@ -2364 +2367 @@
 !
 !-- Calculate prognostic equations for turbulence closure
-    CALL tcm_prognostic()
+    CALL tcm_prognostic_equations()
 
 !

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