Changeset 3889

Timestamp:

Apr 12, 2019 10:01:17 AM (6 years ago)

Author:

schwenkel

Message:

bugfix for commit 3887

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -2436 +2436 @@
 !> Call for grid points i,j
 !------------------------------------------------------------------------------!
-
  SUBROUTINE chem_non_transport_physics_ij( i, j )
 
@@ -2465 +2464 @@
  END SUBROUTINE chem_non_transport_physics_ij
  
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> routine for exchange horiz of chemical quantities  
+!------------------------------------------------------------------------------! 
  SUBROUTINE chem_exchange_horiz
 
 
-    INTEGER(iwp) ::  i  !< grid index in x-direction
-    INTEGER(iwp) ::  j  !< grid index in y-direction
-
-    i = i + j
-! !
-! !-- Loop over chemical species       
-!     CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'start' )
-!     DO  lsp = 1, nspec
-!        CALL exchange_horiz( chem_species(lsp)%conc, nbgp )    
-!        lsp_usr = 1  
-!        DO WHILE ( TRIM( cs_name( lsp_usr ) ) /= 'novalue' )
-!           IF ( TRIM(chem_species(lsp)%name) == TRIM(cs_name(lsp_usr)) )  THEN
-!           
-!              CALL chem_boundary_conds( chem_species(lsp)%conc_p,               &
-!                                        chem_species(lsp)%conc_pr_init ) 
-!              
-!           ENDIF
-!           lsp_usr = lsp_usr +1
-!        ENDDO
-! 
-! 
-!     ENDDO
-!     CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'stop' )
-
-
  END SUBROUTINE chem_exchange_horiz
-