Fix failing restart test

ESCOMP · Feb 4, 2025 · a69d053 · a69d053
1 parent dd33c5b
commit a69d053
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/dynamics/se/gravity_waves_sources.F90 b/src/dynamics/se/gravity_waves_sources.F90
@@ -186,7 +186,7 @@ subroutine compute_vorticity_4gw(vort4gw,tl,tlq,elem,ederiv,hybrid,nets,nete,nph
     ! First calculate vorticity on GLL grid
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ! set timelevel=1 fro velocities
-    n0=1
+    n0=tl
     do ie=nets,nete
        do k=1,nlev
           call vorticity_sphere(elem(ie)%state%v(:,:,:,k,n0),ederiv,elem(ie),vort_gll(:,:,k,ie))