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 |