File tree 1 file changed +3
-3
lines changed
1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 28
28
! ! J G Li 14 Oct 2010
29
29
! ! New AngleD program for SMC grid only.
30
30
! ! J G Li 21 Apr 2010
31
- ! ! Test Gulf of Mexico area for high coastal waves.
31
+ ! ! Test Gulf of America area for high coastal waves.
32
32
! ! J G Li 4 May 2010
33
33
! ! Adapted for SMC50 grid global + Arctic test.
34
34
! ! J G Li 26 Oct 2011
@@ -1178,7 +1178,7 @@ SUBROUTINE SPECUUVV
1178
1178
CNST2 = 1.0 / (0.5 + 5.0 / DLat)
1179
1179
CNST1 = CNST2* DLon/ DLat
1180
1180
1181
- ! Gulf of Mexico patch to test coastal high waves. JGLi 04May2011
1181
+ ! Gulf of America patch to test coastal high waves. JGLi 04May2011
1182
1182
ii= NINT (270.0 / DLon)
1183
1183
jj= NINT ( 25.0 / DLat)
1184
1184
@@ -1194,7 +1194,7 @@ SUBROUTINE SPECUUVV
1194
1194
C(i)= SWH0
1195
1195
ENDIF
1196
1196
1197
- ! ! A round patch in Gulf of Mexico same as Arctic one
1197
+ ! ! A round patch in Gulf of America same as Arctic one
1198
1198
CNST5 = Real ( ICE(1 ,i) - ii )* CNST1* CCLat(kk)
1199
1199
CNST6 = Real ( kk - jj )* CNST2
1200
1200
CNST4 = CNST5* CNST5 + CNST6* CNST6
You can’t perform that action at this time.
0 commit comments