| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
4293 |
TRBL20 |
PARAMETER ( D3 = 0.29397643 ) |
|
./pkg/fizhi/fizhi_turb.F |
4296 |
TRBL20 |
PARAMETER ( D3B2 = D3 / RF1 ) |
|
./pkg/fizhi/fizhi_turb.F |
4320 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
112 |
SEAICE_BUDGET_ICE_IF |
D3=SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ice_if.F |
245 |
SEAICE_BUDGET_ICE_IF |
dFiDTs1 = 4.0 * D3*t3 + effConduct + D1*UG(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
251 |
SEAICE_BUDGET_ICE_IF |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
296 |
SEAICE_BUDGET_ICE_IF |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
76 |
SEAICE_BUDGET_ICE_IF |
_RL QS1, C1, C2, C3, C4, C5, TB, D1, D1I, D3,IAN1 |
|
./pkg/seaice/seaice_budget_ocean.F |
114 |
SEAICE_BUDGET_OCEAN |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean.F |
55 |
SEAICE_BUDGET_OCEAN |
_RL QS1, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
76 |
SEAICE_BUDGET_OCEAN |
D3=SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ocean_if.F |
138 |
SEAICE_BUDGET_OCEAN_IF |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
59 |
SEAICE_BUDGET_OCEAN_IF |
_RL QS1, TB, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean_if.F |
89 |
SEAICE_BUDGET_OCEAN_IF |
D3=SEAICE_emissivity |
|
./pkg/seaice/seaice_solve4temp.F |
117 |
SEAICE_SOLVE4TEMP |
_RL D1, D1I, D3 |
|
./pkg/seaice/seaice_solve4temp.F |
180 |
SEAICE_SOLVE4TEMP |
D3=SEAICE_emissivity |
|
./pkg/seaice/seaice_solve4temp.F |
444 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |
|
./pkg/seaice/seaice_solve4temp.F |
445 |
SEAICE_SOLVE4TEMP |
A3(I,J) = 4.0 _d 0 * D3 * t3 + effConduct(I,J) + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
456 |
SEAICE_SOLVE4TEMP |
dFiDTs1 = 4.0 _d 0 * D3*t3 + effConduct(I,J) + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
459 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J)= t4 * D3 |
|
./pkg/seaice/seaice_solve4temp.F |
574 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_solve4temp.F |
595 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |