Ignore:
Timestamp:
Oct 23, 2019 3:18:57 PM (20 months ago)
Author:
schwenkel
Message:

further modularization of boundary conditions: moving boundary conditions to their modules

File:
1 edited

Legend:

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

    r4268 r4272  
    2727! -----------------
    2828! $Id$
     29! Further modularization of boundary conditions: moved boundary conditions to
     30! respective modules
     31!
     32! 4268 2019-10-17 11:29:38Z schwenkel
    2933! Moving module specific boundary conditions from time_integration to module
    3034!
     
    819823
    820824!
    821 !--       Boundary conditions for prognostic quantitites of other modules:
    822 !--       Here, only decycling is carried out
    823 
    824           DO  lsp = 1, nvar
    825              lsp_usr = 1
    826              DO WHILE ( TRIM( cs_name( lsp_usr ) ) /= 'novalue' )
    827                 IF ( TRIM( chem_species(lsp)%name ) == TRIM( cs_name(lsp_usr) ) )  THEN
    828                    CALL chem_boundary_conds( chem_species(lsp)%conc_p,                          &
    829                                              chem_species(lsp)%conc_pr_init )
    830                 ENDIF
    831                 lsp_usr = lsp_usr + 1
    832              ENDDO
    833           ENDDO
     825!-- Top/bottom boundary conditions for chemical species
     826    CALL chem_boundary_conds( 'set_bc_bottomtop' )
     827!
     828!-- Lateral boundary conditions for chemical species
     829    CALL chem_boundary_conds( 'set_bc_lateral' )
     830
     831!
     832!--  Boundary conditions for prognostic quantitites of other modules:
     833!--  Here, only decycling is carried out
     834     DO  lsp = 1, nvar
     835        lsp_usr = 1
     836        DO WHILE ( TRIM( cs_name( lsp_usr ) ) /= 'novalue' )
     837           IF ( TRIM( chem_species(lsp)%name ) == TRIM( cs_name(lsp_usr) ) )  THEN
     838              CALL chem_boundary_conds( chem_species(lsp)%conc_p,                          &
     839                                        chem_species(lsp)%conc_pr_init )
     840           ENDIF
     841           lsp_usr = lsp_usr + 1
     842        ENDDO
     843     ENDDO
    834844
    835845
Note: See TracChangeset for help on using the changeset viewer.