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

Timestamp:

Mar 13, 2007 3:52:49 AM (17 years ago)

Author:

raasch

Message:

preliminary changes concerning update of BC-scheme

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Output of netcdf_64bit_3d, particles-package is now part of the default code.
+! Output of netcdf_64bit_3d, particles-package is now part of the default code,
+! output of the loop optimization method.
 !
 ! Former revisions:
@@ -189 +190 @@
        WRITE ( io, 118 )
     ENDIF
-    IF ( momentum_advec /= 'ups-scheme' .AND. scalar_advec /= 'ups-scheme' &
-         .AND. scalar_advec /= 'bc-scheme'  .AND.  host(1:3) /= 'nec' )  THEN
-       WRITE ( io, 139 )
-    ENDIF
+
+    WRITE ( io, 139 )  TRIM( loop_optimization )
+
     IF ( galilei_transformation )  THEN
        IF ( use_ug_for_galilei_tr )  THEN
@@ -1182 +1182 @@
                   I3,')')
 138 FORMAT ('     Using hybrid version for 1d-domain-decomposition')
-139 FORMAT (' --> Prognostic equations are solved in one single loop (fast', &
-                  ' method)')
+139 FORMAT (' --> Loop optimization method: ',A)
 140 FORMAT ('     maximum residual allowed:                ',E10.3)
 141 FORMAT ('     fixed number of multigrid cycles:        ',I4)