| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_clim_fields.h |
20 |
NO PROCEDURE |
& climsst0, climsst1 |
|
./pkg/exf/exf_clim_fields.h |
23 |
NO PROCEDURE |
_RL climsst0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_set_climsst.F |
109 |
EXF_SET_CLIMSST |
call EXF_SWAPFFIELDS( climsst0, climsst1, mythid ) |
|
./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 |
148 |
EXF_SET_CLIMSST |
& fac * climsst0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_climsst.F |
209 |
EXF_INIT_CLIMSST |
climsst0(i,j,bi,bj) = 0. _d 0 |