declare vort array in common block and declare work1 and work2 of size 1

Nek5000 · Aug 30, 2024 · d9f2e06 · d9f2e06
1 parent 44430e5
commit d9f2e06
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/code/time.f b/code/time.f
@@ -259,15 +259,15 @@ subroutine post
       include 'AVG'
 
       parameter (lt=lx1*ly1*lz1*lelt)
-      common /scrrstep/ t1(lt),t2(lt),t3(lt),work(lt)
+      common /scrrstep/ t1(lt),t2(lt),t3(lt),vort(lt)
       common /scrbdfext/ rhs(0:lb,2),rhstmp(0:lb),
      $                   utmp1(0:lb),utmp2(0:lb)
       common /nekmpi/ nidd,npp,nekcomm,nekgroup,nekreal
 
       save icalld
       data icalld /0/
 
-      real vort(lt),work1(lt),work2(lt)
+      real work1(1),work2(1)
 
       call rom_userchk