Skip to content

Commit 96c03ef

Browse files
mingchen-NOAAmingchen-NOAA
authored
resolve compiler remarks in w3strkmd.F90 w3sdb1md.F90 w3profsmd.F90 w3pro3md.F90 (#1548)
1 parent 037b762 commit 96c03ef

File tree

4 files changed

+70
-92
lines changed

4 files changed

+70
-92
lines changed

‎model/src/w3pro3md.F90‎

Lines changed: 19 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -215,12 +215,15 @@ SUBROUTINE W3MAP3
215215
!
216216
! 10. Source code :
217217
!/ ------------------------------------------------------------------- /
218-
USE W3GDATMD, ONLY: NK, NTH, NSPEC, NX, NY, NSEA, MAPSTA, MAPSF,&
219-
GTYPE
218+
USE W3GDATMD, ONLY: NK, NTH, NX, NY, NSEA, MAPSTA, MAPSF, GTYPE
220219
USE W3ADATMD, ONLY: NMX0, NMX1, NMX2, NMY0, NMY1, NMY2, NACT, &
221220
NCENT, MAPX2, MAPY2, MAPAXY, MAPCXY, &
222221
MAPTH2, MAPWN2
222+
#ifdef W3_T
223+
USE W3GDATMD, ONLY: NSPEC
223224
USE W3ODATMD, ONLY: NDST
225+
#endif
226+
!/
224227
#ifdef W3_S
225228
USE W3SERVMD, ONLY: STRACE
226229
#endif
@@ -571,7 +574,7 @@ SUBROUTINE W3MAPT
571574
!
572575
! 10. Source code :
573576
!/ ------------------------------------------------------------------- /
574-
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF
577+
USE W3GDATMD, ONLY: NSEA, MAPSF
575578
USE W3ADATMD, ONLY: ATRNX, ATRNY, MAPTRN
576579
#ifdef W3_S
577580
USE W3SERVMD, ONLY: STRACE
@@ -788,14 +791,14 @@ SUBROUTINE W3XYP3 ( ISP, DTG, MAPSTA, MAPFS, VQ, VGX, VGY )
788791
USE W3TIMEMD, ONLY: DSEC21
789792
!
790793
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF, DTCFL, CLATS, &
791-
ICLOSE, FLCX, FLCY, NK, NTH, DTH, XFR, &
794+
ICLOSE, FLCX, FLCY, NTH, DTH, XFR, &
792795
ICLOSE_NONE, ICLOSE_SMPL, ICLOSE_TRPL, &
793-
ECOS, ESIN, SIG, WDCG, WDTH, PFMOVE, &
796+
ECOS, ESIN, SIG, WDCG, WDTH, &
794797
FLAGLL, DPDX, DPDY, DQDX, DQDY, GSQRT
795798
USE W3WDATMD, ONLY: TIME
796799
USE W3ADATMD, ONLY: NMX0, NMX1, NMX2, NMY0, NMY1, NMY2, NACT, &
797-
NCENT, MAPX2, MAPY2, MAPAXY, MAPCXY, &
798-
MAPTRN, CG, CX, CY, ATRNX, ATRNY, ITIME
800+
NCENT, MAPX2, MAPY2, MAPAXY, MAPCXY, &
801+
MAPTRN, CG, CX, CY, ATRNX, ATRNY
799802
USE W3IDATMD, ONLY: FLCUR
800803
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, &
801804
ISBPI, BBPI0, BBPIN, IAPROC, NAPERR
@@ -808,6 +811,9 @@ SUBROUTINE W3XYP3 ( ISP, DTG, MAPSTA, MAPFS, VQ, VGX, VGY )
808811
#endif
809812
#ifdef W3_UNO
810813
USE W3UNO2MD
814+
#endif
815+
#ifdef W3_MGG
816+
USE W3GDATMD, ONLY: PFMOVE
811817
#endif
812818
!/
813819
IMPLICIT NONE
@@ -1625,7 +1631,7 @@ SUBROUTINE W3KTP3 ( ISEA, FACTH, FACK, CTHG0, CG, WN, DW, &
16251631
USE W3GDATMD, ONLY: NK, NK2, NTH, NSPEC, SIG, DSIP, ECOS, ESIN, &
16261632
EC2, ESC, ES2, FACHFA, MAPWN, FLCTH, FLCK, &
16271633
CTMAX, DMIN
1628-
USE W3ADATMD, ONLY: MAPTH2, MAPWN2, ITIME, ITSTEP
1634+
USE W3ADATMD, ONLY: MAPTH2, MAPWN2, ITSTEP
16291635
USE W3IDATMD, ONLY: FLCUR
16301636
USE W3ODATMD, ONLY: NDSE, NDST
16311637
#ifdef W3_S
@@ -2050,17 +2056,10 @@ SUBROUTINE W3CFLXY ( ISEA, DTG, MAPSTA, MAPFS, CFLXYMAX, VGX, VGY )
20502056
!
20512057
USE W3TIMEMD, ONLY: DSEC21
20522058
!
2053-
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF, DTCFL, CLATS, &
2054-
FLCX, FLCY, NK, NTH, DTH, XFR, &
2055-
ECOS, ESIN, SIG, WDCG, WDTH, PFMOVE, &
2056-
FLAGLL, DPDX, DPDY, DQDX, DQDY, GSQRT
2057-
USE W3WDATMD, ONLY: TIME
2058-
USE W3ADATMD, ONLY: NMX0, NMX1, NMX2, NMY0, NMY1, NMY2, NACT, &
2059-
NCENT, MAPX2, MAPY2, MAPAXY, MAPCXY, &
2060-
MAPTRN, CG, CX, CY, ATRNX, ATRNY, ITIME
2059+
USE W3GDATMD, ONLY: NX, NY, MAPSF, CLATS, &
2060+
NK, NTH, ECOS, ESIN, DPDX, DPDY, DQDX, DQDY
2061+
USE W3ADATMD, ONLY: CG, CX, CY
20612062
USE W3IDATMD, ONLY: FLCUR
2062-
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, &
2063-
ISBPI, BBPI0, BBPIN
20642063
#ifdef W3_S
20652064
USE W3SERVMD, ONLY: STRACE
20662065
#endif
@@ -2077,15 +2076,11 @@ SUBROUTINE W3CFLXY ( ISEA, DTG, MAPSTA, MAPFS, CFLXYMAX, VGX, VGY )
20772076
!/ ------------------------------------------------------------------- /
20782077
!/ Local parameters
20792078
!/
2080-
INTEGER :: ITH, IK, IXY, IP
2081-
INTEGER :: IX, IY, IXC, IYC, IBI
2079+
INTEGER :: ITH, IK, IXY
2080+
INTEGER :: IX, IY
20822081
#ifdef W3_S
20832082
INTEGER, SAVE :: IENT = 0
20842083
#endif
2085-
REAL :: CG0, CGA, CGN, CGX, CGY, CXC, CYC, &
2086-
CXMIN, CXMAX, CYMIN, CYMAX
2087-
REAL :: CGC, FGSE = 1.
2088-
REAL :: FTH, FTHX, FTHY, FCG, FCGX, FCGY
20892084
REAL :: CP, CQ
20902085
!/
20912086
!/ Automatic work arrays

‎model/src/w3profsmd.F90‎

Lines changed: 30 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -136,16 +136,13 @@ SUBROUTINE W3XYPUG ( ISP, FACX, FACY, DTG, VQ, VGX, VGY, LCALC )
136136
!
137137
USE W3TIMEMD, ONLY: DSEC21
138138
!
139-
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF, MAPFS, DTCFL, CLATS, &
140-
FLCX, FLCY, NK, NTH, DTH, XFR, &
141-
ECOS, ESIN, SIG, PFMOVE,IEN, &
142-
NTRI, TRIGP, CCON , &
143-
IE_CELL, POS_CELL, IOBP, IOBPD, IOBDP, &
144-
FSN, FSPSI, FSFCT, FSNIMP, GTYPE, UNGTYPE
139+
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF, MAPFS, CLATS, &
140+
NTH, ECOS, ESIN, IOBP, &
141+
IOBDP, FSN, FSPSI, FSFCT, FSNIMP, UNGTYPE
145142

146143
USE W3WDATMD, ONLY: TIME
147144
USE W3ODATMD, ONLY: TBPI0, TBPIN, FLBPI
148-
USE W3ADATMD, ONLY: CG, CX, CY, ATRNX, ATRNY, ITIME, CFLXYMAX, DW
145+
USE W3ADATMD, ONLY: CG, CX, CY
149146
USE W3IDATMD, ONLY: FLCUR
150147
! USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, &
151148
! ISBPI, BBPI0, BBPIN
@@ -347,17 +344,14 @@ SUBROUTINE W3CFLUG ( ISEA, NKCFL, FACX, FACY, DT, MAPFS, CFLXYMAX, &
347344
!
348345
USE W3TIMEMD, ONLY: DSEC21
349346
!
350-
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF, DTCFL, CLATS, &
351-
FLCX, FLCY, NK, NTH, DTH, XFR, &
352-
ECOS, ESIN, SIG, PFMOVE,IEN, INDEX_CELL, &
353-
NTRI, TRIGP, CCON , &
354-
IE_CELL, POS_CELL, COUNTRI, SI, IOBP
347+
USE W3GDATMD, ONLY: NX, NY, NSEA, MAPSF, CLATS, &
348+
NTH, ECOS, ESIN, IEN, INDEX_CELL, &
349+
TRIGP, IE_CELL, POS_CELL, SI, IOBP
355350

356-
USE W3ADATMD, ONLY: CG, CX, CY, ATRNX, ATRNY, ITIME, DW
351+
USE W3ADATMD, ONLY: CG, CX, CY
357352
USE W3IDATMD, ONLY: FLCUR
358353
#ifdef W3_T
359-
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, &
360-
ISBPI, BBPI0, BBPIN
354+
USE W3ODATMD, ONLY: FLBPI, NBI, ISBPI, BBPI0, BBPIN
361355
#endif
362356
#ifdef W3_S
363357
USE W3SERVMD, ONLY: STRACE
@@ -531,15 +525,14 @@ SUBROUTINE W3XYPFSN2 ( ISP, C, LCALC, RD10, RD20, DT, AC)
531525
!
532526
!/ ------------------------------------------------------------------- /
533527
!/
534-
USE W3GDATMD, ONLY : NK, NTH, NTRI, NX, CCON, IE_CELL,POS_CELL, SI, &
535-
IEN, TRIGP, CLATS, MAPSF, IOBPD, IOBP, IOBDP, &
528+
USE W3GDATMD, ONLY : NTH, NTRI, NX, SI, &
529+
IEN, TRIGP, CLATS, MAPSF, IOBPD, IOBP, IOBDP, &
536530
IOBPA, FSBCCFL
537531
#ifdef W3_REF1
538532
USE W3GDATMD, ONLY : REFPARS
539533
#endif
540-
USE W3WDATMD, ONLY: TIME
541-
USE W3ADATMD, ONLY: CG, ITER, DW
542-
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, ISBPI, BBPI0, BBPIN
534+
USE W3ADATMD, ONLY: CG, ITER
535+
USE W3ODATMD, ONLY: FLBPI, NBI, ISBPI, BBPI0, BBPIN
543536
USE W3TIMEMD, ONLY: DSEC21
544537
#ifdef W3_S
545538
USE W3SERVMD, ONLY: STRACE
@@ -582,13 +575,13 @@ SUBROUTINE W3XYPFSN2 ( ISP, C, LCALC, RD10, RD20, DT, AC)
582575
!
583576
! local double
584577
!
585-
REAL*8 :: UTILDE, BOUNDARY_FORCING
578+
REAL*8 :: UTILDE
586579
REAL*8 :: CFLXY
587580
REAL*8 :: FL11, FL12, FL21, FL22, FL31, FL32
588581
REAL*8 :: FL111, FL112, FL211, FL212, FL311, FL312
589582
REAL*8 :: DTSI(NX), U(NX)
590583
REAL*8 :: DTMAXGL, DTMAXEXP, REST
591-
REAL*8 :: LAMBDA(2), KTMP(3), CLOC(2,3)
584+
REAL*8 :: LAMBDA(2), KTMP(3)
592585
REAL*8 :: KELEM(3,NTRI), FLALL(3,NTRI)
593586
REAL*8 :: KKSUM(NX), ST(NX)
594587
REAL*8 :: NM(NTRI)
@@ -778,14 +771,13 @@ SUBROUTINE W3XYPFSPSI2 ( ISP, C, LCALC, RD10, RD20, DT, AC)
778771
!
779772
!/ ------------------------------------------------------------------- /
780773
!/
781-
USE W3GDATMD, ONLY : NK, NTH, NTRI, NX, CCON, IE_CELL,POS_CELL, SI, &
782-
IEN, TRIGP, CLATS, MAPSF, IOBPA, IOBPD, IOBP, NNZ, IOBDP
774+
USE W3GDATMD, ONLY : NTH, NTRI, NX, SI, &
775+
IEN, TRIGP, CLATS, MAPSF, IOBPA, IOBPD, IOBDP
783776
#ifdef W3_REF1
784777
USE W3GDATMD, ONLY : REFPARS
785778
#endif
786-
USE W3WDATMD, ONLY: TIME
787779
USE W3ADATMD, ONLY: CG, ITER
788-
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, ISBPI, BBPI0, BBPIN
780+
USE W3ODATMD, ONLY: FLBPI, NBI, ISBPI, BBPI0, BBPIN
789781
USE W3TIMEMD, ONLY: DSEC21
790782
#ifdef W3_S
791783
USE W3SERVMD, ONLY: STRACE
@@ -828,13 +820,13 @@ SUBROUTINE W3XYPFSPSI2 ( ISP, C, LCALC, RD10, RD20, DT, AC)
828820
!:
829821
! local double
830822
!
831-
REAL*8 :: UTILDE, BOUNDARY_FORCING
823+
REAL*8 :: UTILDE
832824
REAL*8 :: FT, CFLXY
833825
REAL*8 :: FL11, FL12, FL21, FL22, FL31, FL32
834826
REAL*8 :: FL111, FL112, FL211, FL212, FL311, FL312
835827
REAL*8 :: DTSI(NX), U(NX)
836828
REAL*8 :: DTMAXGL, DTMAXEXP, REST
837-
REAL*8 :: LAMBDA(2), KTMP(3), TMP(3)
829+
REAL*8 :: LAMBDA(2), KTMP(3)
838830
REAL*8 :: THETA_L(3), BET1(3), BETAHAT(3)
839831
REAL*8 :: KELEM(3,NTRI), FLALL(3,NTRI)
840832
REAL*8 :: KKSUM(NX), ST(NX)
@@ -1032,15 +1024,14 @@ SUBROUTINE W3XYPFSNIMP ( ISP, C, LCALC, RD10, RD20, DT, AC)
10321024
!
10331025
!/ ------------------------------------------------------------------- /
10341026
!/
1035-
USE W3GDATMD, ONLY : NK, NTH, NTRI, NX, CCON, IE_CELL,POS_CELL, SI, &
1036-
IEN, TRIGP, CLATS, MAPSF, IOBPD, IOBPA, IOBP, IAA, JAA, POSI, &
1027+
USE W3GDATMD, ONLY : NTH, NTRI, NX, CCON, IE_CELL,POS_CELL, &
1028+
IEN, TRIGP, CLATS, MAPSF, IOBPD, IOBPA, IAA, JAA, POSI, &
10371029
TRIA, NNZ
10381030
#ifdef W3_REF1
10391031
USE W3GDATMD, ONLY : REFPARS
10401032
#endif
1041-
USE W3WDATMD, ONLY: TIME
1042-
USE W3ADATMD, ONLY: CG, ITER
1043-
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, ISBPI, BBPI0, BBPIN
1033+
USE W3ADATMD, ONLY: CG
1034+
USE W3ODATMD, ONLY: FLBPI, NBI, ISBPI, BBPI0, BBPIN
10441035
USE W3TIMEMD, ONLY: DSEC21
10451036
#ifdef W3_S
10461037
USE W3SERVMD, ONLY: STRACE
@@ -1084,7 +1075,6 @@ SUBROUTINE W3XYPFSNIMP ( ISP, C, LCALC, RD10, RD20, DT, AC)
10841075
!:
10851076
! local double
10861077
!
1087-
REAL*8 :: BOUNDARY_FORCING
10881078
REAL*8 :: FL11, FL12, FL21, FL22, FL31, FL32
10891079
REAL*8 :: U(NX)
10901080
REAL*8 :: DTMAXGL
@@ -1332,14 +1322,13 @@ SUBROUTINE W3XYPFSFCT2 ( ISP, C, LCALC, RD10, RD20, DT, AC)
13321322
!
13331323
!/ ------------------------------------------------------------------- /
13341324
!/
1335-
USE W3GDATMD, ONLY : NK, NTH, NTRI, NX, CCON, IE_CELL,POS_CELL, SI, &
1336-
IEN, TRIGP, CLATS, MAPSF, IOBPD, IOBPA, TRIA, IOBDP
1325+
USE W3GDATMD, ONLY : NTH, NTRI, NX, SI, &
1326+
IEN, TRIGP, CLATS, MAPSF, IOBPD, IOBPA, IOBDP
13371327
#ifdef W3_REF1
13381328
USE W3GDATMD, ONLY : REFPARS
13391329
#endif
1340-
USE W3WDATMD, ONLY: TIME
13411330
USE W3ADATMD, ONLY: CG, ITER
1342-
USE W3ODATMD, ONLY: NDSE, NDST, FLBPI, NBI, TBPI0, TBPIN, ISBPI, BBPI0, BBPIN
1331+
USE W3ODATMD, ONLY: FLBPI, NBI, ISBPI, BBPI0, BBPIN
13431332
USE W3TIMEMD, ONLY: DSEC21
13441333
#ifdef W3_S
13451334
USE W3SERVMD, ONLY: STRACE
@@ -1383,7 +1372,7 @@ SUBROUTINE W3XYPFSFCT2 ( ISP, C, LCALC, RD10, RD20, DT, AC)
13831372
!:
13841373
! local double
13851374
!
1386-
REAL*8 :: UTILDE, BOUNDARY_FORCING
1375+
REAL*8 :: UTILDE
13871376
REAL*8 :: FT, CFLXY
13881377
REAL*8 :: FL11, FL12, FL21, FL22, FL31, FL32
13891378
REAL*8 :: FL111, FL112, FL211, FL212, FL311, FL312
@@ -1637,8 +1626,7 @@ SUBROUTINE SETDEPTH
16371626
USE W3SERVMD, ONLY: STRACE
16381627
#endif
16391628
!
1640-
USE CONSTANTS, ONLY : LPDLIB
1641-
USE W3GDATMD, ONLY: MAPSF, NSEAL, DMIN, IOBDP, MAPSTA, IOBP, MAPFS, NX
1629+
USE W3GDATMD, ONLY: DMIN, IOBDP, MAPFS, NX
16421630
USE W3ADATMD, ONLY: DW
16431631

16441632
IMPLICIT NONE
@@ -1655,7 +1643,7 @@ SUBROUTINE SETDEPTH
16551643
!/
16561644
!/ ------------------------------------------------------------------- /
16571645
!
1658-
INTEGER :: JSEA, ISEA, IX, IP
1646+
INTEGER :: IP
16591647
REAL*8, PARAMETER :: DTHR = 10E-6
16601648
#ifdef W3_S
16611649
CALL STRACE (IENT, 'SETDEPTH')

‎model/src/w3sdb1md.F90‎

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -183,19 +183,22 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
183183
!/ ------------------------------------------------------------------- /
184184
!/
185185
USE CONSTANTS
186-
USE W3GDATMD, ONLY: NK, NTH, NSPEC, SDBC1, SDBC2, FDONLY, FSSOURCE, DDEN
187-
USE W3ODATMD, ONLY: NDST
186+
USE W3GDATMD, ONLY: NK, NTH, NSPEC, SDBC1, SDBC2, FDONLY, DDEN
188187
USE W3GDATMD, ONLY: SIG
189-
USE W3ODATMD, only : IAPROC
190188
USE W3PARALL, only : THR
191189
#ifdef W3_S
192190
USE W3SERVMD, ONLY: STRACE
193191
#endif
192+
#ifdef W3_T
193+
USE W3ODATMD, ONLY: NDST
194+
#endif
194195
#ifdef W3_T0
195196
USE W3ARRYMD, ONLY: PRT2DS
197+
USE W3ODATMD, ONLY: NDST
196198
#endif
197199
#ifdef W3_T1
198200
USE W3ARRYMD, ONLY: OUTMAT
201+
USE W3ODATMD, ONLY: NDST
199202
#endif
200203
!/
201204
IMPLICIT NONE

0 commit comments

Comments
 (0)