| File |
Line number |
Procedure |
Code |
|
./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_clockstuff.F |
1002 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
875 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
136 |
SWRIO |
CALL ASTRO ( NYMD, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
140 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
1004 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
877 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
136 |
SWRIO |
CALL ASTRO ( 20040321, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
140 |
SWRIO |
CALL ASTRO ( 20040321, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./model/src/ini_grid.F |
116 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,RA,'RA',myThid) |
|
./model/src/ini_curvilinear_grid.F |
142 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rA', RA, myThid) |
|
./model/src/ini_curvilinear_grid.F |
158 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(RA,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
212 |
INI_CURVILINEAR_GRID |
CALL MDSREADFIELD('RA.bin',readBinaryPrec,'RS',1,RA, 1,myThid) |
|
./model/src/ini_curvilinear_grid.F |
213 |
INI_CURVILINEAR_GRID |
_EXCH_XY_R4(RA,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
384 |
INI_CURVILINEAR_GRID |
CALL READSYMTILE_RS(fName,5,RA,bi,bj,buf,myThid) |
|
./model/src/ini_curvilinear_grid.F |
449 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(RA,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
497 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRL( RA , 'Current RA ' , |
|
./model/src/ini_curvilinear_grid.F |
93 |
INI_CURVILINEAR_GRID |
RA(i,j,bi,bj)=0. |
|
./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) ) |