File |
Line number |
Procedure |
Code |
./pkg/exf/exf_clim_readparms.F |
105 |
EXF_CLIM_READPARMS |
climtempfreeze = -1.9 _d 0 |
./pkg/exf/exf_clim_readparms.F |
50 |
EXF_CLIM_READPARMS |
& climtempfreeze, |
./pkg/exf/exf_set_climtemp.F |
122 |
EXF_SET_CLIMTEMP |
if (climtemp0(i,j,k,bi,bj) .lt. climtempfreeze) |
./pkg/exf/exf_set_climtemp.F |
123 |
EXF_SET_CLIMTEMP |
& climtemp0(i,j,k,bi,bj) = climtempfreeze |
./pkg/exf/exf_set_climtemp.F |
124 |
EXF_SET_CLIMTEMP |
if (climtemp1(i,j,k,bi,bj) .lt. climtempfreeze) |
./pkg/exf/exf_set_climtemp.F |
125 |
EXF_SET_CLIMTEMP |
& climtemp1(i,j,k,bi,bj) = climtempfreeze |
./pkg/exf/exf_clim_param.h |
54 |
NO PROCEDURE |
_RL climtempfreeze |
./pkg/exf/exf_clim_param.h |
69 |
NO PROCEDURE |
& climtempfreeze, |
./pkg/exf/exf_set_climsst.F |
139 |
EXF_SET_CLIMSST |
if (climsst0(i,j,bi,bj) .lt. climtempfreeze) then |
./pkg/exf/exf_set_climsst.F |
140 |
EXF_SET_CLIMSST |
climsst0(i,j,bi,bj) = climtempfreeze |
./pkg/exf/exf_set_climsst.F |
142 |
EXF_SET_CLIMSST |
if (climsst1(i,j,bi,bj) .lt. climtempfreeze) then |
./pkg/exf/exf_set_climsst.F |
143 |
EXF_SET_CLIMSST |
climsst1(i,j,bi,bj) = climtempfreeze |