Changeset 1001 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Sep 13, 2012 2:08:46 PM (12 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:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! all actions concerning upstream-spline-method removed
 !
 ! Former revisions:
@@ -384 +384 @@
 !
 !-- 1. transposition  z --> x
-!-- This transposition is not neccessary in case of a 1d-decomposition along x,
-!-- except that the uptream-spline method is switched on
-    IF ( pdims(2) /= 1  .OR.  momentum_advec == 'ups-scheme'  .OR. &
-         scalar_advec == 'ups-scheme' )  THEN
-
-       IF ( pdims(2) == 1  .AND. ( momentum_advec == 'ups-scheme'  .OR. &
-            scalar_advec == 'ups-scheme' ) )  THEN
-          message_string = '1d-decomposition along x ' // &
-                           'chosen but nz restrictions may occur' // &
-                           '& since ups-scheme is activated'
-          CALL message( 'init_pegrid', 'PA0229', 0, 1, 0, 6, 0 )
-       ENDIF
+!-- This transposition is not neccessary in case of a 1d-decomposition along x
+    IF ( pdims(2) /= 1 )  THEN
+
        nys_x  = nys
        nyn_xa = nyna
@@ -448 +439 @@
 !-- 3. transposition  y --> z  (ELSE:  x --> y  in case of 1D-decomposition
 !-- along x)
-    IF ( pdims(2) /= 1  .OR.  momentum_advec == 'ups-scheme'  .OR. &
-         scalar_advec == 'ups-scheme' )  THEN
+    IF ( pdims(2) /= 1 )  THEN
 !
 !--    y --> z