| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
847 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
977 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1343 |
RCANOP |
I NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
1356 |
RCANOP |
_RL CAPAC(NCH), SNOW(NCH), SATCAP(NCH), RA(NCH), ETURB(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
1373 |
RCANOP |
& ( 1.+POTFRC(CHNO)*RC(ChNo)/RA(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1382 |
RCANOP |
& ( 1.+SNWFRC(CHNO)*RC(ChNo)/RA(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1408 |
WUPDAT |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
1424 |
WUPDAT |
& TC(NCH), RA(NCH), RC(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
205 |
TILE |
RA(CHNO) = ONE / ( CD(CHNO) * UM(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
285 |
TILE |
I NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
316 |
TILE |
CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
336 |
TILE |
CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
358 |
TILE |
EPFRC=POTFRC(CHNO) * ( RA(CHNO) + RTBS ) / |
|
./pkg/fizhi/fizhi_lsm.F |
359 |
TILE |
& ( RA(CHNO) + POTFRC(CHNO)*RTBS ) |
|
./pkg/fizhi/fizhi_lsm.F |
390 |
TILE |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
476 |
TILE |
DEFCIT = EVAP(CHNO) * ( RC(CHNO) + RA(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
74 |
TILE |
& DESDTC(nch), EA(nch), RA(nch), ALHX(nch), |
|
./pkg/fizhi/fizhi_swrad.F |
137 |
SWRIO |
CALL ASTRO ( 20040321, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
141 |
SWRIO |
CALL ASTRO ( 20040321, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
143 |
SWRIO |
CALL ASTRO ( NYMD, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
147 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/chronos/chronos.F |
698 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./pkg/chronos/chronos.F |
825 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/ecco/cost_bp.F |
209 |
COST_BP |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
210 |
COST_BP |
offset_sum = offset_sum + RA(i,j,bi,bj) |