| 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 |
176 |
FLT_TRILINEAR |
i2 = i1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
188 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k1,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
189 |
FLT_TRILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
192 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
193 |
FLT_TRILINEAR |
& + ( ddx*(1.-ddy) *var(i2,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
230 |
FLT_BILINEAR2D |
INTEGER i1, j1, i2, j2 |
|
./pkg/flt/flt_interp_linear.F |
260 |
FLT_BILINEAR2D |
i2 = i1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
267 |
FLT_BILINEAR2D |
& + ddx * ddy *var(i2,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
268 |
FLT_BILINEAR2D |
& + ( ddx *(1.-ddy)*var(i2,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
39 |
FLT_BILINEAR |
INTEGER i1, j1, i2, j2, klp |
|
./pkg/flt/flt_interp_linear.F |
77 |
FLT_BILINEAR |
i2 = i1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
85 |
FLT_BILINEAR |
& + ddx * ddy *var(i2,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
86 |
FLT_BILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
92 |
FLT_BILINEAR |
u22 = ( var(i2,j2,kl,bi,bj)+var(i2,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 |
41 |
GRIDALT_UPDATE |
i2 = sNx |
|
./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 |
122 |
MAKE_PHYS_GRID |
do i = i1,i2 |
|
./pkg/gridalt/make_phys_grid.F |
48 |
MAKE_PHYS_GRID |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/make_phys_grid.F |
7 |
MAKE_PHYS_GRID |
& nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./pkg/gridalt/make_phys_grid.F |
97 |
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 |
436 |
MDS_READ_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
440 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
488 |
MDS_READ_FIELD |
i2 = bBij + sNx*sNy*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
490 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
492 |
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 |
483 |
MDS_WRITE_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
485 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
487 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
513 |
MDS_WRITE_FIELD |
i2 = bBij + sNx*sNy*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
515 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
517 |
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 |
337 |
MDS_WRITELOCAL |
i2 = bBij + j*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
339 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
341 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
367 |
MDS_WRITELOCAL |
i2 = bBij + sNx*sNy*nNz |
|
./pkg/mdsio/mdsio_writelocal.F |
369 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
371 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/openad/the_model_main.F |
314 |
THE_MODEL_MAIN |
INTEGER i1, i2, i3, i4, i5 |
|
./pkg/openad/the_model_main.F |
470 |
THE_MODEL_MAIN |
do i2=1-oly,sny+oly |
|
./pkg/openad/the_model_main.F |
477 |
THE_MODEL_MAIN |
+i1,',',i2,',',i3,',',i4,',',i5,') salt/theta ', |
|
./pkg/openad/the_model_main.F |
478 |
THE_MODEL_MAIN |
+xx_salt(i1,i2,i3,i4,i5)d,'/',xx_theta(i1,i2,i3,i4,i5)d |
|
./pkg/seaice/seaice_fgmres.F |
616 |
SEAICE_SCALPROD |
subroutine SEAICE_SCALPROD(n,im,i1,i2,dx,dy,t,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
629 |
SEAICE_SCALPROD |
integer n, im, i1, i2 |
|
./pkg/seaice/seaice_fgmres.F |
648 |
SEAICE_SCALPROD |
dtemp(bi,bj) = dtemp(bi,bj) + dx(i,i1,bi,bj)*dy(i,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
657 |
SEAICE_SCALPROD |
& dx(i, i1,bi,bj)*dy(i, i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
659 |
SEAICE_SCALPROD |
& dx(i + 1,i1,bi,bj)*dy(i + 1,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
661 |
SEAICE_SCALPROD |
& dx(i + 2,i1,bi,bj)*dy(i + 2,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
663 |
SEAICE_SCALPROD |
& dx(i + 3,i1,bi,bj)*dy(i + 3,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
665 |
SEAICE_SCALPROD |
& dx(i + 4,i1,bi,bj)*dy(i + 4,i2,bi,bj) |
|
./eesupp/src/nml_change_syntax.F |
112 |
NML_CHANGE_SYNTAX |
IF ( i2.EQ.0 ) i2 = i |
|
./eesupp/src/nml_change_syntax.F |
127 |
NML_CHANGE_SYNTAX |
IF ( i3.EQ.0 .AND. i2.GE.1 ) i3 = i |
|
./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 |
142 |
NML_CHANGE_SYNTAX |
i2 = 0 |
|
./eesupp/src/nml_change_syntax.F |
155 |
NML_CHANGE_SYNTAX |
IF ( i2.NE.0 ) 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 |
175 |
NML_CHANGE_SYNTAX |
IF ( ii.GT.i2+1 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
176 |
NML_CHANGE_SYNTAX |
is = IFNBLNK(record(i2+1:ii-1)) |
|
./eesupp/src/nml_change_syntax.F |
177 |
NML_CHANGE_SYNTAX |
ie = ILNBLNK(record(i2+1:ii-1)) |
|
./eesupp/src/nml_change_syntax.F |
178 |
NML_CHANGE_SYNTAX |
i = i2+is |
|
./eesupp/src/nml_change_syntax.F |
182 |
NML_CHANGE_SYNTAX |
DO i=i2+is,i2+ie |
|
./eesupp/src/nml_change_syntax.F |
195 |
NML_CHANGE_SYNTAX |
& 'remove: "',record(i2:i3-1),'"' |
|
./eesupp/src/nml_change_syntax.F |
196 |
NML_CHANGE_SYNTAX |
DO i=i2,i3-1 |
|
./eesupp/src/nml_change_syntax.F |
216 |
NML_CHANGE_SYNTAX |
& 'remove: "',record(i2:i4-1),'"' |
|
./eesupp/src/nml_change_syntax.F |
217 |
NML_CHANGE_SYNTAX |
DO i=i2,i4-1 |
|
./eesupp/src/nml_change_syntax.F |
64 |
NML_CHANGE_SYNTAX |
INTEGER i0, i1, i2, i3, i4 |
|
./eesupp/src/nml_change_syntax.F |
88 |
NML_CHANGE_SYNTAX |
i2 = 0 |
|
./eesupp/src/write_utils.F |
181 |
WRITE_1D_RL |
INTEGER i, j, ic, i1, i2, nCount |
|
./eesupp/src/write_utils.F |
215 |
WRITE_1D_RL |
i2 = 1+ic+2 |
|
./eesupp/src/write_utils.F |
216 |
WRITE_1D_RL |
IF ( ic*4 .LT. (lFld-1)*(j-1) ) i2=i2+1 |
|
./eesupp/src/write_utils.F |
218 |
WRITE_1D_RL |
i2 = MIN(i2,lFld) |
|
./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 |
226 |
WRITE_1D_RL |
i2 = lFld |
|
./eesupp/src/write_utils.F |
227 |
WRITE_1D_RL |
CALL PRINT_LIST_RL( fld(i1), i1, i2, index_type, .FALSE., |