| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
155 |
SEAICE_BUDGET_ICE_IF |
lwdownLoc(I,J) = LWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
198 |
SEAICE_BUDGET_ICE_IF |
F_lwd(I,J) = - 0.97 _d 0 * lwdownLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
89 |
SEAICE_BUDGET_ICE_IF |
_RL lwdownLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_budget_ocean.F |
108 |
SEAICE_BUDGET_OCEAN |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
60 |
SEAICE_BUDGET_OCEAN |
_RL lwdownLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
91 |
SEAICE_BUDGET_OCEAN |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
101 |
SEAICE_BUDGET_OCEAN_IF |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
132 |
SEAICE_BUDGET_OCEAN_IF |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
70 |
SEAICE_BUDGET_OCEAN_IF |
_RL lwdownLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
241 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = LWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
313 |
SEAICE_SOLVE4TEMP |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
319 |
SEAICE_SOLVE4TEMP |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
327 |
SEAICE_SOLVE4TEMP |
F_lwd(I,J) = - 0.97 _d 0 * lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
593 |
SEAICE_SOLVE4TEMP |
A1(I,J)=0.3 _d 0 *SWDOWN(I,J,bi,bj)+lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
627 |
SEAICE_SOLVE4TEMP |
& 'ibi LWL ', lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
98 |
SEAICE_SOLVE4TEMP |
_RL lwdownLoc (1:sNx,1:sNy) |