Changeset 927 for palm/trunk/SOURCE/header.f90

Timestamp:

Jun 6, 2012 7:15:04 PM (11 years ago)

Author:

raasch

Message:

masking method can be switched on for mg-solver using inipar parameter masking_method

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! output of masking_method for mg-solver
 ! 
 ! Former revisions:
@@ -270 +270 @@
                              nzt_mg(1)
        ENDIF
+       IF ( masking_method )  WRITE ( io, 144 )
     ENDIF
     IF ( call_psolver_at_all_substeps  .AND. timestep_scheme(1:5) == 'runge' ) &
@@ -1701 +1702 @@
 143 FORMAT ('     Euler/upstream scheme is used for the SGS turbulent ', &
                   'kinetic energy')
+144 FORMAT ('     masking method is used')
 150 FORMAT (' --> Volume flow at the right and north boundary will be ', &
                   'conserved'/ &