/[MITgcm]/MITgcm_contrib/submesoscale/code/gmredi_calc_tensor.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/gmredi_calc_tensor.F

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

revision 1.6 by zhc, Fri Mar 19 19:17:45 2010 UTC revision 1.7 by zhc, Fri Mar 19 19:29:47 2010 UTC
# Line 1093  c hzhang: clipping here, ref to Baylor p Line 1093  c hzhang: clipping here, ref to Baylor p
1093          ENDIF          ENDIF
1094    
1095          hml=.5 * delR(k)          hml=.5 * delR(k)
1096          IF ( abs(SM_PsiX(i,j) .gt. hml) ) THEN          IF ( abs(SM_PsiX(i,j)) .gt. hml ) THEN
1097                  SM_PsiX(i,j)=SIGN( hml, SM_PsiX(i,j) )                  SM_PsiX(i,j)=SIGN( hml, SM_PsiX(i,j) )
1098          ENDIF          ENDIF
1099          IF ( abs(SM_PsiY(i,j) .gt. hml) ) THEN          IF ( abs(SM_PsiY(i,j)) .gt. hml ) THEN
1100                  SM_PsiY(i,j)=SIGN( hml, SM_PsiY(i,j) )                  SM_PsiY(i,j)=SIGN( hml, SM_PsiY(i,j) )
1101          ENDIF          ENDIF
1102  c hzhang: clipping done  c hzhang: clipping done
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22