anchor.diff:         temp_r,kx,ky,kz,uhat,vhat,what,rhsuhatfix,rhsvhatfix,&
          rhswhatfix,phat,nonlinuhat,nonlinvhat,nonlinwhat,temp_c,&
          realtemp,stat=AllocateStatus)         
  -  !mvm: deallocate Coprocessing specific arrays
  +  !coprocessing: deallocate Coprocessing specific arrays
     deallocate(realtempx, realtempy, realtempz, tempxhalo, tempyhalo, tempzhalo)
     IF (AllocateStatus .ne. 0) STOP
     IF (myid.eq.0) THEN
  
positive.code:      end if
  
    END DO
    !mvm:
    call coprocessorfinalize()
  
    CALL system_clock(finish,count_rate)
  
negative.code:           xpass2c, ypass2c, zpass2c)
       deallocate(xpass2c, ypass2c, zpass2c)
    else if ((ny_global == decomp%xen(2)) .and. (nz_global > decomp%xen(3))) then
       !coprocessing: case 3: pencil furthest in y, send just upper z halo
       allocate(xpass2c(decomp%xsz(1)*decomp%xsz(2)*(decomp%xsz(3)+1)))
       allocate(ypass2c(decomp%xsz(1)*decomp%xsz(2)*(decomp%xsz(3)+1)))
       allocate(zpass2c(decomp%xsz(1)*decomp%xsz(2)*(decomp%xsz(3)+1)))
  