| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_interp_linear.F |
138 |
FLT_TRILINEAR |
INTEGER i1, j1, k1, i2, j2, k2 |
|
./pkg/flt/flt_interp_linear.F |
152 |
FLT_TRILINEAR |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
153 |
FLT_TRILINEAR |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
155 |
FLT_TRILINEAR |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
156 |
FLT_TRILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
176 |
FLT_TRILINEAR |
i2 = i1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
187 |
FLT_TRILINEAR |
uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
190 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k1,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
191 |
FLT_TRILINEAR |
& + ddz *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
194 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k2,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
230 |
FLT_BILINEAR2D |
INTEGER i1, j1, i2, j2 |
|
./pkg/flt/flt_interp_linear.F |
244 |
FLT_BILINEAR2D |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
245 |
FLT_BILINEAR2D |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
247 |
FLT_BILINEAR2D |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
248 |
FLT_BILINEAR2D |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
260 |
FLT_BILINEAR2D |
i2 = i1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
266 |
FLT_BILINEAR2D |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
269 |
FLT_BILINEAR2D |
& + (1.-ddx)* ddy *var(i1,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
39 |
FLT_BILINEAR |
INTEGER i1, j1, i2, j2, klp |
|
./pkg/flt/flt_interp_linear.F |
61 |
FLT_BILINEAR |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
62 |
FLT_BILINEAR |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
64 |
FLT_BILINEAR |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
65 |
FLT_BILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
77 |
FLT_BILINEAR |
i2 = i1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
84 |
FLT_BILINEAR |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
87 |
FLT_BILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
93 |
FLT_BILINEAR |
u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/gridalt/gridalt_update.F |
30 |
GRIDALT_UPDATE |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/gridalt_update.F |
40 |
GRIDALT_UPDATE |
i1 = 1 |
|
./pkg/gridalt/gridalt_update.F |
54 |
GRIDALT_UPDATE |
do i = i1,i2 |
|
./pkg/gridalt/gridalt_update.F |
75 |
GRIDALT_UPDATE |
do i = i1,i2 |
|
./pkg/gridalt/make_phys_grid.F |
121 |
MAKE_PHYS_GRID |
do i = i1,i2 |
|
./pkg/gridalt/make_phys_grid.F |
47 |
MAKE_PHYS_GRID |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/make_phys_grid.F |
5 |
MAKE_PHYS_GRID |
. Nsx,Nsy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./pkg/gridalt/make_phys_grid.F |
96 |
MAKE_PHYS_GRID |
do i = i1,i2+1 |
|
./pkg/mdsio/mdsio_read_field.F |
111 |
MDS_READ_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_read_field.F |
420 |
MDS_READ_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
423 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
425 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
472 |
MDS_READ_FIELD |
i1 = bBij + 1 |
|
./pkg/mdsio/mdsio_read_field.F |
475 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
477 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
128 |
MDS_WRITE_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_write_field.F |
456 |
MDS_WRITE_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
459 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
461 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
486 |
MDS_WRITE_FIELD |
i1 = bBij + 1 |
|
./pkg/mdsio/mdsio_write_field.F |
489 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
491 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
115 |
MDS_WRITELOCAL |
INTEGER i1,i2,i,j,k |
|
./pkg/mdsio/mdsio_writelocal.F |
287 |
MDS_WRITELOCAL |
i1 = bBij + 1 |
|
./pkg/mdsio/mdsio_writelocal.F |
290 |
MDS_WRITELOCAL |
CALL MDS_BYTESWAPR4( sNx*sNy*nNz, shared3dBuf_r4(i1) ) |
|
./pkg/mdsio/mdsio_writelocal.F |
292 |
MDS_WRITELOCAL |
CALL MDS_BYTESWAPR8( sNx*sNy*nNz, shared3dBuf_r8(i1) ) |
|
./pkg/mdsio/mdsio_writelocal.F |
332 |
MDS_WRITELOCAL |
i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
335 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
337 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
362 |
MDS_WRITELOCAL |
i1 = bBij + 1 |
|
./pkg/mdsio/mdsio_writelocal.F |
365 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
367 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
633 |
THE_MODEL_MAIN |
do i1=1-olx,snx+olx |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
641 |
THE_MODEL_MAIN |
+i1,',',i2,',',i3,',',i4,',',i5,') salt/theta ', |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
642 |
THE_MODEL_MAIN |
+xx_salt(i1,i2,i3,i4,i5)d,'/',xx_theta(i1,i2,i3,i4,i5)d |
|
./pkg/aim_v23/phy_suflux_post.F |
146 |
SUFLUX_POST |
i1 = 1 + mod((J-1),sNx) |
|
./pkg/aim_v23/phy_suflux_post.F |
158 |
SUFLUX_POST |
& i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj) |
|
./pkg/aim_v23/phy_suflux_post.F |
93 |
SUFLUX_POST |
INTEGER J,i1,j1 |
|
./eesupp/src/mds_byteswapr8.F |
20 |
MDS_BYTESWAPR8 |
integer(kind=8) arr(n),i64,i1 |
|
./eesupp/src/mds_byteswapr8.F |
25 |
MDS_BYTESWAPR8 |
i64(i1) = ishft(i1 .and. z'ff00000000000000',-56).or. |
|
./eesupp/src/mds_byteswapr8.F |
26 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00ff000000000000',-40).or. |
|
./eesupp/src/mds_byteswapr8.F |
27 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'0000ff0000000000',-24).or. |
|
./eesupp/src/mds_byteswapr8.F |
28 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'000000ff00000000', -8).or. |
|
./eesupp/src/mds_byteswapr8.F |
29 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00000000ff000000', 8).or. |
|
./eesupp/src/mds_byteswapr8.F |
30 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'0000000000ff0000', 24).or. |
|
./eesupp/src/mds_byteswapr8.F |
31 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'000000000000ff00', 40).or. |
|
./eesupp/src/mds_byteswapr8.F |
32 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00000000000000ff', 56) |
|
./eesupp/src/nml_change_syntax.F |
110 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'(' .AND. i1.EQ.0 ) i1 = -i |
|
./eesupp/src/nml_change_syntax.F |
111 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.':' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
122 |
NML_CHANGE_SYNTAX |
i1 = 1 |
|
./eesupp/src/nml_change_syntax.F |
125 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.',' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
129 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.')' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
130 |
NML_CHANGE_SYNTAX |
i1 = -i1 |
|
./eesupp/src/nml_change_syntax.F |
139 |
NML_CHANGE_SYNTAX |
& ' i0,nWd,comma =',i0,nWd,comma,' ; i1,i2,i3,i4 =',i1,i2,i3,i4 |
|
./eesupp/src/nml_change_syntax.F |
141 |
NML_CHANGE_SYNTAX |
IF ( i4.EQ.0 .AND. i1.NE.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
143 |
NML_CHANGE_SYNTAX |
IF ( i1.NE.1 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
157 |
NML_CHANGE_SYNTAX |
IF ( i2.GT.i1+1 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
158 |
NML_CHANGE_SYNTAX |
is = IFNBLNK(record(i1+1:i2-1)) |
|
./eesupp/src/nml_change_syntax.F |
159 |
NML_CHANGE_SYNTAX |
ie = ILNBLNK(record(i1+1:i2-1)) |
|
./eesupp/src/nml_change_syntax.F |
160 |
NML_CHANGE_SYNTAX |
i = i1+is |
|
./eesupp/src/nml_change_syntax.F |
164 |
NML_CHANGE_SYNTAX |
DO i=i1+is,i1+ie |
|
./eesupp/src/nml_change_syntax.F |
64 |
NML_CHANGE_SYNTAX |
INTEGER i0, i1, i2, i3, i4 |
|
./eesupp/src/nml_change_syntax.F |
87 |
NML_CHANGE_SYNTAX |
i1 = 0 |
|
./eesupp/src/write_utils.F |
181 |
WRITE_1D_RL |
INTEGER i, j, ic, i1, i2, nCount |
|
./eesupp/src/write_utils.F |
214 |
WRITE_1D_RL |
i1 = 1+ic-2 |
|
./eesupp/src/write_utils.F |
217 |
WRITE_1D_RL |
i1 = MAX(i1,1) |
|
./eesupp/src/write_utils.F |
219 |
WRITE_1D_RL |
CALL PRINT_LIST_RL( fld(i1), i1, i2, index_type, .TRUE., |
|
./eesupp/src/write_utils.F |
225 |
WRITE_1D_RL |
i1 = MAX(lFld-2,1) |
|
./eesupp/src/write_utils.F |
227 |
WRITE_1D_RL |
CALL PRINT_LIST_RL( fld(i1), i1, i2, index_type, .FALSE., |
|
./pkg/exch2/w2_set_f2f_index.F |
37 |
W2_SET_F2F_INDEX |
INTEGER i, j, ii, jj, i1, j1, k, lo, ll |
|
./pkg/exch2/w2_set_f2f_index.F |
72 |
W2_SET_F2F_INDEX |
i1 = MOD( NINT(facet_link(ii,jj)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
73 |
W2_SET_F2F_INDEX |
IF ( j1.NE.j .OR. i1.NE.i ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
78 |
W2_SET_F2F_INDEX |
IF ( i1.GE.1 .AND. i1.LE.4 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
81 |
W2_SET_F2F_INDEX |
& edge(i1),'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |