| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ocean.F |
125 |
SEAICE_BUDGET_OCEAN |
lwflux(I,J,bi,bj) = - lwdownLoc(I,J)*SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ocean.F |
64 |
SEAICE_BUDGET_OCEAN |
_RL lwdownLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
98 |
SEAICE_BUDGET_OCEAN |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
143 |
SEAICE_SOLVE4TEMP |
_RL lwdownLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
241 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX( MIN_LWDOWN, LWDOWN(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
255 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = SEAICE_snow_emiss*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
257 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
264 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = SEAICE_ice_emiss*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
266 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
516 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
555 |
SEAICE_SOLVE4TEMP |
& 'ibi LWL ', lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
564 |
SEAICE_SOLVE4TEMP |
& -lwdownLoc(I,J), -absorbedSW(I,J), F_lwu(I,J) |