| 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_if.F |
108 |
SEAICE_BUDGET_ICE_IF |
D1 =SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir |
|
./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 |
252 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
297 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./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 |
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_dalton*SEAICE_cpAir*SEAICE_rhoAir |
|
./pkg/seaice/seaice_budget_ocean_if.F |
133 |
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 |
137 |
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 |
59 |
SEAICE_BUDGET_OCEAN_IF |
_RL QS1, TB, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean_if.F |
85 |
SEAICE_BUDGET_OCEAN_IF |
D1=SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir |
|
./pkg/seaice/seaice_solve4temp.F |
117 |
SEAICE_SOLVE4TEMP |
_RL D1, D1I, D3 |
|
./pkg/seaice/seaice_solve4temp.F |
174 |
SEAICE_SOLVE4TEMP |
D1=SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./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 |
461 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
575 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
594 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./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 |