| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3395 |
TRBLEN |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
3397 |
TRBLEN |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3657 |
TRBITP |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
3659 |
TRBITP |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3750 |
TRBL20 |
PARAMETER ( D1 = D4 * E5 ) |
|
./pkg/fizhi/fizhi_turb.F |
3751 |
TRBL20 |
PARAMETER ( D1HALF = 0.5 * D1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3754 |
TRBL20 |
PARAMETER ( RICR = ( (RF1-RFC)*RFC ) / ( (RF2-RFC)*D1 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3756 |
TRBL20 |
PARAMETER ( CM = CH / D1 ) |
|
./pkg/opps/opps_calc.F |
102 |
OPPS_CALC |
_RL D1, D2 |
|
./pkg/opps/opps_calc.F |
177 |
OPPS_CALC |
D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
189 |
OPPS_CALC |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
574 |
NLOPPS |
REAL D1,D2,state1,Density |
|
./pkg/opps/opps_calc.F |
702 |
NLOPPS |
D1=state1(Sd(k2),Td(k2),k2+1) |
|
./pkg/opps/opps_calc.F |
710 |
NLOPPS |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/seaice/seaice_budget_ocean.F |
129 |
SEAICE_BUDGET_OCEAN |
hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
59 |
SEAICE_BUDGET_OCEAN |
_RL QS1, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
74 |
SEAICE_BUDGET_OCEAN |
D1=SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir |
|
./pkg/seaice/seaice_solve4temp.F |
100 |
SEAICE_SOLVE4TEMP |
_RL D1, D1I |
|
./pkg/seaice/seaice_solve4temp.F |
189 |
SEAICE_SOLVE4TEMP |
D1=SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir |
|
./pkg/seaice/seaice_solve4temp.F |
415 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(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 |
514 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |