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

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

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

revision 1.26 by mlosch, Wed Jun 24 08:56:46 2009 UTC revision 1.27 by jmc, Thu Sep 10 16:05:26 2009 UTC
# Line 39  C     i,j,bi,bj - Loop counters Line 39  C     i,j,bi,bj - Loop counters
39  C     kSrf      - vertical index of surface layer  C     kSrf      - vertical index of surface layer
40        INTEGER i, j, bi, bj        INTEGER i, j, bi, bj
41        INTEGER kSrf        INTEGER kSrf
42        _RL  SINWAT, COSWAT, SINWIN, COSWIN        _RL  COSWAT
43          _RS  SINWAT
44        _RL  fuIceLoc, fvIceLoc        _RL  fuIceLoc, fvIceLoc
45        _RL  areaW, areaS        _RL  areaW, areaS
46    
# Line 48  C     surrface level Line 49  C     surrface level
49  C     introduce turning angle (default is zero)  C     introduce turning angle (default is zero)
50        SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad)        SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad)
51        COSWAT=COS(SEAICE_waterTurnAngle*deg2rad)        COSWAT=COS(SEAICE_waterTurnAngle*deg2rad)
       SINWIN=SIN(SEAICE_airTurnAngle*deg2rad)  
       COSWIN=COS(SEAICE_airTurnAngle*deg2rad)  
52    
53        IF ( useHB87StressCoupling ) THEN        IF ( useHB87StressCoupling ) THEN
54  C  C
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22