/[MITgcm]/MITgcm/pkg/seaice/groatb.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/groatb.F

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

revision 1.1.2.7 by dimitri, Fri May 23 08:07:09 2003 UTC revision 1.7 by dimitri, Fri May 23 20:19:16 2003 UTC
# Line 87  C NOW DETERMINE MIXED LAYER TEMPERATURE Line 87  C NOW DETERMINE MIXED LAYER TEMPERATURE
87            V1=0.25 _d 0*(VWIND(I+1,J+1,bi,bj)+VWIND(I+1,J,bi,bj)            V1=0.25 _d 0*(VWIND(I+1,J+1,bi,bj)+VWIND(I+1,J,bi,bj)
88       1      +VWIND(I,J+1,bi,bj)+VWIND(I,J,bi,bj))       1      +VWIND(I,J+1,bi,bj)+VWIND(I,J,bi,bj))
89            SPEED_SQ = U1**2 + V1**2            SPEED_SQ = U1**2 + V1**2
90            IF ( SPEED_SQ .LT. SEAICE_EPS_SQ ) THEN            IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
91               UG(I,J)=SEAICE_EPS               UG(I,J)=SEAICE_EPS
92            ELSE            ELSE
93               UG(I,J)=SQRT(SPEED_SQ)               UG(I,J)=SQRT(SPEED_SQ)
Legend:
Removed from v.1.1.2.7  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22