File |
Line number |
Procedure |
Code |
./pkg/openad/externalDummies.F |
183 |
STREAMICE_INVERT_SURF_FORTHICK |
O H, |
./pkg/openad/externalDummies.F |
196 |
STREAMICE_INVERT_SURF_FORTHICK |
_RL H(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/openad/externalDummies.F |
202 |
STREAMICE_INVERT_SURF_FORTHICK |
H(1,1,1,1) = s(1,1,1,1) + |
./pkg/sphere/sphere.F |
265 |
SHCROTATE |
REAL H(LMAXLMT*2+1) |
./pkg/sphere/sphere.F |
271 |
SHCROTATE |
CALL FRSBASE(ANGLE,H,1,1+LMAX+LMAX) |
./pkg/sphere/sphere.F |
278 |
SHCROTATE |
COSA = H(M+M) |
./pkg/sphere/sphere.F |
279 |
SHCROTATE |
SINA = H(M+M+1) |
./pkg/sphere/sphere.F |
495 |
FRSBASE |
SUBROUTINE FRSBASE(A,H,I,J) |
./pkg/sphere/sphere.F |
502 |
FRSBASE |
REAL H(1) |
./pkg/sphere/sphere.F |
512 |
FRSBASE |
H(I) = 1.0 |
./pkg/sphere/sphere.F |
515 |
FRSBASE |
H(I+1) = COS(ARG) |
./pkg/sphere/sphere.F |
517 |
FRSBASE |
H(I+2) = SIN(ARG) |
./pkg/sphere/sphere.F |
519 |
FRSBASE |
T = H(I+1)+H(I+1) |
./pkg/sphere/sphere.F |
520 |
FRSBASE |
H(I+3) = T*H(I+1) - 1.0 |
./pkg/sphere/sphere.F |
522 |
FRSBASE |
H(I+4) = T*H(I+2) |
./pkg/sphere/sphere.F |
525 |
FRSBASE |
H(L) = T*H(L-2)-H(L-4) |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
104 |
ADSTRMICE_H_INV |
& H (i,j,bi,bj)-hf, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
10 |
ADSTRMICE_H_INV |
& H, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
42 |
ADSTRMICE_H_INV |
_RL H(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
75 |
ADSTRMICE_H_INV |
O H, |
./pkg/streamice/streamice_invert_surf_forthick.F |
126 |
STREAMICE_INVERT_SURF_FORTHICK |
H(i,j,bi,bj) = Htmp |
./pkg/streamice/streamice_invert_surf_forthick.F |
30 |
STREAMICE_INVERT_SURF_FORTHICK |
_RL H(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/streamice/streamice_invert_surf_forthick.F |
8 |
STREAMICE_INVERT_SURF_FORTHICK |
O H, |
./pkg/zonal_filt/fftpack.F |
1020 |
R8ADB4 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1079 |
R8ADB5 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1144 |
R8ADBG |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1306 |
R8FFTB1 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1374 |
R8ADF2 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1403 |
R8ADF3 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1440 |
R8ADF4 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1495 |
R8ADF5 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
149 |
RADB5 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
14 |
RADB2 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1556 |
R8ADFG |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1724 |
R8FFTF1 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
1792 |
R8FFTI1 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
216 |
RADBG |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
380 |
RFFTB1 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
452 |
RADF2 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
47 |
RADB3 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
483 |
RADF3 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
522 |
RADF4 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
579 |
RADF5 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
642 |
RADFG |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
812 |
RFFTF1 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
885 |
RFFTI1 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
88 |
RADB4 |
IMPLICIT REAL*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
952 |
R8ADB2 |
implicit real*8 (A-H,O-Z) |
./pkg/zonal_filt/fftpack.F |
981 |
R8ADB3 |
implicit real*8 (A-H,O-Z) |