| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_clim_fields.h |
20 |
NO PROCEDURE |
& climsst0, climsst1 |
|
./pkg/exf/exf_clim_fields.h |
24 |
NO PROCEDURE |
_RL climsst1 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_set_climsst.F |
102 |
EXF_SET_CLIMSST |
call EXF_FILTER_RL( climsst1, climsstmask, mythid ) |
|
./pkg/exf/exf_set_climsst.F |
104 |
EXF_SET_CLIMSST |
call EXF_FILTER_RS( climsst1, climsstmask, mythid ) |
|
./pkg/exf/exf_set_climsst.F |
109 |
EXF_SET_CLIMSST |
call EXF_SWAPFFIELDS( climsst0, climsst1, mythid ) |
|
./pkg/exf/exf_set_climsst.F |
115 |
EXF_SET_CLIMSST |
& , climsst1, count1, xC, yC |
|
./pkg/exf/exf_set_climsst.F |
122 |
EXF_SET_CLIMSST |
& , climsst1, count1, mythid |
|
./pkg/exf/exf_set_climsst.F |
126 |
EXF_SET_CLIMSST |
call EXF_FILTER_RL( climsst1, climsstmask, mythid ) |
|
./pkg/exf/exf_set_climsst.F |
128 |
EXF_SET_CLIMSST |
call EXF_FILTER_RS( climsst1, climsstmask, mythid ) |
|
./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 |
|
./pkg/exf/exf_set_climsst.F |
149 |
EXF_SET_CLIMSST |
& (exf_one - fac) * climsst1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_climsst.F |
210 |
EXF_INIT_CLIMSST |
climsst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsst.F |
91 |
EXF_SET_CLIMSST |
& , climsst1, count0, xC, yC |
|
./pkg/exf/exf_set_climsst.F |
98 |
EXF_SET_CLIMSST |
& , climsst1, count0, mythid |