| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
861 |
GETALB |
PARAMETER (A1=-1.2523634 ) |
|
./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 |
3858 |
TRBL25 |
PARAMETER ( A1 = 0.92 ) |
|
./pkg/fizhi/fizhi_turb.F |
3860 |
TRBL25 |
PARAMETER ( A4 = 6. * A1 * A1) |
|
./pkg/fizhi/fizhi_turb.F |
3867 |
TRBL25 |
PARAMETER ( FF2 = 9. * A1 * A2 ) |
|
./pkg/fizhi/fizhi_turb.F |
3869 |
TRBL25 |
PARAMETER ( FF4 = (3.*A2*B2) + (12.*A1*A2 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3897 |
TRBL25 |
ZKM(I,1) = A1 * (F3(I,1)*ZKH(I,1)+A5) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
861 |
GETALB |
PARAMETER (A1=-1.2523634 ) |
|
./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 |
3840 |
TRBL25 |
PARAMETER ( A1 = 0.92 ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3842 |
TRBL25 |
PARAMETER ( A4 = 6. * A1 * A1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3849 |
TRBL25 |
PARAMETER ( FF2 = 9. * A1 * 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 |
3879 |
TRBL25 |
ZKM(I,1) = A1 * (F3(I,1)*ZKH(I,1)+A5) |
|
./pkg/my82/my82_init.F |
35 |
MY82_INIT |
gam1 = 1./3.-2.*A1/B1 |
|
./pkg/my82/my82_init.F |
36 |
MY82_INIT |
gam2 = (B2+6.*A1)/B1 |
|
./pkg/my82/my82_init.F |
39 |
MY82_INIT |
beta1 = A1*B1*(gam1-C1) |
|
./pkg/my82/my82_init.F |
40 |
MY82_INIT |
beta2 = A1*(B1*(gam1-C1) + 6.*A1 + 3.*A2) |
|
./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 |
39 |
NO PROCEDURE |
PARAMETER( A1 = 0.92D0 ) |
|
./pkg/seaice/budget.F |
113 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
121 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
159 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
164 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./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 |
55 |
BUDGET |
_RL A1 (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |