Ignore:
Timestamp:
Apr 24, 2019 5:31:34 PM (2 years ago)
Author:
suehring
Message:

Add missing if statements for call of pmc_set_dataarray_name for TKE and dissipation; minor bugfix for nesting of chemical species

File:
1 edited

Legend:

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

    r3888 r3932  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Add missing if statements for call of pmc_set_dataarray_name for TKE and
     23! dissipation.
    2324!
    2425! Former revisions:
     
    13411342!--    design of model coupler, however, data array names must be already
    13421343!--    available at this point.
    1343        CALL pmc_set_dataarray_name( 'coarse', 'e'  ,'fine', 'e',  ierr )
     1344       IF ( (        rans_mode_parent  .AND.         rans_mode )  .OR.         &
     1345            (  .NOT. rans_mode_parent  .AND.  .NOT.  rans_mode  .AND.          &
     1346               .NOT. constant_diffusion ) )  THEN
     1347          CALL pmc_set_dataarray_name( 'coarse', 'e'  ,'fine', 'e',  ierr )
     1348       ENDIF
    13441349!
    13451350!--    Nesting of dissipation rate only if both parent and child are in RANS
    1346 !--    mode and TKE-epsilo closure is applied. Please so also comment for TKE
     1351!--    mode and TKE-epsilo closure is applied. Please see also comment for TKE
    13471352!--    above.
    1348        CALL pmc_set_dataarray_name( 'coarse', 'diss'  ,'fine', 'diss',  ierr )
     1353       IF ( rans_mode_parent  .AND.  rans_mode  .AND.  rans_tke_e )  THEN
     1354          CALL pmc_set_dataarray_name( 'coarse', 'diss'  ,'fine', 'diss',  ierr )
     1355       ENDIF
    13491356
    13501357       IF ( .NOT. neutral )  THEN
     
    15111518
    15121519       DO  WHILE ( pmc_c_getnextarray( myname ) )
     1520!
    15131521!--       Note that cg%nz is not the original nz of parent, but the highest
    15141522!--       parent-grid level needed for nesting.
Note: See TracChangeset for help on using the changeset viewer.