/[MITgcm]/MITgcm/pkg/kpp/kpp_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_calc.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.28 by jmc, Sun Jul 18 01:20:22 2004 UTC revision 1.29 by jmc, Sun Jul 18 15:29:52 2004 UTC
# Line 490  c     Estimate reference velocity uRef a Line 490  c     Estimate reference velocity uRef a
490       &                       surfaceForcingU(ip1,j,bi,bj) ) * p5       &                       surfaceForcingU(ip1,j,bi,bj) ) * p5
491       &                   *recip_drF(1)       &                   *recip_drF(1)
492                    ustarY = ( surfaceForcingV(i,j,  bi,bj) +                    ustarY = ( surfaceForcingV(i,j,  bi,bj) +
493       &                       surfaceForcingU(i,jp1,bi,bj) ) * p5       &                       surfaceForcingV(i,jp1,bi,bj) ) * p5
494       &                   *recip_drF(1)       &                   *recip_drF(1)
495                    tempVar1 = ustarX * ustarX + ustarY * ustarY                    tempVar1 = ustarX * ustarX + ustarY * ustarY
496                    if ( tempVar1 .lt. (epsln*epsln) ) then                    if ( tempVar1 .lt. (epsln*epsln) ) then
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22