Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fix compiler remarks for ST6 and GMD #1206

Merged
merged 2 commits into from
Apr 2, 2024
Merged

Fix compiler remarks for ST6 and GMD #1206

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d8acde7
fix compiler remark for GMD test
JessicaMeixner-NOAA Mar 16, 2024
5c9d800
Merge branch 'NOAA-EMC:develop' into feature/remarks
JessicaMeixner-NOAA Apr 2, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
30 changes: 15 additions & 15 deletions model/src/w3gridmd.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6330,14 +6330,14 @@ SUBROUTINE W3GRID()
2923 FORMAT ( ' ',2F8.3,F6.1,2E12.4)
2922 FORMAT ( ' &SNL3 NQDEF =',I3,', MSC =',F6.2,', NSC =', &
F6.2,', KDFD =',F6.2,', KDFS =',F6.2,' /')
3923 FORMAT ( ' &ANL3 QPARMS = ',2(F5.3,', '),F5.1,', ',E10.4, &
', ',E10.4,' /')
4923 FORMAT ( ' &ANL3 QPARMS = ',2(F5.3,', '),F5.1,', ',E10.4, &
', ',E10.4,' ,')
5923 FORMAT ( ' ',2(F5.3,', '),F5.1,', ',E10.4, &
', ',E10.4,' ,')
6923 FORMAT ( ' ',2(F5.3,', '),F5.1,', ',E10.4, &
', ',E10.4,' /')
3923 FORMAT ( ' &ANL3 QPARMS = ',2(F5.3,', '),F5.1,', ',E11.4, &
', ',E11.4,' /')
4923 FORMAT ( ' &ANL3 QPARMS = ',2(F5.3,', '),F5.1,', ',E11.4, &
', ',E11.4,' ,')
5923 FORMAT ( ' ',2(F5.3,', '),F5.1,', ',E11.4, &
', ',E11.4,' ,')
6923 FORMAT ( ' ',2(F5.3,', '),F5.1,', ',E11.4, &
', ',E11.4,' /')
#endif
!
#ifdef W3_NL4
Expand Down Expand Up @@ -6453,18 +6453,18 @@ SUBROUTINE W3GRID()
925 FORMAT ( ' normalise by threshold spectral density : ',A/&
' normalise by spectral density : ',A/&
' coefficient and exponent for '/ &
' inherent breaking term a1, L as in (21) : ',E9.3,I3/ &
' cumulative breaking term a2, M as in (22) : ',E9.3,I3/ &
' inherent breaking term a1, L as in (21) : ',E10.3,I3/ &
' cumulative breaking term a2, M as in (22) : ',E10.3,I3/ &
' ')
2924 FORMAT ( ' &SDS6 SDSET = ',L,', SDSA1 = ',E9.3, &
', SDSA2 = ',E9.3,', SDSP1 = ',I2,', SDSP1 = ', &
2924 FORMAT ( ' &SDS6 SDSET = ',L,', SDSA1 = ',E10.3, &
', SDSA2 = ',E10.3,', SDSP1 = ',I2,', SDSP1 = ', &
I2,' /' )

937 FORMAT (/' Swell dissipation ',A/ &
' --------------------------------------------------')
940 FORMAT ( ' subroutine W3SWL6 activated : ',A/ &
' coefficient b1 ',A, ' : ',E9.3/ )
2937 FORMAT ( ' &SWL6 SWLB1 = ',E9.3,', CSTB1 = ',L,' /')
' coefficient b1 ',A, ' : ',E10.3/ )
2937 FORMAT ( ' &SWL6 SWLB1 = ',E10.3,', CSTB1 = ',L,' /')
#endif
!
#ifdef W3_BT0
Expand Down Expand Up @@ -6549,7 +6549,7 @@ SUBROUTINE W3GRID()
946 FORMAT (' Isotropic (linear function of ice concentration)'/&
' slope : ',E10.3/ &
' offset : ',E10.3)
2946 FORMAT ( ' &SIS1 ISC1 =',E9.3,', ISC2 =',E9.3)
2946 FORMAT ( ' &SIS1 ISC1 =',E10.3,', ISC2 =',E10.3)
#endif
#ifdef W3_IS2
947 FORMAT (/' Ice scattering ',A,/ &
Expand Down
Loading