Code: Select all
& S2%Afl*Cos2Lat(i,j)* &
& COS(S2%omega*t_time_sec+ &
& deg2rad*([b]2.0+r8[/b]*lonr(i,j)+S2%chi+S2%nu))+ &A bug in the equilibrium_tide.F
-
panfeng291
- Posts: 9
- Joined: Sun Nov 10, 2013 5:59 pm
- Location: NMEFC
A bug in the equilibrium_tide.F
A bug in the equilibrium_tide.F 204 line:
-
arango
- Site Admin
- Posts: 1367
- Joined: Wed Feb 26, 2003 4:41 pm
- Location: DMCS, Rutgers University
- Contact:
Re: A bug in the equilibrium_tide.F
Yep, good catch! We need an underscore here.
Code: Select all
& COS(S2%omega*t_time_sec+ &
& deg2rad*(2.0_r8*lonr(i,j)+S2%chi+S2%nu))+ &