/[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.3 by heimbach, Tue Nov 12 20:34:41 2002 UTC revision 1.4 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 21  c                for the MITgcmUV. Line 21  c                for the MITgcmUV.
21  c              Christian Eckert eckert@mit.edu 12-Feb-2000  c              Christian Eckert eckert@mit.edu 12-Feb-2000
22  c              - Changed Routine names (package prefix: exf_)  c              - Changed Routine names (package prefix: exf_)
23  c     changed: heimbach@mit.edu 08-Feb-2002  c     changed: heimbach@mit.edu 08-Feb-2002
24    c     changed: menemenlis@jpl.nasa.gov 20-Dec-2002
25  c  c
26  c     ==================================================================  c     ==================================================================
27  c     SUBROUTINE exf_set_climsst  c     SUBROUTINE exf_set_climsst
# Line 104  c     get record numbers and interpolati Line 105  c     get record numbers and interpolati
105  c     Loop over tiles.  c     Loop over tiles.
106        do bj = mybylo(mythid),mybyhi(mythid)        do bj = mybylo(mythid),mybyhi(mythid)
107          do bi = mybxlo(mythid),mybxhi(mythid)          do bi = mybxlo(mythid),mybxhi(mythid)
108            do j = 1-oly,sny+oly            do j = 1,sny
109              do i = 1-olx,snx+olx              do i = 1,snx
110    
111  c             Set to freezing temperature if less  c             Set to freezing temperature if less
112                if (climsst0(i,j,bi,bj) .lt. climtempfreeze) then                if (climsst0(i,j,bi,bj) .lt. climtempfreeze) then
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22