| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
4401 |
TRBL25 |
PARAMETER ( A3 = A4 * A5*(-1.) ) |
|
./pkg/fizhi/fizhi_turb.F |
4433 |
TRBL25 |
ZKH(I,1) = (F2(I,1) + A3*DW2(I,1)) |
|
./pkg/fizhi/update_earth_exports.F |
867 |
GETALB |
PARAMETER (A3=-0.55573341) |
|
./pkg/fizhi/update_earth_exports.F |
880 |
GETALB |
ALBOC(I,J) = A0 + (A1 + (A2 + A3*cosz(I,J))*cosz(I,J))*cosz(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
75 |
SEAICE_BUDGET_OCEAN_IF |
_RL A3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
127 |
SEAICE_SOLVE4TEMP |
_RL A3 (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
230 |
SEAICE_SOLVE4TEMP |
A3(I,J) = 0.0 _d 0 |
|
./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 |
480 |
SEAICE_SOLVE4TEMP |
& 'ice-iter A3 (-A1+A2) ', ITER, A3(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
495 |
SEAICE_SOLVE4TEMP |
& +(A1(I,J)+A2(I,J)-F_c(I,J))/A3(I,J) |