Changeset 3687 for palm/trunk/SOURCE/init_masks.f90

Timestamp:

Jan 22, 2019 10:42:06 AM (5 years ago)

Author:

knoop

Message:

Moved all user routunes that are dependencies of the PALM core only, to user_module.f90
The files that formerly contained these routines, have been deleted.
Also module_interface routines for init_mask and last_actions have been added.

File:

• palm/trunk/SOURCE/init_masks.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -164 +164 @@
     USE bulk_cloud_model_mod,                                                  &
         ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
-
-    USE chemistry_model_mod,                                                   &
-        ONLY:  chem_check_data_output
 
     USE control_parameters,                                                    &
@@ -190 +187 @@
     USE kinds
 
+    USE module_interface,                                                      &
+        ONLY:  module_interface_init_masks
+
     USE netcdf_interface,                                                      &
         ONLY:  domask_unit, netcdf_data_format
@@ -196 +196 @@
         ONLY:  particle_advection
 
-    USE pegrid  
-    
-    USE radiation_model_mod,                                                   &
-        ONLY:  radiation_check_data_output
-        
-    USE salsa_mod,                                                             &
-        ONLY:  salsa_check_data_output 
+    USE pegrid
 
     IMPLICIT NONE
@@ -494 +488 @@
 
              CASE DEFAULT
-             
-                CALL user_check_data_output( var, unit )
-                           
-                IF ( salsa )  THEN
-                   CALL salsa_check_data_output( var, unit )
-                ENDIF               
-
-                IF ( unit == 'illegal'  .AND.  air_chemistry                   &
-                     .AND.  (var(1:3) == 'kc_' .OR. var(1:3) == 'em_') )  THEN
-                   CALL chem_check_data_output( var, unit, 0, 0, 0 )
-                ENDIF
-
-                IF ( unit == 'illegal' )  THEN
-                   CALL radiation_check_data_output( var, unit, 0, 0, 0 )
-                ENDIF
+!
+!--             Allocate arrays for other modules
+                CALL module_interface_init_masks( var, unit )
 
                 IF ( unit == 'illegal' )  THEN