A bug in the equilibrium_tide.F

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
panfeng291
Posts: 9
Joined: Sun Nov 10, 2013 5:59 pm
Location: NMEFC

A bug in the equilibrium_tide.F

#1 Unread post by panfeng291 »

A bug in the equilibrium_tide.F 204 line:

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))+    &

User avatar
arango
Site Admin
Posts: 1347
Joined: Wed Feb 26, 2003 4:41 pm
Location: DMCS, Rutgers University
Contact:

Re: A bug in the equilibrium_tide.F

#2 Unread post by arango »

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))+    &

Post Reply