|
Lines 62-67
Link Here
|
| 62 |
!arrays |
62 |
!arrays |
| 63 |
integer :: id(3) |
63 |
integer :: id(3) |
| 64 |
integer,allocatable :: gc(:,:),gf(:,:) |
64 |
integer,allocatable :: gc(:,:),gf(:,:) |
|
|
65 |
character(len=500) :: msg |
| 65 |
|
66 |
|
| 66 |
! ************************************************************************* |
67 |
! ************************************************************************* |
| 67 |
! |
68 |
! |
|
Lines 117-123
Link Here
|
| 117 |
!Check coatofin to make sure there are no zeros! |
118 |
!Check coatofin to make sure there are no zeros! |
| 118 |
do ii=1,ubound(coatofin,1) |
119 |
do ii=1,ubound(coatofin,1) |
| 119 |
if (coatofin(ii)==0) then |
120 |
if (coatofin(ii)==0) then |
| 120 |
MSG_ERROR('A zero was found in coatofin. Check that the fine FFT mesh is finer in each dimension than the coarse FFT mesh.') |
121 |
msg='A zero was found in coatofin.& |
|
|
122 |
& Check that the fine FFT mesh is finer& |
| 123 |
& in each dimension than the coarse FFT mesh.' |
| 124 |
MSG_ERROR(msg) |
| 121 |
stop |
125 |
stop |
| 122 |
end if |
126 |
end if |
| 123 |
end do |
127 |
end do |
