| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_init_fld.F |
14 |
EXF_INIT_FLD |
U fldArr, fld0, fld1, |
|
./pkg/exf/exf_init_fld.F |
56 |
EXF_INIT_FLD |
_RL fld1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_init_fld.F |
95 |
EXF_INIT_FLD |
fld1(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_set_fld.F |
14 |
EXF_SET_FLD |
U fldArr, fld0, fld1, |
|
./pkg/exf/exf_set_fld.F |
193 |
EXF_SET_FLD |
O fld1, |
|
./pkg/exf/exf_set_fld.F |
195 |
EXF_SET_FLD |
O fld1, bufArr, |
|
./pkg/exf/exf_set_fld.F |
203 |
EXF_SET_FLD |
& fld1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_fld.F |
213 |
EXF_SET_FLD |
& CALL WRITE_REC_XY_RL( out_file, fld1, 1, myIter, myThid ) |
|
./pkg/exf/exf_set_fld.F |
214 |
EXF_SET_FLD |
CALL WRITE_REC_XY_RL( out_file,fld1,count0,myIter,myThid ) |
|
./pkg/exf/exf_set_fld.F |
219 |
EXF_SET_FLD |
CALL EXF_FILTER_RL( fld1, fldMask, myThid ) |
|
./pkg/exf/exf_set_fld.F |
225 |
EXF_SET_FLD |
CALL EXF_SWAPFFIELDS( fld0, fld1, myThid ) |
|
./pkg/exf/exf_set_fld.F |
252 |
EXF_SET_FLD |
O fld1, |
|
./pkg/exf/exf_set_fld.F |
254 |
EXF_SET_FLD |
O fld1, bufArr, |
|
./pkg/exf/exf_set_fld.F |
262 |
EXF_SET_FLD |
& fld1, count1, myIter, myThid ) |
|
./pkg/exf/exf_set_fld.F |
271 |
EXF_SET_FLD |
CALL WRITE_REC_XY_RL( out_file,fld1,count1,myIter,myThid ) |
|
./pkg/exf/exf_set_fld.F |
276 |
EXF_SET_FLD |
CALL EXF_FILTER_RL( fld1, fldMask, myThid ) |
|
./pkg/exf/exf_set_fld.F |
289 |
EXF_SET_FLD |
& + (exf_one - fac)* fld1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_fld.F |
82 |
EXF_SET_FLD |
_RL fld1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
664 |
OBCS_TIME_INTERP_XZ |
I fld0, fld1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
686 |
OBCS_TIME_INTERP_XZ |
_RL fld1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
700 |
OBCS_TIME_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
715 |
OBCS_TIME_INTERP_YZ |
I fld0, fld1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
737 |
OBCS_TIME_INTERP_YZ |
_RL fld1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
751 |
OBCS_TIME_INTERP_YZ |
& +aWght*fld1(j,k,bi,bj) |
|
./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 |
& + 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 |
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)*deltaTloc |
|
./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, deltaTloc, |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./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, deltaTloc, |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
29 |
TIMEAVE_CUMUL_DIF_1T |
_RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
48 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k) - fld1(i-1,j,k) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
61 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k) - fld1(i,j-1,k) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
74 |
TIMEAVE_CUMUL_DIF_1T |
& + ( fld1(i,j,k) - fld1(i,j,k-1) ) |
|
./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 |
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))) |