| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
4396 |
TRBL25 |
PARAMETER ( A1 = 0.92 ) |
|
./pkg/fizhi/fizhi_turb.F |
4398 |
TRBL25 |
PARAMETER ( A4 = 6. * A1 * A1) |
|
./pkg/fizhi/fizhi_turb.F |
4405 |
TRBL25 |
PARAMETER ( FF2 = 9. * A1 * A2 ) |
|
./pkg/fizhi/fizhi_turb.F |
4407 |
TRBL25 |
PARAMETER ( FF4 = (3.*A2*B2) + (12.*A1*A2 ) ) |
|
./pkg/fizhi/fizhi_turb.F |
4435 |
TRBL25 |
ZKM(I,1) = A1 * (F3(I,1)*ZKH(I,1)+A5) |
|
./pkg/fizhi/update_earth_exports.F |
865 |
GETALB |
PARAMETER (A1=-1.2523634 ) |
|
./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/my82/MY82.h |
38 |
NO PROCEDURE |
_RL A1, A2, B1, B2, C1 |
|
./pkg/my82/MY82.h |
39 |
NO PROCEDURE |
PARAMETER( A1 = 0.92D0 ) |
|
./pkg/my82/my82_init_varia.F |
35 |
MY82_INIT_VARIA |
gam1 = 1. _d 0/3. _d 0 - 2. _d 0 *A1/B1 |
|
./pkg/my82/my82_init_varia.F |
36 |
MY82_INIT_VARIA |
gam2 = (B2+6. _d 0*A1)/B1 |
|
./pkg/my82/my82_init_varia.F |
39 |
MY82_INIT_VARIA |
beta1 = A1*B1*(gam1-C1) |
|
./pkg/my82/my82_init_varia.F |
40 |
MY82_INIT_VARIA |
beta2 = A1*(B1*(gam1-C1) + 6. _d 0 *A1 + 3. _d 0 *A2) |
|
./pkg/my82/my82_init_varia.F |
42 |
MY82_INIT_VARIA |
beta4 = A2*(B1*(gam1+gam2) - 3. _d 0 *A1) |
|
./pkg/seaice/seaice_budget_ice.F |
163 |
SEAICE_BUDGET_ICE |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice.F |
168 |
SEAICE_BUDGET_ICE |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice.F |
224 |
SEAICE_BUDGET_ICE |
& +(A1(I,J)+A2(I,J)+B(I,J))/A3(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
240 |
SEAICE_BUDGET_ICE |
netHeatFlux(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
80 |
SEAICE_BUDGET_ICE |
_RL A1 (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
107 |
SEAICE_BUDGET_OCEAN |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
115 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
63 |
SEAICE_BUDGET_OCEAN |
_RL A1 (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
129 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
137 |
SEAICE_BUDGET_OCEAN_IF |
netHeatFlux(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
71 |
SEAICE_BUDGET_OCEAN_IF |
_RL A1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |