| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3743 |
TRBL20 |
PARAMETER ( D3 = 0.29397643 ) |
|
./pkg/fizhi/fizhi_turb.F |
3746 |
TRBL20 |
PARAMETER ( D3B2 = D3 / RF1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3770 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/seaice/seaice_budget_ocean.F |
126 |
SEAICE_BUDGET_OCEAN |
& + D3*tsurfLoc(I,J)**4 |
|
./pkg/seaice/seaice_budget_ocean.F |
59 |
SEAICE_BUDGET_OCEAN |
_RL QS1, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
78 |
SEAICE_BUDGET_OCEAN |
D3=SEAICE_emissivity*SEAICE_boltzmann |
|
./pkg/seaice/seaice_solve4temp.F |
101 |
SEAICE_SOLVE4TEMP |
_RL D3(1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
252 |
SEAICE_SOLVE4TEMP |
D3(I,J)=SEAICE_snow_emiss*SEAICE_boltzmann |
|
./pkg/seaice/seaice_solve4temp.F |
261 |
SEAICE_SOLVE4TEMP |
D3(I,J)=SEAICE_ice_emiss*SEAICE_boltzmann |
|
./pkg/seaice/seaice_solve4temp.F |
414 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J) = t4 * D3(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
419 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
513 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J) = t4 * D3(I,J) |