Ignore:
Timestamp:
Sep 13, 2012 2:08:46 PM (9 years ago)
Author:
raasch
Message:

leapfrog timestep scheme and upstream-spline advection scheme completely removed from the code,
reading of dt_fixed from restart file removed

File:
1 edited

Legend:

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

    r979 r1001  
    44! Current revisions:
    55! -----------------
    6 !
     6! all actions concerning upstream-spline-method removed
    77!
    88! Former revisions:
     
    384384!
    385385!-- 1. transposition  z --> x
    386 !-- This transposition is not neccessary in case of a 1d-decomposition along x,
    387 !-- except that the uptream-spline method is switched on
    388     IF ( pdims(2) /= 1  .OR.  momentum_advec == 'ups-scheme'  .OR. &
    389          scalar_advec == 'ups-scheme' )  THEN
    390 
    391        IF ( pdims(2) == 1  .AND. ( momentum_advec == 'ups-scheme'  .OR. &
    392             scalar_advec == 'ups-scheme' ) )  THEN
    393           message_string = '1d-decomposition along x ' // &
    394                            'chosen but nz restrictions may occur' // &
    395                            '& since ups-scheme is activated'
    396           CALL message( 'init_pegrid', 'PA0229', 0, 1, 0, 6, 0 )
    397        ENDIF
     386!-- This transposition is not neccessary in case of a 1d-decomposition along x
     387    IF ( pdims(2) /= 1 )  THEN
     388
    398389       nys_x  = nys
    399390       nyn_xa = nyna
     
    448439!-- 3. transposition  y --> z  (ELSE:  x --> y  in case of 1D-decomposition
    449440!-- along x)
    450     IF ( pdims(2) /= 1  .OR.  momentum_advec == 'ups-scheme'  .OR. &
    451          scalar_advec == 'ups-scheme' )  THEN
     441    IF ( pdims(2) /= 1 )  THEN
    452442!
    453443!--    y --> z
Note: See TracChangeset for help on using the changeset viewer.