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

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

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

revision 1.14 by mlosch, Tue Feb 7 08:08:28 2006 UTC revision 1.15 by mlosch, Thu Mar 2 16:09:47 2006 UTC
# Line 36  C     i,j,bi,bj - Loop counters Line 36  C     i,j,bi,bj - Loop counters
36        _RL  fuIce, fvIce        _RL  fuIce, fvIce
37  #endif  #endif
38    
39  C   25 DEG GIVES SIN EQUAL TO 0.4226  c     introduce turning angle (default is zero)
40        SINWIN=0.4226 _d 0        SINWIN=SIN(SEAICE_airTurnAngle)
41        COSWIN=0.9063 _d 0        COSWIN=COS(SEAICE_airTurnAngle)
42        SINWAT=0.4226 _d 0        SINWAT=SIN(SEAICE_waterTurnAngle)
43        COSWAT=0.9063 _d 0        COSWAT=COS(SEAICE_waterTurnAngle)
 c do not introduce turning angle  
       SINWIN=ZERO  
       COSWIN=ONE  
       SINWAT=ZERO  
       COSWAT=ONE  
44    
45  #ifdef SEAICE_ORIGINAL_BAD_ICE_STRESS  #ifdef SEAICE_ORIGINAL_BAD_ICE_STRESS
46  C--   Following formulation is problematic and is no longer used.  C--   Following formulation is problematic and is no longer used.
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22