| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_clim_fields.h |
38 |
NO PROCEDURE |
& climtemp0, climtemp1 |
|
./pkg/exf/exf_clim_fields.h |
41 |
NO PROCEDURE |
_RL climtemp0 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/exf/exf_set_climtemp.F |
101 |
EXF_SET_CLIMTEMP |
call EXF_SWAPFFIELDS_3D( climtemp0, climtemp1, mythid ) |
|
./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 |
129 |
EXF_SET_CLIMTEMP |
& fac * climtemp0(i,j,k,bi,bj) + |
|
./pkg/exf/exf_set_climtemp.F |
191 |
EXF_INIT_CLIMTEMP |
climtemp0(i,j,k,bi,bj) = 0. _d 0 |