Ignore:
Timestamp:
Nov 29, 2018 3:32:39 PM (3 years ago)
Author:
suehring
Message:

Bugfix in initialization of synthetic turbulence generator and calculation of turbulence scaling parameters in case of topography; checks for synthetic turbulence generator and offline nesting added

File:
1 edited

Legend:

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

    r3413 r3579  
    2525! -----------------
    2626! $Id$
     27! Check implemented for offline nesting in child domain
     28!
     29! 3413 2018-10-24 10:28:44Z suehring
    2730! Keyword ID set
    2831!
     
    7982!
    8083!-- Public subroutines
    81     PUBLIC nesting_offl_bc, nesting_offl_header, nesting_offl_init,            &
    82            nesting_offl_mass_conservation, nesting_offl_parin
     84    PUBLIC nesting_offl_bc, nesting_offl_check_parameters, nesting_offl_header,&
     85           nesting_offl_init, nesting_offl_mass_conservation, nesting_offl_parin
    8386!
    8487!-- Public variables
     
    8891       MODULE PROCEDURE nesting_offl_bc
    8992    END INTERFACE nesting_offl_bc
     93   
     94    INTERFACE nesting_offl_check_parameters
     95       MODULE PROCEDURE nesting_offl_check_parameters
     96    END INTERFACE nesting_offl_check_parameters
    9097   
    9198    INTERFACE nesting_offl_header
     
    879886!------------------------------------------------------------------------------!
    880887    SUBROUTINE nesting_offl_check_parameters
     888   
     889       USE control_parameters,                                                    &
     890        ONLY:  child_domain, message_string, nesting_offline
    881891
    882892       IMPLICIT NONE
    883893!
    884894!--    Perform checks
     895       IF ( nesting_offline  .AND.  child_domain )  THEN
     896          message_string = 'Offline nesting is only applicable in root model.'
     897          CALL message( 'stg_check_parameters', 'PA0622', 1, 2, 0, 6, 0 )       
     898       ENDIF
    885899
    886900
Note: See TracChangeset for help on using the changeset viewer.