| 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 |
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 |
102 |
MDS_READ_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_read_field.F |
412 |
MDS_READ_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
414 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
416 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
464 |
MDS_READ_FIELD |
i2 = bBij + sNx*sNy*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
466 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
468 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
118 |
MDS_WRITE_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_write_field.F |
444 |
MDS_WRITE_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
446 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
448 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
474 |
MDS_WRITE_FIELD |
i2 = bBij + sNx*sNy*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
476 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
478 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
114 |
MDS_WRITELOCAL |
INTEGER i1,i2,i,j,k |
|
./pkg/mdsio/mdsio_writelocal.F |
328 |
MDS_WRITELOCAL |
i2 = bBij + j*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
330 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
332 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
358 |
MDS_WRITELOCAL |
i2 = bBij + sNx*sNy*nNz |
|
./pkg/mdsio/mdsio_writelocal.F |
360 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
362 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
634 |
THE_MODEL_MAIN |
do i2=1-oly,sny+oly |
|
./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 |
|
./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., |