A bug in the equilibrium_tide.F

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

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