Fix bug in MDL2STD_P.f. Use ampersand as line continuation character (#…

…153)
NOAA-EMC · Jul 30, 2020 · 58690e6 · 58690e6
1 parent eca102a
commit 58690e6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/sorc/ncep_post.fd/MDL2STD_P.f b/sorc/ncep_post.fd/MDL2STD_P.f
@@ -251,10 +251,10 @@ SUBROUTINE MDL2STD_P()
          IF(IGET(525) > 0) THEN
             nFDS = nFDS + 1
             IDS(nFDS) = 525
-            QIN(1:IM,JSTA:JEND,1:LM,nFDS)=QQW(1:IM,JSTA:JEND,1:LM)+ \
-                                          QQR(1:IM,JSTA:JEND,1:LM)+ \
-                                          QQS(1:IM,JSTA:JEND,1:LM)+ \
-                                          QQG(1:IM,JSTA:JEND,1:LM)+ \
+            QIN(1:IM,JSTA:JEND,1:LM,nFDS)=QQW(1:IM,JSTA:JEND,1:LM)+ &
+                                          QQR(1:IM,JSTA:JEND,1:LM)+ &
+                                          QQS(1:IM,JSTA:JEND,1:LM)+ &
+                                          QQG(1:IM,JSTA:JEND,1:LM)+ &
                                           QQI(1:IM,JSTA:JEND,1:LM)
             QTYPE(nFDS)="C"
          end if