|
Last change
on this file since 4 was
4,
checked in by xlvlod, 17 years ago
|
|
import initial des vraies codes.
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | ! header file containing problem size information |
|---|
| 2 | integer :: nx,ny,nz ! basic problem dimensions |
|---|
| 3 | integer :: num_scalars ! can be 1 or 2 currently |
|---|
| 4 | integer :: numprocs,locnz |
|---|
| 5 | integer :: bytesperword,numbufs,numbytes |
|---|
| 6 | integer :: AB_order ! # of time levels required |
|---|
| 7 | real, allocatable :: mpi_buffer_space(:) |
|---|
| 8 | |
|---|
| 9 | parameter(nx=1+16,ny=1+16,nz=32) |
|---|
| 10 | parameter(num_scalars=2) ! 1-->Temp, 2-->Salinity |
|---|
| 11 | parameter(numprocs=01) ! must match specification in machfile |
|---|
| 12 | parameter(locnz=nz/numprocs) |
|---|
| 13 | parameter(AB_order=3) ! {2,3,4} |
|---|
| 14 | parameter(bytesperword=8,numbufs=2) |
|---|
| 15 | |
|---|
| 16 | ! mpirun command must actually use numprocs processors |
|---|
| 17 | ! i.e. mpirun -np 4 where 4 matches numprocs parameter |
|---|
| 18 | ! |
|---|
| 19 | ! Choose nz such that locnz is an integer. The partitioning |
|---|
| 20 | ! logic requires this condition load balancing is optimized. |
|---|
| 21 | ! |
|---|
| 22 | ! nx/numprocs must be an integer in the data partitioning scheme |
|---|
| 23 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
