| 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 |
140 |
SEAICE_SOLVE4TEMP |
_RL lwdownLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
238 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX( MIN_LWDOWN, LWDOWN(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
252 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = SEAICE_snow_emiss*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
254 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
261 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = SEAICE_ice_emiss*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
263 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
413 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
513 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
552 |
SEAICE_SOLVE4TEMP |
& 'ibi LWL ', lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
561 |
SEAICE_SOLVE4TEMP |
& -lwdownLoc(I,J), -absorbedSW(I,J), F_lwu(I,J) |