Fix labels

2026-06-13 10:11:14 +02:00
parent 27ebcd2062
commit 8deb3c2e37
1 changed files with 4 additions and 2 deletions
@@ -2367,6 +2367,8 @@ C
 1412    FORMAT(/1X,I3,6H.LAYER,1X,1F8.2,2F7.2,5F6.0,5F7.2,5F6.3)
 5113    FORMAT(6X,'ADDITIONAL ELEMENTS:     J      Z       M       C')
 5111    FORMAT(6X,23X,I3,1X,F6.0,1X,F7.2,1X,F8.5)
+ 5114    FORMAT(6X,'ADDITIONAL ELEMENTS:     J    SBE      ED      BE')
+ 5115    FORMAT(6X,23X,I3,1X,F6.2,1X,F7.2,1X,F8.2)
      ENDDO
      WRITE(21,1414)
 1414 FORMAT(//27X,'***',2X,'SBE(LAYER,ELEMENT)',2X,'***',5X
@@ -2376,9 +2378,9 @@ C
         WRITE(21,1418) I,(SBE(I,J),J=1,5),(ED(I,J),J=1,5),(BE(I,J),J=1
     &        ,5)
         IF(NJ(I).GT.5) THEN
-            WRITE(21,5113)
+            WRITE(21,5114)
            DO J=6,NJ(I)
-               WRITE(21,5111) J,SBE(I,J),ED(I,J),BE(I,J)
+               WRITE(21,5115) J,SBE(I,J),ED(I,J),BE(I,J)
            ENDDO
         ENDIF
 1418    FORMAT(/1X,I3,6H.LAYER,17X,5F6.2,3X,5F7.2,3X,5F6.2)