Skip to content

Commit

Permalink
Fix compiler build 'remark's (NOAA-EMC#1201)
Browse files Browse the repository at this point in the history
  • Loading branch information
MatthewMasarik-NOAA authored Mar 13, 2024
1 parent e064dbf commit f66b6d4
Show file tree
Hide file tree
Showing 4 changed files with 7 additions and 7 deletions.
6 changes: 3 additions & 3 deletions model/src/w3arrymd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2250,10 +2250,10 @@ SUBROUTINE PRT2DS (NDS, NFR0, NFR, NTH, E, FR, UFR, FACSP, FSC, &
!
900 FORMAT (/' Location : ',A/ &
' Spectrum : ',A,' (Normalized) ', &
' Maximum value : ',E8.3,1X,A/)
' Maximum value : ',E10.3,1X,A/)
901 FORMAT (/' Location : ',A/ &
' Spectrum : ',A,' Units : ',E8.3,1X,A, &
' Maximum value : ',E8.3,1X,A/)
' Spectrum : ',A,' Units : ',E10.3,1X,A, &
' Maximum value : ',E10.3,1X,A/)
!
910 FORMAT (5X,' ang.| frequencies (Hz) '/ &
5X,' deg.|',F6.3,15F8.3)
Expand Down
2 changes: 1 addition & 1 deletion model/src/w3gridmd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -6439,7 +6439,7 @@ SUBROUTINE W3GRID()
' SDSBRF1 = ',F5.2,', SDSBRFDF =',I2,', '/ &
' SDSBM0 = ',F5.2, ', SDSBM1 =',F5.2, &
', SDSBM2 =',F5.2,', SDSBM3 =',F5.2,', SDSBM4 =', &
F5.2,', '/, &
F7.2,', '/, &
' SPMSS = ',F5.2, ', SDKOF =',F5.2, &
', SDSMWD =',F5.2,', SDSFACMTF =',F5.1,', '/ &
' SDSMWPOW =',F3.1,', SDSNMTF =', F5.2, &
Expand Down
4 changes: 2 additions & 2 deletions model/src/w3tidemd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -823,11 +823,11 @@ SUBROUTINE TIDE_READ_ANAPAR(KR1,LP,filename,KD1,KD2,XLON,XLAT,NDEF,ITREND,ITZ)
! read in inference information now as it will be used in the lsq matrix
!
DO K=1,10
READ(KR1,'(4X,A5,E16.10,i5)')TIDE_KONAN(K),TIDE_SIGAN(K),TIDE_NINF(k)
READ(KR1,'(4X,A5,E17.10,i5)')TIDE_KONAN(K),TIDE_SIGAN(K),TIDE_NINF(k)
! write(6,1010)TIDE_KONAN(K),TIDE_SIGAN(K),TIDE_NINF(k)
IF (TIDE_KONAN(K).EQ.KBLANK) EXIT
do k2=1,TIDE_NINF(k)
read(kr1,'(4X,A5,E16.10,2F10.3)') TIDE_KONIN(K,k2),TIDE_SIGIN(K,k2),TIDE_R(K,k2),TIDE_ZETA(K,k2)
read(kr1,'(4X,A5,E17.10,2F10.3)') TIDE_KONIN(K,k2),TIDE_SIGIN(K,k2),TIDE_R(K,k2),TIDE_ZETA(K,k2)
END DO
END DO
TIDE_NIN=K-1
Expand Down
2 changes: 1 addition & 1 deletion model/src/ww3_outf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2433,7 +2433,7 @@ SUBROUTINE W3EXGO ( NX, NY, NSEA )
OPEN (NDSDAT,FILE=FNMPRE(:JJ)//FNAME,ERR=800, &
IOSTAT=IERR)
IF (FSC.LT.1E-4) THEN
WRITE(FSCS,'(G7.1)') FSC
WRITE(FSCS,'(G8.1)') FSC
ELSE
WRITE(FSCS,'(F7.4)') FSC
END IF
Expand Down

0 comments on commit f66b6d4

Please sign in to comment.