Correct a line-continuation with backslash to ampersand

CarstenHansen · Sep 24, 2024 · 392fc49 · 392fc49
1 parent 31a62af
commit 392fc49
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/w3xsmfmd.F90 b/model/src/w3xsmfmd.F90
@@ -1639,7 +1639,7 @@ real FUNCTION giGR(q,u,nm)
 
         ! Check convergence
         if (abs(tni) > eps*sm) then
-          WRITE (NDSV, *) 'WARNING in w3xsmfmd function giGR: ', \
+          WRITE (NDSV, *) 'WARNING in w3xsmfmd function giGR: ', &
             'max number of terms (', nm, ') too small for q=', q, 'u=', u
 
           do n = nm,2*nm