/[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.7 by mlosch, Fri Mar 17 15:53:38 2006 UTC revision 1.8 by mlosch, Mon Mar 20 21:36:11 2006 UTC
# Line 87  C     recompute viscosities from updated Line 87  C     recompute viscosities from updated
87       I      uIce(1-Olx,1-Oly,1,1,1), vIce(1-Olx,1-Oly,1,1,1),       I      uIce(1-Olx,1-Oly,1,1,1), vIce(1-Olx,1-Oly,1,1,1),
88       I      zMin, zMax, hEffM, press0,       I      zMin, zMax, hEffM, press0,
89       O      eta, zeta, press,       O      eta, zeta, press,
90    #ifdef SEAICE_ALLOW_EVP
91         O      seaice_div, seaice_tension, seaice_shear,
92    #endif /* SEAICE_ALLOW_EVP */
93       I      myThid )       I      myThid )
94  C     re-compute internal stresses with updated ice velocities  C     re-compute internal stresses with updated ice velocities
95         DO bj=myByLo(myThid),myByHi(myThid)         DO bj=myByLo(myThid),myByHi(myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22