Changeset 3837 for palm/trunk/SOURCE/gust_mod.f90

Timestamp:

Mar 28, 2019 4:55:58 PM (5 years ago)

Author:

knoop

Message:

Added module_interface for prognostic_equations

File:

• palm/trunk/SOURCE/gust_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/gust_mod.f90

@@ -85 +85 @@
        gust_header, &
        gust_actions, &
+       gust_prognostic_equations, &
        gust_swap_timelevel, &
        gust_3d_data_averaging, &
@@ -137 +138 @@
     END INTERFACE gust_actions
 
+    INTERFACE gust_prognostic_equations
+       MODULE PROCEDURE gust_prognostic_equations
+       MODULE PROCEDURE gust_prognostic_equations_ij
+    END INTERFACE gust_prognostic_equations
+
     INTERFACE gust_swap_timelevel
        MODULE PROCEDURE gust_swap_timelevel
@@ -380 +386 @@
 
     END SUBROUTINE gust_actions_ij
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Call for all grid points
+!------------------------------------------------------------------------------!
+    SUBROUTINE gust_prognostic_equations()
+
+!
+!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
+       IF ( dummy_logical )  idum = 1
+
+    END SUBROUTINE gust_prognostic_equations
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Call for grid point i,j
+!------------------------------------------------------------------------------!
+    SUBROUTINE gust_prognostic_equations_ij( i, j, i_omp_start, tn )
+
+
+       INTEGER(iwp), INTENT(IN) ::  i            !< grid index in x-direction
+       INTEGER(iwp), INTENT(IN) ::  j            !< grid index in y-direction
+       INTEGER(iwp), INTENT(IN) ::  i_omp_start  !< first loop index of i-loop in prognostic_equations
+       INTEGER(iwp), INTENT(IN) ::  tn           !< task number of openmp task
+
+!
+!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
+       IF ( dummy_logical )  idum = i + j + i_omp_start + tn
+
+    END SUBROUTINE gust_prognostic_equations_ij