Ignore:
Timestamp:
Mar 29, 2007 12:58:32 AM (15 years ago)
Author:
raasch
Message:

changes for Neumann p conditions both at bottom and top

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r75 r76  
    283283    WRITE ( io, 254 )  nx, ny, nzt+1, MIN( nnx, nx+1 ), MIN( nny, ny+1 ), &
    284284                       MIN( nnz+2, nzt+2 )
    285     IF ( nxa == nx  .AND.  nya == ny  .AND.  nza == nz )  THEN
    286        WRITE ( io, 255 )
    287     ELSE
    288        WRITE ( io, 256 )  nnx-(nxa-nx), nny-(nya-ny), nzt+2
     285    IF ( numprocs > 1 )  THEN
     286       IF ( nxa == nx  .AND.  nya == ny  .AND.  nza == nz )  THEN
     287          WRITE ( io, 255 )
     288       ELSE
     289          WRITE ( io, 256 )  nnx-(nxa-nx), nny-(nya-ny), nzt+2
     290       ENDIF
    289291    ENDIF
    290292    IF ( sloping_surface )  WRITE ( io, 260 )  alpha_surface
Note: See TracChangeset for help on using the changeset viewer.