Changeset 3889


Ignore:
Timestamp:
Apr 12, 2019 10:01:17 AM (5 years ago)
Author:
schwenkel
Message:

bugfix for commit 3887

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r3887 r3889  
    24362436!> Call for grid points i,j
    24372437!------------------------------------------------------------------------------!
    2438 
    24392438 SUBROUTINE chem_non_transport_physics_ij( i, j )
    24402439
     
    24652464 END SUBROUTINE chem_non_transport_physics_ij
    24662465 
     2466!------------------------------------------------------------------------------!
     2467! Description:
     2468! ------------
     2469!> routine for exchange horiz of chemical quantities 
     2470!------------------------------------------------------------------------------!
    24672471 SUBROUTINE chem_exchange_horiz
    24682472
    24692473
    2470     INTEGER(iwp) ::  i  !< grid index in x-direction
    2471     INTEGER(iwp) ::  j  !< grid index in y-direction
    2472 
    2473     i = i + j
    2474 ! !
    2475 ! !-- Loop over chemical species       
    2476 !     CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'start' )
    2477 !     DO  lsp = 1, nspec
    2478 !        CALL exchange_horiz( chem_species(lsp)%conc, nbgp )   
    2479 !        lsp_usr = 1 
    2480 !        DO WHILE ( TRIM( cs_name( lsp_usr ) ) /= 'novalue' )
    2481 !           IF ( TRIM(chem_species(lsp)%name) == TRIM(cs_name(lsp_usr)) )  THEN
    2482 !           
    2483 !              CALL chem_boundary_conds( chem_species(lsp)%conc_p,               &
    2484 !                                        chem_species(lsp)%conc_pr_init )
    2485 !             
    2486 !           ENDIF
    2487 !           lsp_usr = lsp_usr +1
    2488 !        ENDDO
    2489 !
    2490 !
    2491 !     ENDDO
    2492 !     CALL cpu_log( log_point_s(84), 'chem.exch-horiz', 'stop' )
    2493 
    2494 
    24952474 END SUBROUTINE chem_exchange_horiz
    2496 
    24972475
    24982476 
Note: See TracChangeset for help on using the changeset viewer.