| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1026 |
TIME_BOUND |
NMONF(N) = MOD(N,10000)/100 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1027 |
TIME_BOUND |
NDAYF(N) = MOD(N,100) |
|
./pkg/fizhi/fizhi_moist.F |
2475 |
RNEVP |
DO 50 N=1,2 |
|
./pkg/fizhi/fizhi_moist.F |
2476 |
RNEVP |
IF(N.EQ.1)RELAX=HALF |
|
./pkg/fizhi/fizhi_moist.F |
2477 |
RNEVP |
IF(N.GT.1)RELAX=ONE |
|
./pkg/fizhi/fizhi_turb.F |
1635 |
TRBFLX |
N = 6 |
|
./pkg/fizhi/fizhi_turb.F |
2017 |
TRBFLX |
6 FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
2032 |
TRBFLX |
N = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2770 |
SFCFLX |
2 VAHS,FIRST,LAST,N,IRUN,aitr,VRHO,VRHOZPK,VKH,VKM, |
|
./pkg/fizhi/fizhi_turb.F |
3034 |
SFCFLX |
DO 200 ITER = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3059 |
SFCFLX |
IF(ITER.EQ.N) ITYPE = 4 |
|
./pkg/fizhi/fizhi_turb.F |
3098 |
SFCFLX |
IF ( ITER .EQ. N ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3190 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./pkg/fizhi/fizhi_turb.F |
3210 |
PHI |
_RL PHIM(N),PHIH(N),Z(N) |
|
./pkg/fizhi/fizhi_turb.F |
3213 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
3214 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./pkg/fizhi/fizhi_turb.F |
3404 |
PHI |
DO 9000 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3411 |
PHI |
DO 9002 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3416 |
PHI |
DO 9004 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3427 |
PHI |
DO 9006 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3435 |
PHI |
DO 9008 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3447 |
PHI |
DO 9010 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3457 |
PHI |
IF( IBIT1 .GE. N ) GO TO 500 |
|
./pkg/fizhi/fizhi_turb.F |
3459 |
PHI |
DO 9012 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3464 |
PHI |
DO 9014 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3472 |
PHI |
DO 9016 I = 1,N |
|
./pkg/flt/flt_exch2.F |
364 |
FLT_EXCH2 |
DO N=1,nN |
|
./pkg/flt/flt_exch2.F |
371 |
FLT_EXCH2 |
farTile=exch2_neighbourId(N,nT) |
|
./pkg/flt/flt_exch2.F |
372 |
FLT_EXCH2 |
IF ( W2_myCommFlag(N,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/flt_exch2.F |
373 |
FLT_EXCH2 |
wHandle = e2_msgHandles(1,N,bi,bj) |
|
./pkg/flt/flt_exch2.F |
375 |
FLT_EXCH2 |
ELSEIF ( W2_myCommFlag(N,bi,bj) .EQ. 'P' ) THEN |
|
./pkg/flt/flt_exch2.F |
60 |
FLT_EXCH2 |
INTEGER nN, N, farTile |
|
./pkg/flt/flt_exch2.F |
88 |
FLT_EXCH2 |
DO N=1,4 |
|
./pkg/flt/flt_exch2.F |
90 |
FLT_EXCH2 |
fltbuf_send(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exch2.F |
91 |
FLT_EXCH2 |
fltbuf_recv(m,bi,bj,N) = 0. |
|
./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_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_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_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_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_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_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_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) |
|
./pkg/sphere/sphere.F |
506 |
FRSBASE |
INTEGER N, L |
|
./pkg/sphere/sphere.F |
510 |
FRSBASE |
N = J-I+1 |
|
./pkg/sphere/sphere.F |
511 |
FRSBASE |
IF(N.LE.0) RETURN |
|
./pkg/sphere/sphere.F |
513 |
FRSBASE |
IF(N.EQ.1) RETURN |
|
./pkg/sphere/sphere.F |
516 |
FRSBASE |
IF(N.EQ.2) RETURN |
|
./pkg/sphere/sphere.F |
518 |
FRSBASE |
IF(N.EQ.3) RETURN |
|
./pkg/sphere/sphere.F |
521 |
FRSBASE |
IF(N.EQ.4) RETURN |
|
./pkg/sphere/sphere.F |
523 |
FRSBASE |
IF(N.EQ.5) RETURN |
|
./pkg/sphere/sphere.F |
557 |
HELMHOLTZ |
INTEGER K, L, N, M |
|
./pkg/sphere/sphere.F |
56 |
FSC4DAT |
SUBROUTINE FSC4DAT(N,FSC) |
|
./pkg/sphere/sphere.F |
579 |
HELMHOLTZ |
N = 1 |
|
./pkg/sphere/sphere.F |
580 |
HELMHOLTZ |
DO M = 0,LMAX-N |
|
./pkg/sphere/sphere.F |
581 |
HELMHOLTZ |
K = ISECT(M)+N |
|
./pkg/sphere/sphere.F |
582 |
HELMHOLTZ |
L = N+M |
|
./pkg/sphere/sphere.F |
583 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
587 |
HELMHOLTZ |
DO N = 2,LMAX |
|
./pkg/sphere/sphere.F |
588 |
HELMHOLTZ |
DO M = 0,LMAX-N |
|
./pkg/sphere/sphere.F |
589 |
HELMHOLTZ |
K = ISECT(M)+N |
|
./pkg/sphere/sphere.F |
590 |
HELMHOLTZ |
L = N+M |
|
./pkg/sphere/sphere.F |
591 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
60 |
FSC4DAT |
INTEGER N |
|
./pkg/sphere/sphere.F |
61 |
FSC4DAT |
REAL FSC(N) |
|
./pkg/sphere/sphere.F |
66 |
FSC4DAT |
CALL FFTRF(N,FSC,FSC) |
|
./pkg/sphere/sphere.F |
73 |
FSC4DAT |
SCALE = 2.0/FLOAT(N) |
|
./pkg/sphere/sphere.F |
74 |
FSC4DAT |
FSC(1) = FSC(1)/FLOAT(N) |
|
./pkg/sphere/sphere.F |
86 |
FSC4DAT |
IF (MOD(N,2).EQ.0) THEN |
|
./pkg/sphere/sphere.F |
87 |
FSC4DAT |
FSC(N) = FSC(N)/FLOAT(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/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/exch2/w2_print_comm_sequence.F |
127 |
W2_PRINT_COMM_SEQUENCE |
DO N=1,nN |
|
./pkg/exch2/w2_print_comm_sequence.F |
128 |
W2_PRINT_COMM_SEQUENCE |
targetTile=exch2_neighbourId(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
131 |
W2_PRINT_COMM_SEQUENCE |
tN=exch2_opposingSend(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
135 |
W2_PRINT_COMM_SEQUENCE |
I myTileId, N, |
|
./pkg/exch2/w2_print_comm_sequence.F |
55 |
W2_PRINT_COMM_SEQUENCE |
INTEGER bi, bj, N |
|
./pkg/exch2/w2_print_comm_sequence.F |
71 |
W2_PRINT_COMM_SEQUENCE |
DO N=1,nN |
|
./pkg/exch2/w2_print_comm_sequence.F |
72 |
W2_PRINT_COMM_SEQUENCE |
targetTile=exch2_neighbourId(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
74 |
W2_PRINT_COMM_SEQUENCE |
tN = exch2_opposingSend(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
75 |
W2_PRINT_COMM_SEQUENCE |
pi(1) =exch2_pij(1,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
76 |
W2_PRINT_COMM_SEQUENCE |
pi(2) =exch2_pij(2,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
77 |
W2_PRINT_COMM_SEQUENCE |
pj(1) =exch2_pij(3,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
78 |
W2_PRINT_COMM_SEQUENCE |
pj(2) =exch2_pij(4,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
79 |
W2_PRINT_COMM_SEQUENCE |
oi =exch2_oi(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
80 |
W2_PRINT_COMM_SEQUENCE |
oj =exch2_oj(N,myTileId) |