| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3849 |
TRBLEN |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
3851 |
TRBLEN |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
4175 |
TRBITP |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
4177 |
TRBITP |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
4300 |
TRBL20 |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
4301 |
TRBL20 |
PARAMETER ( D1HALF = 0.5 * D1 ) |
|
./pkg/fizhi/fizhi_turb.F |
4304 |
TRBL20 |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
4306 |
TRBL20 |
PARAMETER ( CM = CH / D1 ) |
|
./pkg/opps/opps_calc.F |
175 |
OPPS_CALC |
D1=state1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
187 |
OPPS_CALC |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
730 |
NLOPPS |
REAL D1,D2,state1,Density |
|
./pkg/opps/opps_calc.F |
866 |
NLOPPS |
D1=state1(Sd(k2),Td(k2),k2+1) |
|
./pkg/opps/opps_calc.F |
874 |
NLOPPS |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
96 |
OPPS_CALC |
_RL D1,D2,state1 |
|
./pkg/seaice/seaice_budget_ice.F |
100 |
SEAICE_BUDGET_ICE |
D1=SEAICE_sensHeat |
|
./pkg/seaice/seaice_budget_ice.F |
165 |
SEAICE_BUDGET_ICE |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice.F |
171 |
SEAICE_BUDGET_ICE |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./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 |
107 |
SEAICE_BUDGET_ICE_IF |
D1=SEAICE_sensHeat |
|
./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 |
251 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
296 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./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 |
109 |
SEAICE_BUDGET_OCEAN |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
113 |
SEAICE_BUDGET_OCEAN |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
55 |
SEAICE_BUDGET_OCEAN |
_RL QS1, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
72 |
SEAICE_BUDGET_OCEAN |
D1=SEAICE_sensHeat |
|
./pkg/seaice/seaice_budget_ocean_if.F |
131 |
SEAICE_BUDGET_OCEAN_IF |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
135 |
SEAICE_BUDGET_OCEAN_IF |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./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 |
83 |
SEAICE_BUDGET_OCEAN_IF |
D1=SEAICE_sensHeat |