Ticket #770: vort.diff

File vort.diff, 1.0 KB (added by kate, 6 years ago)

patch file for vorticity.F

  • ROMS/Utility/vorticity.F 

    diff --git a/ROMS/Utility/vorticity.F b/ROMS/Utility/vorticity.F
index 3508947d..656984c1 100644
    a b  
    349349!  (meter-1 second-1) at horizontal PSI-points and vertical RHO-points.
    350350!
    351351        IF (k.gt.0) THEN
    352           DO j=Jstr,Jend
    353             DO i=Istr,Iend
     352          DO j=Jstr,JendR
     353            DO i=Istr,IendR
    354354              cff=0.0625_r8*                                            &
    355355     &            (pm(i-1,j-1)+pm(i-1,j)+pm(i,j-1)+pm(i,j))*            &
    356356     &            (pn(i-1,j-1)+pn(i-1,j)+pn(i,j-1)+pn(i,j))
    … …  
    402402!  Compute vertically-integrated relative vorticity (second-1) and
    403403!  potential vorticity (meter-1 second-1) at PSI-points.
    404404!
    405       DO j=Jstr,Jend
    406         DO i=Istr,Iend
     405      DO j=Jstr,JendR
     406        DO i=Istr,IendR
    407407          cff=0.0625_r8*                                                &
    408408     &        (pm(i-1,j-1)+pm(i-1,j)+pm(i,j-1)+pm(i,j))*                &
    409409     &        (pn(i-1,j-1)+pn(i-1,j)+pn(i,j-1)+pn(i,j))