Changeset 181 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jul 30, 2008 7:07:47 AM (16 years ago)

Author:

raasch

Message:

bugfixes + adjustments for SGI ICE system

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -5 +5 @@
 ! -----------------
 ! Bug fix: Construction of vertical profiles when 10 gradients have been 
-! specified in the parameter list (ug, vg, pt, q, sa, lad)  
-!
+! specified in the parameter list (ug, vg, pt, q, sa, lad)
+!   
+! Strict grid matching along z is not needed for mg-solver.
 ! Leaf area density (LAD) explicitly set to its surface value at k=0
 ! Case of reading data for recycling included in initializing_actions,
@@ -369 +370 @@
        CALL local_stop
     ENDIF
-    IF ( ( psolver == 'poisfft_hybrid'  .OR.  psolver == 'multigrid' )  .AND.  &
-         ( nxra > nxr  .OR.  nyna > nyn  .OR.  nza > nz ) )  THEN
+    IF ( psolver == 'poisfft_hybrid'  .AND.                     &
+         ( nxra > nxr  .OR.  nyna > nyn  .OR.  nza > nz )  .OR. &
+          psolver == 'multigrid'      .AND.                     &
+         ( nxra > nxr  .OR.  nyna > nyn ) )  THEN
        IF ( myid == 0 )  THEN
           PRINT*, '+++ check_parameters:'