diff options
Diffstat (limited to 'src/Whisky_Prim2Con.F90')
-rw-r--r-- | src/Whisky_Prim2Con.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Whisky_Prim2Con.F90 b/src/Whisky_Prim2Con.F90 index aef98a3..74d5fcf 100644 --- a/src/Whisky_Prim2Con.F90 +++ b/src/Whisky_Prim2Con.F90 @@ -138,8 +138,10 @@ subroutine prim2con(handle, gxx, gxy, gxz, gyy, gyz, gzz, det, ddens, & !!$ BEGIN: Check for NaN value if (w .ne. w) then + !$OMP CRITICAL write(NaN_WarnLine,'(a100,3g15.6)') 'NaN produced in sqrt(): (dvelx,dvely,dvelz)', dvelx, dvely, dvelz call CCTK_WARN(Whisky_NaN_verbose, NaN_WarnLine) + !$OMP END CRITICAL endif !!$ END: Check for NaN value |