| File |
Line number |
Procedure |
Code |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
29 |
TIMEAVE_CUMUL_DIF_1T |
_RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
48 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k,bi,bj) - fld1(i-1,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
61 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k,bi,bj) - fld1(i,j-1,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
74 |
TIMEAVE_CUMUL_DIF_1T |
& + ( fld1(i,j,k,bi,bj) - fld1(i,j,k-1,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
8 |
TIMEAVE_CUMUL_DIF_1T |
I fld1, fld2, Ksize, dir, deltaT, |
|
./pkg/timeave/timeave_cumul_1vfc.F |
28 |
TIMEAVE_CUMUL_1VFC |
_RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
46 |
TIMEAVE_CUMUL_1VFC |
& + deltaT*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, deltaT, |
|
./pkg/timeave/timeave_cumul_2vfc.F |
33 |
TIMEAVE_CUMUL_2VFC |
_RL fld1(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 |
69 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
85 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
8 |
TIMEAVE_CUMUL_2VFC |
I fld1, fld2, fld3, Ksize, dir, deltaT, |
|
./pkg/timeave/timeave_cumul_2v.F |
113 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
162 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
179 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
32 |
TIMEAVE_CUMUL_2V |
_RL fld1(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)*deltaT |
|
./pkg/timeave/timeave_cumul_2v.F |
69 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
83 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
8 |
TIMEAVE_CUMUL_2V |
I fld1, fld2, Ksize, dir, deltaT, |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./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 |
30 |
NO PROCEDURE |
read(1,rec=irec) ((fld1(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))) |