答案 0 :(得分:0)
我发现错误,默认情况下在旋转模板中导入play.api.data.From类,而不是play.data.From。我在模板的头部添加以下内容。
!$OMP parallel private(kk,j,i,k1,j1,i1,k2,j2,i2,ic,icm,xx,yy,ydatm),shared(undef,lt,ln,nd,xd,tgrd,ndaym)
thread_id = OMP_GET_THREAD_NUM()
num_threads = OMP_GET_NUM_THREADS()
if(thread_id.eq.0) thread_id=thread_id+1
start_no = (thread_id * ndaym / num_threads);
end_no = ((thread_id + 1) * ndaym / num_threads);
xx(:)=undef
yy(:,:)=undef
!$OMP DO
DO kk=start_no,end_no
do j=1,nlat
do i=1,nlon
ic=0
do k1=kk-nd,kk+nd
k2=k1
if(k2.lt.1)k2=1
if(k2.gt.ndaym)k2=ndaym
do j1=j-lt,j+lt
j2=j1
if(j2.lt.1)j2=1
if(j2.gt.nlat)j2=nlat
do i1=i-ln,i+ln
i2=i1
if(i2.lt.1)i2=1
if(i2.gt.nlon)i2=i2-nlon
ic=ic+1
yy(ic,:)=xdatm(i2,j2,k2,:)
yya(:) = yy(ic,:)
call funcmean(yya,xx(ic),1,nmem,nmem,undef)
if(k1.eq.kk.and.j1.eq.j.and.i1.eq.i) then
icm=ic
call funcsd(yya,1,nmem,nmem,undef,xx(ic),xd)
endif
enddo ! for i1
enddo ! for j1
enddo ! for k1
call funcens(xx,yy,tgrd,nmem,icm,undef,dist)
ydatm(i,j,kk,:)= dist(:)
enddo !for nlon
enddo ! for nlat
ENDDO !kk
!$OMP end do
deallocate(xx,yy)
!$OMP end parallel
现在我看到错误了。