| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_toolbox.F |
1035 |
ECCO_MULTFIELD |
subroutine ECCO_MULTFIELD( fld, nnzloc, fld2, myThid ) |
|
./pkg/ecco/ecco_toolbox.F |
1052 |
ECCO_MULTFIELD |
_RL fld2 (1-olx:snx+olx,1-oly:sny+oly,nnzloc,nsx,nsy) |
|
./pkg/ecco/ecco_toolbox.F |
1081 |
ECCO_MULTFIELD |
fld2(i,j,k,bi,bj) = fld(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
1082 |
ECCO_MULTFIELD |
& fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
29 |
TIMEAVE_CUMUL_1VFC |
_RS fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
46 |
TIMEAVE_CUMUL_1VFC |
& + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
8 |
TIMEAVE_CUMUL_1VFC |
I fld1, fld2, Ksize, deltaTloc, |
|
./pkg/timeave/timeave_cumul_2v.F |
114 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
129 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
130 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
146 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
147 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
163 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
164 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
180 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
181 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
33 |
TIMEAVE_CUMUL_2V |
_RL fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_2v.F |
55 |
TIMEAVE_CUMUL_2V |
& + fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_cumul_2v.F |
70 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
84 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
8 |
TIMEAVE_CUMUL_2V |
I fld1, fld2, Ksize, dir, deltaTloc, |
|
./pkg/timeave/timeave_cumul_2v.F |
99 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
34 |
TIMEAVE_CUMUL_2VFC |
_RL fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
54 |
TIMEAVE_CUMUL_2VFC |
& fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
70 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
86 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
8 |
TIMEAVE_CUMUL_2VFC |
I fld1, fld2, fld3, Ksize, dir, deltaTloc, |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
30 |
TIMEAVE_CUMUL_DIF_1T |
_RL fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
50 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
63 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
76 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
8 |
TIMEAVE_CUMUL_DIF_1T |
I fld1, fld2, Ksize, dir, deltaTloc, |
|
./verification/natl_box/results/comp_orig.F |
17 |
NO PROCEDURE |
real*4 fld1(nx,ny), fld2(nx,ny), maxdiff |
|
./verification/natl_box/results/comp_orig.F |
31 |
NO PROCEDURE |
read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny) |
|
./verification/natl_box/results/comp_orig.F |
34 |
NO PROCEDURE |
maxdiff=max(maxdiff,abs(fld1(i,j)-fld2(i,j))) |