| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
101 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
102 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i,j,km1,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
35 |
PTRACERS_DIAGNOSTICS_FILL |
INTEGER i,j,K,N,bi,bj |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
44 |
PTRACERS_DIAGNOSTICS_FILL |
DO N = 1,MIN(99,PTRACERS_numInUse) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
47 |
PTRACERS_DIAGNOSTICS_FILL |
WRITE(diagname,'(A4,I2.2)') 'TRAC',N |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
48 |
PTRACERS_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL( ptracer(1-Olx,1-Oly,1,1,1,N), diagname, |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
52 |
PTRACERS_DIAGNOSTICS_FILL |
WRITE(diagname,'(A5,I2.2)') 'UTRAC',N |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
61 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
62 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i-1,j,K,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
72 |
PTRACERS_DIAGNOSTICS_FILL |
WRITE(diagname,'(A5,I2.2)') 'VTRAC',N |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
81 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
82 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i,j-1,K,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
92 |
PTRACERS_DIAGNOSTICS_FILL |
WRITE(diagname,'(A5,I2.2)') 'WTRAC',N |
|
./pkg/zonal_filt/fftpack.F |
1021 |
R8ADB4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1080 |
R8ADB5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1145 |
R8ADBG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1305 |
R8FFTB1 |
SUBROUTINE R8FFTB1 (N,C,CH,WA,IFAC) |
|
./pkg/zonal_filt/fftpack.F |
1307 |
R8FFTB1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1316 |
R8FFTB1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
1361 |
R8FFTB1 |
DO 117 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
1375 |
R8ADF2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1404 |
R8ADF3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1441 |
R8ADF4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1496 |
R8ADF5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
150 |
RADB5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1557 |
R8ADFG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
15 |
RADB2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1723 |
R8FFTF1 |
SUBROUTINE R8FFTF1 (N,C,CH,WA,IFAC) |
|
./pkg/zonal_filt/fftpack.F |
1725 |
R8FFTF1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1729 |
R8FFTF1 |
L2 = N |
|
./pkg/zonal_filt/fftpack.F |
1730 |
R8FFTF1 |
IW = N |
|
./pkg/zonal_filt/fftpack.F |
1735 |
R8FFTF1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
1779 |
R8FFTF1 |
DO 112 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
1791 |
R8FFTI1 |
SUBROUTINE R8FFTI1 (N,WA,IFAC) |
|
./pkg/zonal_filt/fftpack.F |
1793 |
R8FFTI1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1796 |
R8FFTI1 |
NL = N |
|
./pkg/zonal_filt/fftpack.F |
1818 |
R8FFTI1 |
IFAC(1) = N |
|
./pkg/zonal_filt/fftpack.F |
1821 |
R8FFTI1 |
ARGH = TPI/FLOAT(N) |
|
./pkg/zonal_filt/fftpack.F |
1830 |
R8FFTI1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
217 |
RADBG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
378 |
RFFTB1 |
SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC) |
|
./pkg/zonal_filt/fftpack.F |
381 |
RFFTB1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
391 |
RFFTB1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
436 |
RFFTB1 |
DO 117 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
453 |
RADF2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
484 |
RADF3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
48 |
RADB3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
523 |
RADF4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
580 |
RADF5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
643 |
RADFG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
810 |
RFFTF1 |
SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC) |
|
./pkg/zonal_filt/fftpack.F |
813 |
RFFTF1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
818 |
RFFTF1 |
L2 = N |
|
./pkg/zonal_filt/fftpack.F |
819 |
RFFTF1 |
IW = N |
|
./pkg/zonal_filt/fftpack.F |
824 |
RFFTF1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
868 |
RFFTF1 |
DO 112 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
883 |
RFFTI1 |
SUBROUTINE RFFTI1 (N,WA,IFAC) |
|
./pkg/zonal_filt/fftpack.F |
886 |
RFFTI1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
890 |
RFFTI1 |
NL = N |
|
./pkg/zonal_filt/fftpack.F |
89 |
RADB4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
912 |
RFFTI1 |
IFAC(1) = N |
|
./pkg/zonal_filt/fftpack.F |
915 |
RFFTI1 |
ARGH = TPI/FLOAT(N) |
|
./pkg/zonal_filt/fftpack.F |
924 |
RFFTI1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
953 |
R8ADB2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
982 |
R8ADB3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/exch2/w2_print_comm_sequence.F |
147 |
W2_PRINT_COMM_SEQUENCE |
DO N=1,nN |
|
./pkg/exch2/w2_print_comm_sequence.F |
148 |
W2_PRINT_COMM_SEQUENCE |
targetTile=exch2_neighbourId(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
151 |
W2_PRINT_COMM_SEQUENCE |
tN=exch2_opposingSend_record(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
32 |
W2_PRINT_COMM_SEQUENCE |
INTEGER I, N, targetTile, myThid, targetProc, sourceProc |
|
./pkg/exch2/w2_print_comm_sequence.F |
43 |
W2_PRINT_COMM_SEQUENCE |
DO N=1,nN |
|
./pkg/exch2/w2_print_comm_sequence.F |
44 |
W2_PRINT_COMM_SEQUENCE |
targetTile=exch2_neighbourId(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
46 |
W2_PRINT_COMM_SEQUENCE |
targetIlo =exch2_itlo_c(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
47 |
W2_PRINT_COMM_SEQUENCE |
targetIhi =exch2_ithi_c(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
48 |
W2_PRINT_COMM_SEQUENCE |
targetJlo =exch2_jtlo_c(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
49 |
W2_PRINT_COMM_SEQUENCE |
targetJhi =exch2_jthi_c(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
50 |
W2_PRINT_COMM_SEQUENCE |
pi(1) =exch2_pi(1,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
51 |
W2_PRINT_COMM_SEQUENCE |
pi(2) =exch2_pi(2,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
52 |
W2_PRINT_COMM_SEQUENCE |
pj(1) =exch2_pj(1,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
53 |
W2_PRINT_COMM_SEQUENCE |
pj(2) =exch2_pj(2,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
54 |
W2_PRINT_COMM_SEQUENCE |
oi =exch2_oi(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
55 |
W2_PRINT_COMM_SEQUENCE |
oj =exch2_oj(N,myTileId) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1051 |
TIME_BOUND |
NMONF(N) = MOD(N,10000)/100 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1052 |
TIME_BOUND |
NDAYF(N) = MOD(N,100) |
|
./pkg/fizhi/fizhi_moist.F |
2402 |
RNEVP |
DO 50 N=1,2 |
|
./pkg/fizhi/fizhi_moist.F |
2403 |
RNEVP |
IF(N.EQ.1)RELAX=HALF |
|
./pkg/fizhi/fizhi_moist.F |
2404 |
RNEVP |
IF(N.GT.1)RELAX=ONE |
|
./pkg/fizhi/fizhi_turb.F |
1574 |
TRBFLX |
N = 6 |
|
./pkg/fizhi/fizhi_turb.F |
1851 |
TRBFLX |
6 FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
1866 |
TRBFLX |
N = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2362 |
SFCFLX |
2 VAHS,FIRST,LAST,N,IRUN,aitr,VRHO,VRHOZPK,VKH,VKM, |
|
./pkg/fizhi/fizhi_turb.F |
2626 |
SFCFLX |
DO 200 ITER = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
2651 |
SFCFLX |
IF(ITER.EQ.N) ITYPE = 4 |
|
./pkg/fizhi/fizhi_turb.F |
2690 |
SFCFLX |
IF ( ITER .EQ. N ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2782 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./pkg/fizhi/fizhi_turb.F |
2802 |
PHI |
_RL PHIM(N),PHIH(N),Z(N) |
|
./pkg/fizhi/fizhi_turb.F |
2805 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
2806 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./pkg/fizhi/fizhi_turb.F |
2996 |
PHI |
DO 9000 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3003 |
PHI |
DO 9002 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3008 |
PHI |
DO 9004 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3019 |
PHI |
DO 9006 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3027 |
PHI |
DO 9008 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3039 |
PHI |
DO 9010 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3049 |
PHI |
IF( IBIT1 .GE. N ) GO TO 500 |
|
./pkg/fizhi/fizhi_turb.F |
3051 |
PHI |
DO 9012 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3056 |
PHI |
DO 9014 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3064 |
PHI |
DO 9016 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
1053 |
TIME_BOUND |
NMONF(N) = MOD(N,10000)/100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
1054 |
TIME_BOUND |
NDAYF(N) = MOD(N,100) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1574 |
TRBFLX |
N = 6 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1851 |
TRBFLX |
6 FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1866 |
TRBFLX |
N = 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2344 |
SFCFLX |
2 VAHS,FIRST,LAST,N,IRUN,aitr,VRHO,VRHOZPK,VKH,VKM, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2608 |
SFCFLX |
DO 200 ITER = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2633 |
SFCFLX |
IF(ITER.EQ.N) ITYPE = 4 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2672 |
SFCFLX |
IF ( ITER .EQ. N ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2764 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2784 |
PHI |
_RL PHIM(N),PHIH(N),Z(N) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2787 |
PHI |
integer I1(N),I2(N) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2788 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2978 |
PHI |
DO 9000 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2985 |
PHI |
DO 9002 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2990 |
PHI |
DO 9004 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3001 |
PHI |
DO 9006 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3009 |
PHI |
DO 9008 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3021 |
PHI |
DO 9010 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3031 |
PHI |
IF( IBIT1 .GE. N ) GO TO 500 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3033 |
PHI |
DO 9012 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3038 |
PHI |
DO 9014 I = 1,N |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3046 |
PHI |
DO 9016 I = 1,N |
|
./pkg/sphere/sphere.F |
504 |
FRSBASE |
INTEGER N, L |
|
./pkg/sphere/sphere.F |
508 |
FRSBASE |
N = J-I+1 |
|
./pkg/sphere/sphere.F |
509 |
FRSBASE |
IF(N.LE.0) RETURN |
|
./pkg/sphere/sphere.F |
511 |
FRSBASE |
IF(N.EQ.1) RETURN |
|
./pkg/sphere/sphere.F |
514 |
FRSBASE |
IF(N.EQ.2) RETURN |
|
./pkg/sphere/sphere.F |
516 |
FRSBASE |
IF(N.EQ.3) RETURN |
|
./pkg/sphere/sphere.F |
519 |
FRSBASE |
IF(N.EQ.4) RETURN |
|
./pkg/sphere/sphere.F |
521 |
FRSBASE |
IF(N.EQ.5) RETURN |
|
./pkg/sphere/sphere.F |
54 |
FSC4DAT |
SUBROUTINE FSC4DAT(N,FSC) |
|
./pkg/sphere/sphere.F |
555 |
HELMHOLTZ |
INTEGER K, L, N, M |
|
./pkg/sphere/sphere.F |
577 |
HELMHOLTZ |
N = 1 |
|
./pkg/sphere/sphere.F |
578 |
HELMHOLTZ |
DO M = 0,LMAX-N |
|
./pkg/sphere/sphere.F |
579 |
HELMHOLTZ |
K = ISECT(M)+N |
|
./pkg/sphere/sphere.F |
580 |
HELMHOLTZ |
L = N+M |
|
./pkg/sphere/sphere.F |
581 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
585 |
HELMHOLTZ |
DO N = 2,LMAX |
|
./pkg/sphere/sphere.F |
586 |
HELMHOLTZ |
DO M = 0,LMAX-N |
|
./pkg/sphere/sphere.F |
587 |
HELMHOLTZ |
K = ISECT(M)+N |
|
./pkg/sphere/sphere.F |
588 |
HELMHOLTZ |
L = N+M |
|
./pkg/sphere/sphere.F |
589 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
58 |
FSC4DAT |
INTEGER N |
|
./pkg/sphere/sphere.F |
59 |
FSC4DAT |
REAL FSC(N) |
|
./pkg/sphere/sphere.F |
64 |
FSC4DAT |
CALL FFTRF(N,FSC,FSC) |
|
./pkg/sphere/sphere.F |
71 |
FSC4DAT |
SCALE = 2.0/FLOAT(N) |
|
./pkg/sphere/sphere.F |
72 |
FSC4DAT |
FSC(1) = FSC(1)/FLOAT(N) |
|
./pkg/sphere/sphere.F |
84 |
FSC4DAT |
IF (MOD(N,2).EQ.0) THEN |
|
./pkg/sphere/sphere.F |
85 |
FSC4DAT |
FSC(N) = FSC(N)/FLOAT(N) |
|
./pkg/chronos/chronos.F |
874 |
TIME_BOUND |
NMONF(N) = MOD(N,10000)/100 |
|
./pkg/chronos/chronos.F |
875 |
TIME_BOUND |
NDAYF(N) = MOD(N,100) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
124 |
SHAP_FILT_TRACER_S1 |
DO N=1,nShapTr |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
49 |
SHAP_FILT_TRACER_S1 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
71 |
SHAP_FILT_TRACER_S1 |
DO N=1,nShapTr |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
160 |
SHAP_FILT_UV_S1 |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
53 |
SHAP_FILT_UV_S1 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
83 |
SHAP_FILT_UV_S1 |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_tracerold.F |
34 |
SHAP_FILT_TRACEROLD |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
43 |
SHAP_FILT_TRACEROLD |
DO N=1,nShapT |
|
./pkg/shap_filt/shap_filt_tracerold.F |
44 |
SHAP_FILT_TRACEROLD |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
45 |
SHAP_FILT_TRACEROLD |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
73 |
SHAP_FILT_TRACEROLD |
DO N=1,nShapT |
|
./pkg/shap_filt/shap_filt_tracerold.F |
74 |
SHAP_FILT_TRACEROLD |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
75 |
SHAP_FILT_TRACEROLD |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
53 |
SHAP_FILT_UV_S2C |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
84 |
SHAP_FILT_UV_S2C |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
122 |
SHAP_FILT_TRACER_S4 |
DO N=1,nShapTr |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
49 |
SHAP_FILT_TRACER_S4 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
70 |
SHAP_FILT_TRACER_S4 |
DO N=1,nShapTr |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
157 |
SHAP_FILT_UV_S4 |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
53 |
SHAP_FILT_UV_S4 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
82 |
SHAP_FILT_UV_S4 |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_u.F |
33 |
SHAP_FILT_U |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_u.F |
43 |
SHAP_FILT_U |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_u.F |
44 |
SHAP_FILT_U |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_u.F |
45 |
SHAP_FILT_U |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_u.F |
81 |
SHAP_FILT_U |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_u.F |
82 |
SHAP_FILT_U |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_u.F |
83 |
SHAP_FILT_U |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_v.F |
33 |
SHAP_FILT_V |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_v.F |
51 |
SHAP_FILT_V |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_v.F |
52 |
SHAP_FILT_V |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_v.F |
53 |
SHAP_FILT_V |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_v.F |
84 |
SHAP_FILT_V |
DO N=1,nShapUV |
|
./pkg/shap_filt/shap_filt_v.F |
85 |
SHAP_FILT_V |
N1=1+mod(N+1,2) |
|
./pkg/shap_filt/shap_filt_v.F |
86 |
SHAP_FILT_V |
N2=1+mod( N ,2) |