/[MITgcm]/MITgcm/pkg/exf/exf_set_climsst.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_set_climsst.F

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

revision 1.5 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.6 by heimbach, Thu Mar 6 00:47:33 2003 UTC
# Line 178  c     == end of interface == Line 178  c     == end of interface ==
178          do bi = mybxlo(mythid), mybxhi(mythid)          do bi = mybxlo(mythid), mybxhi(mythid)
179            do j = 1, sny            do j = 1, sny
180              do i = 1, snx              do i = 1, snx
181                climsst (i,j,bi,bj) = 0. _d 0                climsst (i,j,bi,bj) = climsstconst
182                climsst0(i,j,bi,bj) = 0. _d 0                climsst0(i,j,bi,bj) = 0. _d 0
183                climsst1(i,j,bi,bj) = 0. _d 0                climsst1(i,j,bi,bj) = 0. _d 0
184              enddo              enddo
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22