| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
230 |
EBM_ATMOSPHERE |
< (1 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) ) |
|
./pkg/ebm/EBM.h |
48 |
NO PROCEDURE |
_RL Q0, Q2, A0, A2, A4 |
|
./pkg/ebm/EBM.h |
50 |
NO PROCEDURE |
PARAMETER ( A0 = 0.322, A2 = 0.231, A4 = 0.086 ) |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
PARAMETER (A2= 1.4224051 ) |
|
./pkg/fizhi/update_earth_exports.F |
876 |
GETALB |
ALBOC(I,J) = A0 + (A1 + (A2 + A3*cosz(I,J))*cosz(I,J))*cosz(I,J) |
|
./pkg/fizhi/fizhi_turb.F |
3859 |
TRBL25 |
PARAMETER ( A2 = 0.74 ) |
|
./pkg/fizhi/fizhi_turb.F |
3867 |
TRBL25 |
PARAMETER ( FF2 = 9. * A1 * A2 ) |
|
./pkg/fizhi/fizhi_turb.F |
3868 |
TRBL25 |
PARAMETER ( FF3 = (3.*A2*B2) - (9.*A2*A2 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3869 |
TRBL25 |
PARAMETER ( FF4 = (3.*A2*B2) + (12.*A1*A2 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3899 |
TRBL25 |
ZKH(I,1) = A2 * ZKH(I,1) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
862 |
GETALB |
PARAMETER (A2= 1.4224051 ) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
876 |
GETALB |
ALBOC(I,J) = A0 + (A1 + (A2 + A3*cosz(I,J))*cosz(I,J))*cosz(I,J) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3841 |
TRBL25 |
PARAMETER ( A2 = 0.74 ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3849 |
TRBL25 |
PARAMETER ( FF2 = 9. * A1 * A2 ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3850 |
TRBL25 |
PARAMETER ( FF3 = (3.*A2*B2) - (9.*A2*A2 ) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3851 |
TRBL25 |
PARAMETER ( FF4 = (3.*A2*B2) + (12.*A1*A2 ) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3881 |
TRBL25 |
ZKH(I,1) = A2 * ZKH(I,1) |
|
./pkg/my82/my82_init.F |
37 |
MY82_INIT |
alpha1 = 3.*A2*gam1 |
|
./pkg/my82/my82_init.F |
38 |
MY82_INIT |
alpha2 = 3.*A2*(gam1+gam2) |
|
./pkg/my82/my82_init.F |
40 |
MY82_INIT |
beta2 = A1*(B1*(gam1-C1) + 6.*A1 + 3.*A2) |
|
./pkg/my82/my82_init.F |
41 |
MY82_INIT |
beta3 = A2*B1*gam1 |
|
./pkg/my82/my82_init.F |
42 |
MY82_INIT |
beta4 = A2*(B1*(gam1+gam2) - 3.*A1) |
|
./pkg/my82/MY82.h |
38 |
NO PROCEDURE |
_RL A1, A2, B1, B2, C1 |
|
./pkg/my82/MY82.h |
40 |
NO PROCEDURE |
PARAMETER( A2 = 0.74D0 ) |
|
./pkg/seaice/budget.F |
119 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
121 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
191 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1I*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
212 |
BUDGET |
& +(A1(I,J)+A2(I,J)+B(I,J))/A3(I,J) |
|
./pkg/seaice/budget.F |
228 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
56 |
BUDGET |
_RL A2 (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |