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

Timestamp:

Mar 29, 2007 12:58:32 AM (17 years ago)

Author:

raasch

Message:

changes for Neumann p conditions both at bottom and top

File:

• palm/trunk/SOURCE/header.f90 (modified) (1 diff)

palm/trunk/SOURCE/header.f90

@@ -283 +283 @@
     WRITE ( io, 254 )  nx, ny, nzt+1, MIN( nnx, nx+1 ), MIN( nny, ny+1 ), &
                        MIN( nnz+2, nzt+2 )
-    IF ( nxa == nx  .AND.  nya == ny  .AND.  nza == nz )  THEN
-       WRITE ( io, 255 )
-    ELSE
-       WRITE ( io, 256 )  nnx-(nxa-nx), nny-(nya-ny), nzt+2
+    IF ( numprocs > 1 )  THEN
+       IF ( nxa == nx  .AND.  nya == ny  .AND.  nza == nz )  THEN
+          WRITE ( io, 255 )
+       ELSE
+          WRITE ( io, 256 )  nnx-(nxa-nx), nny-(nya-ny), nzt+2
+       ENDIF
     ENDIF
     IF ( sloping_surface )  WRITE ( io, 260 )  alpha_surface