Skip to content

Commit 1686f50

Browse files
author
Hyeoksu Lee
committed
minor fix
1 parent f7ad728 commit 1686f50

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/post_process/m_derived_variables.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -646,7 +646,7 @@ contains
646646
eigvec_mag = sqrt(eigvec(1)**2._wp &
647647
+ eigvec(2)**2._wp &
648648
+ eigvec(3)**2._wp)
649-
if (eigvec_mag .gt. sgm_eps) then
649+
if (eigvec_mag > sgm_eps) then
650650
eigvec = eigvec/eigvec_mag
651651
else
652652
eigvec = 0._wp

0 commit comments

Comments
 (0)