Skip to content

Commit a27375f

Browse files
Gulf of America (#1376)
1 parent ce6b8b6 commit a27375f

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

smc_docs/SMCG_TKs/G50SMCSRGD.f90

+3-3
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@
2828
!! J G Li 14 Oct 2010
2929
!! New AngleD program for SMC grid only.
3030
!! 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.
3232
!! J G Li 4 May 2010
3333
!! Adapted for SMC50 grid global + Arctic test.
3434
!! J G Li 26 Oct 2011
@@ -1178,7 +1178,7 @@ SUBROUTINE SPECUUVV
11781178
CNST2 = 1.0/(0.5 + 5.0/DLat)
11791179
CNST1 = CNST2*DLon/DLat
11801180

1181-
! Gulf of Mexico patch to test coastal high waves. JGLi 04May2011
1181+
! Gulf of America patch to test coastal high waves. JGLi 04May2011
11821182
ii=NINT(270.0/DLon)
11831183
jj=NINT( 25.0/DLat)
11841184

@@ -1194,7 +1194,7 @@ SUBROUTINE SPECUUVV
11941194
C(i)=SWH0
11951195
ENDIF
11961196

1197-
!! A round patch in Gulf of Mexico same as Arctic one
1197+
!! A round patch in Gulf of America same as Arctic one
11981198
CNST5 = Real( ICE(1,i) - ii )*CNST1*CCLat(kk)
11991199
CNST6 = Real( kk - jj )*CNST2
12001200
CNST4 = CNST5*CNST5 + CNST6*CNST6

0 commit comments

Comments
 (0)