/[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.8 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.9 by dimitri, Sun Dec 14 04:56:18 2003 UTC
# Line 47  c do not introduce turning angle Line 47  c do not introduce turning angle
47        COSWAT=ONE        COSWAT=ONE
48    
49  C--   Update overlap regions  C--   Update overlap regions
50        _EXCH_XY_R8(WINDX, myThid)        CALL EXCH_UV_XY_RL(WINDX, WINDY, .TRUE., myThid)
       _EXCH_XY_R8(WINDY, myThid)  
51    
52  C--   Interpolate wind stress (N/m^2) from South-West B-grid  C--   Interpolate wind stress (N/m^2) from South-West B-grid
53  C     to South-West C-grid for forcing ocean model.  C     to South-West C-grid for forcing ocean model.
# Line 78  cdm !!! also corresponds to that adopted Line 77  cdm !!! also corresponds to that adopted
77         ENDDO         ENDDO
78        ENDDO        ENDDO
79    
80        _EXCH_XY_R4( fu, myThid )        CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)
       _EXCH_XY_R4( fv, myThid )  
81    
82  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
83    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22