Changeset 3930 for palm

Timestamp:

Apr 24, 2019 2:57:18 PM (6 years ago)

Author:

forkel

Message:

changed subroutine name from chem_non_transport_physics to chem_non_advective_processes

Location:

palm/trunk/SOURCE

Files:

• chemistry_model_mod.f90 (modified) (7 diffs)
• module_interface.f90 (modified) (4 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Changed chem_non_transport_physics to chem_non_advective_processes
+! 
+! 
+! 3929 2019-04-24 12:52:08Z banzhafs
 ! Correct/complete module_interface introduction for chemistry model
 ! Add subroutine chem_exchange_horiz_bounds
@@ -523 +527 @@
     END INTERFACE chem_actions
 
-    INTERFACE chem_non_transport_physics
-       MODULE PROCEDURE chem_non_transport_physics
-       MODULE PROCEDURE chem_non_transport_physics_ij
-    END INTERFACE chem_non_transport_physics
+    INTERFACE chem_non_advective_processes
+       MODULE PROCEDURE chem_non_advective_processes
+       MODULE PROCEDURE chem_non_advective_processes_ij
+    END INTERFACE chem_non_advective_processes
     
     INTERFACE chem_exchange_horiz_bounds
@@ -631 +635 @@
          chem_actions, chem_prognostic_equations, chem_rrd_local,             &
          chem_statistics, chem_swap_timelevel, chem_wrd_local, chem_depo,     &
-         chem_non_transport_physics, chem_exchange_horiz_bounds
+         chem_non_advective_processes, chem_exchange_horiz_bounds
 
  CONTAINS
@@ -2403 +2407 @@
 !> Call for all grid points
 !------------------------------------------------------------------------------!
-    SUBROUTINE chem_non_transport_physics()
+    SUBROUTINE chem_non_advective_processes()
 
 
@@ -2442 +2446 @@
 
 
-    END SUBROUTINE chem_non_transport_physics
+    END SUBROUTINE chem_non_advective_processes
 
 
@@ -2450 +2454 @@
 !> Call for grid points i,j
 !------------------------------------------------------------------------------!
- SUBROUTINE chem_non_transport_physics_ij( i, j )
+ SUBROUTINE chem_non_advective_processes_ij( i, j )
 
 
@@ -2478 +2482 @@
 
 
- END SUBROUTINE chem_non_transport_physics_ij
+ END SUBROUTINE chem_non_advective_processes_ij
  
 !------------------------------------------------------------------------------!

palm/trunk/SOURCE/module_interface.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Changed chem_non_transport_physics to chem_non_advective_processes
 ! 
 ! 
@@ -176 +177 @@
               chem_header,                                                     &
               chem_actions,                                                    &
-              chem_non_transport_physics,                                      &
+              chem_non_advective_processes,                                    &
               chem_prognostic_equations,                                       &
               chem_swap_timelevel,                                             &
@@ -959 +960 @@
 
     IF ( bulk_cloud_model    )  CALL bcm_non_transport_physics()
-    IF ( air_chemistry       )  CALL chem_non_transport_physics()
+    IF ( air_chemistry       )  CALL chem_non_advective_processes()
 
 
@@ -977 +978 @@
 
 
-    IF ( air_chemistry       )  CALL chem_non_transport_physics( i, j )
+    IF ( air_chemistry       )  CALL chem_non_advective_processes( i, j )
     IF ( bulk_cloud_model    )  CALL bcm_non_transport_physics( i, j )