Changeset 4414 for palm/trunk/SOURCE/module_interface.f90

Timestamp:

Feb 19, 2020 8:16:04 PM (4 years ago)

Author:

suehring

Message:

Remove deprecated topography arrays; Move basic initialization of numerics into an extra module interface

File:

• palm/trunk/SOURCE/module_interface.f90 (modified) (6 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add module interface for basic initialization of numerics.
+! 
+! 4411 2020-02-18 14:28:02Z maronga
 ! Added output routines for WTM
 ! 
@@ -425 +428 @@
         ONLY:  particle_advection
 
+    USE poismg_noopt_mod,                                                      &
+        ONLY:  poismg_noopt_init
+
     USE plant_canopy_model_mod,                                                &
          ONLY: pcm_parin,                                                      &
@@ -487 +493 @@
                surface_data_output_wrd_global
 
+    USE surface_mod,                                                           &
+        ONLY:  init_bc
+
     USE synthetic_turbulence_generator_mod,                                    &
         ONLY:  stg_parin,                                                      &
@@ -562 +571 @@
        module_interface_init,                                                  &
        module_interface_init_checks,                                           &
+       module_interface_init_numerics,                                         &
        module_interface_init_output,                                           &
        module_interface_header,                                                &
@@ -620 +630 @@
        MODULE PROCEDURE module_interface_init_checks
     END INTERFACE module_interface_init_checks
+
+    INTERFACE module_interface_init_numerics
+       MODULE PROCEDURE module_interface_init_numerics
+    END INTERFACE module_interface_init_numerics
 
     INTERFACE module_interface_init_output
@@ -1110 +1124 @@
 ! Description:
 ! ------------
+!> Initialize boundary conditions and numerical schemes.
+!------------------------------------------------------------------------------!
+ SUBROUTINE module_interface_init_numerics
+
+!
+!-- Initialize boundary conditions via surface type
+    CALL init_bc
+!
+!-- Calculate wall flag arrays for the multigrid method.
+!-- Please note, wall flags are only applied in the non-optimized version.
+    CALL poismg_noopt_init
+ 
+ END SUBROUTINE module_interface_init_numerics
+
+ 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
 !> Initialize data output
 !------------------------------------------------------------------------------!