| 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.F |
104 |
SEAICE_BUDGET_ICE |
D3=SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ice.F |
199 |
SEAICE_BUDGET_ICE |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhIce-D3*t4 |
|
./pkg/seaice/seaice_budget_ice.F |
206 |
SEAICE_BUDGET_ICE |
A3(I,J)=4.0 _d +00*D3*t3 + effConduct + D1*UG(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
65 |
SEAICE_BUDGET_ICE |
_RL QS1, C1, C2, C3, C4, C5, TB, D1, D1I, D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
111 |
SEAICE_BUDGET_ICE_IF |
D3=SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ice_if.F |
244 |
SEAICE_BUDGET_ICE_IF |
dFiDTs1 = 4.0 * D3*t3 + effConduct + D1*UG(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
250 |
SEAICE_BUDGET_ICE_IF |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
295 |
SEAICE_BUDGET_ICE_IF |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
75 |
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 |
136 |
SEAICE_BUDGET_OCEAN_IF |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
57 |
SEAICE_BUDGET_OCEAN_IF |
_RL QS1, TB, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean_if.F |
87 |
SEAICE_BUDGET_OCEAN_IF |
D3=SEAICE_emissivity |