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 |
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 |