Changeset 3932 for palm


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

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r3761 r3932  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! typo removed
    2424!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
    28 ! statemnet added to avoid compiler warning
     28! statement added to avoid compiler warning
    2929!
    3030! 3655 2019-01-07 16:51:22Z knoop
     
    247247    IF ( m_model_rank == 0 )  THEN
    248248       myindex = myindex + 1
    249        myname%couple_index = myIndex
     249       myname%couple_index = myindex
    250250       myname%parentdesc   = TRIM( parentarraydesc )
    251251       myname%nameonparent = TRIM( parentarrayname )
  • palm/trunk/SOURCE/pmc_general_mod.f90

    r3655 r3932  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Increase character length so that also chemistry variable names fully fit
    2424!
    2525! Former revisions:
     
    132132       TYPE(C_PTR)               :: SendBuf      !< data pointer in send buffer
    133133       TYPE(C_PTR)               :: RecvBuf      !< data pointer in receive buffer
    134        CHARACTER(LEN=8)          :: Name         !< name of array
     134       CHARACTER(LEN=da_namelen) :: Name         !< name of array
    135135       TYPE(arraydef), POINTER   :: next
    136136    END TYPE arraydef
  • 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.