File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1401 |
TRBFLX |
_RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun) |
./pkg/fizhi/fizhi_turb.F |
1740 |
TRBFLX |
ARG(I,NLEV) = (1./2.)*Q1M(I,NLEV)*Q1M(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1741 |
TRBFLX |
IF(ARG(I,NLEV).LE.ARGMAX) |
./pkg/fizhi/fizhi_turb.F |
1742 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
./pkg/fizhi/fizhi_turb.F |
1861 |
TRBFLX |
ARG(I,L) = (1./2.)*Q1M(I,L)*Q1M(I,L) |
./pkg/fizhi/fizhi_turb.F |
1862 |
TRBFLX |
IF(ARG(I,L).LE.ARGMAX) |
./pkg/fizhi/fizhi_turb.F |
1863 |
TRBFLX |
1 SHL(I,L) = SHL(I,L)+RSQ2PI*SVAR(I,L)*EXP(-ARG(I,L)) |
./pkg/fizhi/fizhi_utils.F |
15 |
NO PROCEDURE |
FUNCTION ERRF (ARG) |
./pkg/fizhi/fizhi_utils.F |
46 |
NO PROCEDURE |
AARG=ABS(ARG) |
./pkg/fizhi/fizhi_utils.F |
55 |
NO PROCEDURE |
IF ( ARG .LT. 0.0 ) ERRF = -ERRF |
./pkg/sphere/sphere.F |
505 |
FRSBASE |
REAL DEG2RAD, T, ARG |
./pkg/sphere/sphere.F |
514 |
FRSBASE |
ARG = A * DEG2RAD |
./pkg/sphere/sphere.F |
515 |
FRSBASE |
H(I+1) = COS(ARG) |
./pkg/sphere/sphere.F |
517 |
FRSBASE |
H(I+2) = SIN(ARG) |
./pkg/zonal_filt/fftpack.F |
1150 |
R8ADBG |
ARG = TPI/FLOAT(IP) |
./pkg/zonal_filt/fftpack.F |
1151 |
R8ADBG |
DCP = COS(ARG) |
./pkg/zonal_filt/fftpack.F |
1152 |
R8ADBG |
DSP = SIN(ARG) |
./pkg/zonal_filt/fftpack.F |
1562 |
R8ADFG |
ARG = TPI/FLOAT(IP) |
./pkg/zonal_filt/fftpack.F |
1563 |
R8ADFG |
DCP = COS(ARG) |
./pkg/zonal_filt/fftpack.F |
1564 |
R8ADFG |
DSP = SIN(ARG) |
./pkg/zonal_filt/fftpack.F |
1840 |
R8FFTI1 |
ARG = FI*ARGLD |
./pkg/zonal_filt/fftpack.F |
1841 |
R8FFTI1 |
WA(I-1) = COS(ARG) |
./pkg/zonal_filt/fftpack.F |
1842 |
R8FFTI1 |
WA(I) = SIN(ARG) |
./pkg/zonal_filt/fftpack.F |
223 |
RADBG |
ARG = TPI/FLOAT(IP) |
./pkg/zonal_filt/fftpack.F |
224 |
RADBG |
DCP = COS(ARG) |
./pkg/zonal_filt/fftpack.F |
225 |
RADBG |
DSP = SIN(ARG) |
./pkg/zonal_filt/fftpack.F |
649 |
RADFG |
ARG = TPI/FLOAT(IP) |
./pkg/zonal_filt/fftpack.F |
650 |
RADFG |
DCP = COS(ARG) |
./pkg/zonal_filt/fftpack.F |
651 |
RADFG |
DSP = SIN(ARG) |
./pkg/zonal_filt/fftpack.F |
934 |
RFFTI1 |
ARG = FI*ARGLD |
./pkg/zonal_filt/fftpack.F |
935 |
RFFTI1 |
WA(I-1) = COS(ARG) |
./pkg/zonal_filt/fftpack.F |
936 |
RFFTI1 |
WA(I) = SIN(ARG) |