| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
861 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
992 |
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_gencost_bpv4.F |
254 |
COST_GENCOST_BPV4 |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
255 |
COST_GENCOST_BPV4 |
offset_sum = offset_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
249 |
COST_GENCOST_GLBMEAN |
& RA(i,j,bi,bj)*locbaranom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
250 |
COST_GENCOST_GLBMEAN |
locbarglbmean_sum = locbarglbmean_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1064 |
COST_GENCOST_SSHV4 |
slaoffset=slaoffset+RA(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
1066 |
COST_GENCOST_SSHV4 |
slaoffset_sum=slaoffset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
691 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj)*mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
692 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
699 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
701 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |