| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3748 |
TRBL20 |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
3749 |
TRBL20 |
PARAMETER ( D1HALF = 0.5 * D1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3752 |
TRBL20 |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3754 |
TRBL20 |
PARAMETER ( CM = CH / D1 ) |
|
./pkg/seaice/budget.F |
112 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
116 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
158 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
164 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
188 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1I*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
191 |
BUDGET |
A3(I,J)=4.0 _d +00*D3*(TICE(I,J,bi,bj)**3)+B(I,J)+D1*UG(I,J) |
|
./pkg/seaice/budget.F |
47 |
BUDGET |
_RL QS1, C1, C2, C3, C4, C5, TB, D1, D1W, D1I, D3 |
|
./pkg/seaice/budget.F |
70 |
BUDGET |
D1=SEAICE_sensHeat |