| File |
Line number |
Procedure |
Code |
|
./pkg/debug/chksum_tiled.F |
14 |
CHKSUM_TILED |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NN,nSx,nSy) |
|
./pkg/debug/chksum_tiled.F |
22 |
CHKSUM_TILED |
Fmin=fld(1,1,1,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
23 |
CHKSUM_TILED |
Fmax=fld(1,1,1,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
28 |
CHKSUM_TILED |
Fmin=min(Fmin,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
29 |
CHKSUM_TILED |
Fmax=max(Fmax,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
30 |
CHKSUM_TILED |
Fmn=Fmn+fld(I,J,K,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
39 |
CHKSUM_TILED |
Frms=Frms+(fld(I,J,K,bi,bj)-Fmn)**2 |
|
./pkg/debug/chksum_tiled.F |
6 |
CHKSUM_TILED |
SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
29 |
WRITE_FULLARRAY_RL |
_RL fld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize,nSx,nSy) |
|
./pkg/debug/write_fullarray_rl.F |
66 |
WRITE_FULLARRAY_RL |
WRITE(dUnit) ((( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rl.F |
7 |
WRITE_FULLARRAY_RL |
SUBROUTINE WRITE_FULLARRAY_RL(fnam, fld, kSize, |
|
./pkg/debug/write_fullarray_rl.F |
87 |
WRITE_FULLARRAY_RL |
WRITE(dUnit) ((( fld(i,j,k,1,1), |
|
./pkg/debug/fill_in_corners_rl.F |
29 |
FILL_IN_CORNERS_RL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/debug/fill_in_corners_rl.F |
48 |
FILL_IN_CORNERS_RL |
fld(i,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
49 |
FILL_IN_CORNERS_RL |
fld(ii,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
50 |
FILL_IN_CORNERS_RL |
fld(i,jj,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
51 |
FILL_IN_CORNERS_RL |
fld(ii,jj,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
7 |
FILL_IN_CORNERS_RL |
U fld, |
|
./model/src/read_write.F |
105 |
WRITE_1D_L |
CALL PRINT_LIST_L( fld, lFld, index_type, .FALSE., |
|
./model/src/read_write.F |
117 |
WRITE_1D_R8 |
SUBROUTINE WRITE_1D_R8( fld, lFld, index_type, head, comment ) |
|
./model/src/read_write.F |
148 |
WRITE_1D_R8 |
Real*8 fld(lFld) |
|
./model/src/read_write.F |
165 |
WRITE_1D_R8 |
CALL PRINT_LIST_R8( fld, lFld, index_type, .FALSE., |
|
./model/src/read_write.F |
177 |
WRITE_0D_I |
SUBROUTINE WRITE_0D_I( fld, index_type, head, comment ) |
|
./model/src/read_write.F |
205 |
WRITE_0D_I |
INTEGER fld |
|
./model/src/read_write.F |
216 |
WRITE_0D_I |
idummy(1) = fld |
|
./model/src/read_write.F |
233 |
WRITE_0D_L |
SUBROUTINE WRITE_0D_L( fld, index_type, head, comment ) |
|
./model/src/read_write.F |
261 |
WRITE_0D_L |
LOGICAL fld |
|
./model/src/read_write.F |
272 |
WRITE_0D_L |
ldummy(1) = fld |
|
./model/src/read_write.F |
288 |
WRITE_0D_R8 |
SUBROUTINE WRITE_0D_R8( fld, index_type, head, comment ) |
|
./model/src/read_write.F |
316 |
WRITE_0D_R8 |
Real*8 fld |
|
./model/src/read_write.F |
327 |
WRITE_0D_R8 |
r8dummy(1) = fld |
|
./model/src/read_write.F |
344 |
WRITE_XY_XLINE_RS |
I fld, sCoord, tCoord, |
|
./model/src/read_write.F |
376 |
WRITE_XY_XLINE_RS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/read_write.F |
38 |
WRITE_1D_I |
INTEGER fld(lFld) |
|
./model/src/read_write.F |
409 |
WRITE_XY_XLINE_RS |
xcoord(sNx*(bi-1)+I)=fld(I,J,bi,bj) |
|
./model/src/read_write.F |
421 |
WRITE_XY_YLINE_RS |
I fld, sCoord, tCoord, |
|
./model/src/read_write.F |
453 |
WRITE_XY_YLINE_RS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/read_write.F |
486 |
WRITE_XY_YLINE_RS |
ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj) |
|
./model/src/read_write.F |
51 |
WRITE_1D_I |
CALL PRINT_LIST_I( fld, lFld, index_type, .FALSE., |
|
./model/src/read_write.F |
63 |
WRITE_1D_L |
SUBROUTINE WRITE_1D_L( fld, lFld, index_type, head, comment ) |
|
./model/src/read_write.F |
92 |
WRITE_1D_L |
LOGICAL fld(lFld) |
|
./model/src/read_write.F |
9 |
WRITE_1D_I |
SUBROUTINE WRITE_1D_I( fld, lFld, index_type, head, comment ) |
|
./model/src/plot_field.F |
124 |
PLOT_FIELD_XYRL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
|
./model/src/plot_field.F |
167 |
PLOT_FIELD_XYRL |
I fld, fldTitle, PRINT_MAP_XY, |
|
./model/src/plot_field.F |
180 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
212 |
PLOT_FIELD_XYZRS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./model/src/plot_field.F |
260 |
PLOT_FIELD_XYZRS |
I fld, fldTitle, PRINT_MAP_XY, |
|
./model/src/plot_field.F |
273 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
305 |
PLOT_FIELD_XYZRL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./model/src/plot_field.F |
353 |
PLOT_FIELD_XYZRL |
I fld, fldTitle, PRINT_MAP_XY, |
|
./model/src/plot_field.F |
367 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
399 |
PLOT_FIELD_XZRS |
_RS fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy) |
|
./model/src/plot_field.F |
41 |
PLOT_FIELD_XYRS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/plot_field.F |
442 |
PLOT_FIELD_XZRS |
I fld, fldTitle, PRINT_MAP_XZ, |
|
./model/src/plot_field.F |
455 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
487 |
PLOT_FIELD_XZRL |
_RL fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy) |
|
./model/src/plot_field.F |
531 |
PLOT_FIELD_XZRL |
I fld, fldTitle, PRINT_MAP_XZ, |
|
./model/src/plot_field.F |
545 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
577 |
PLOT_FIELD_YZRS |
_RS fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./model/src/plot_field.F |
621 |
PLOT_FIELD_YZRS |
I fld, fldTitle, PRINT_MAP_YZ, |
|
./model/src/plot_field.F |
634 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
666 |
PLOT_FIELD_YZRL |
_RL fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./model/src/plot_field.F |
710 |
PLOT_FIELD_YZRL |
I fld, fldTitle, PRINT_MAP_YZ, |
|
./model/src/plot_field.F |
84 |
PLOT_FIELD_XYRS |
I fld, fldTitle, PRINT_MAP_XY, |
|
./model/src/plot_field.F |
97 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
|
./pkg/timeave/timeave_cumul_1k.F |
23 |
TIMEAVE_CUMUL_1K |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_1k.F |
40 |
TIMEAVE_CUMUL_1K |
& fldtave(i,j,K,bi,bj)+fld(i,j,K,bi,bj)*deltaT |
|
./pkg/timeave/timeave_cumul_1k.F |
6 |
TIMEAVE_CUMUL_1K |
SUBROUTINE TIMEAVE_CUMUL_1K( fld, fldtave, deltaT, |
|
./pkg/timeave/timeave_cumul_1t.F |
26 |
TIMEAVE_CUMUL_1T |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize) |
|
./pkg/timeave/timeave_cumul_1t.F |
41 |
TIMEAVE_CUMUL_1T |
& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaT |
|
./pkg/timeave/timeave_cumul_1t.F |
8 |
TIMEAVE_CUMUL_1T |
I fld, Ksize, deltaT, |
|
./pkg/timeave/timeave_cumul_1k1t.F |
28 |
TIMEAVE_CUMUL_1K1T |
_RL fld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/timeave/timeave_cumul_1k1t.F |
42 |
TIMEAVE_CUMUL_1K1T |
& + fld(i,j)*deltaT |
|
./pkg/timeave/timeave_cumul_1k1t.F |
8 |
TIMEAVE_CUMUL_1K1T |
I fld, deltaT, |
|
./pkg/timeave/timeave_cumul_fc.F |
26 |
TIMEAVE_CUMUL_FC |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumul_fc.F |
43 |
TIMEAVE_CUMUL_FC |
& + deltaT*fld(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_fc.F |
8 |
TIMEAVE_CUMUL_FC |
I fld, Ksize, deltaT, |
|
./pkg/timeave/timeave_cumulate.F |
26 |
TIMEAVE_CUMULATE |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
|
./pkg/timeave/timeave_cumulate.F |
43 |
TIMEAVE_CUMULATE |
& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaT |
|
./pkg/timeave/timeave_cumulate.F |
8 |
TIMEAVE_CUMULATE |
I fld, Ksize, deltaT, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
108 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
135 |
PLOT_FIELD_XYRL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
187 |
PLOT_FIELD_XYRL |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
202 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
234 |
PLOT_FIELD_XYZRS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
282 |
PLOT_FIELD_XYZRS |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
295 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
327 |
PLOT_FIELD_XYZRL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
375 |
PLOT_FIELD_XYZRL |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
389 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
41 |
PLOT_FIELD_XYRS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
421 |
PLOT_FIELD_XZRS |
_RS fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
464 |
PLOT_FIELD_XZRS |
I fld, fldTitle, PRINT_MAP_XZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
477 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
509 |
PLOT_FIELD_XZRL |
_RL fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
553 |
PLOT_FIELD_XZRL |
I fld, fldTitle, PRINT_MAP_XZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
567 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
599 |
PLOT_FIELD_YZRS |
_RS fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
643 |
PLOT_FIELD_YZRS |
I fld, fldTitle, PRINT_MAP_YZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
656 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
688 |
PLOT_FIELD_YZRL |
_RL fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
732 |
PLOT_FIELD_YZRL |
I fld, fldTitle, PRINT_MAP_YZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/plot_field.F |
93 |
PLOT_FIELD_XYRS |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
108 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
135 |
PLOT_FIELD_XYRL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
187 |
PLOT_FIELD_XYRL |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
202 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
234 |
PLOT_FIELD_XYZRS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
282 |
PLOT_FIELD_XYZRS |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
295 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
327 |
PLOT_FIELD_XYZRL |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
375 |
PLOT_FIELD_XYZRL |
I fld, fldTitle, PRINT_MAP_XY, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
389 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
41 |
PLOT_FIELD_XYRS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
421 |
PLOT_FIELD_XZRS |
_RS fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
464 |
PLOT_FIELD_XZRS |
I fld, fldTitle, PRINT_MAP_XZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
477 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
509 |
PLOT_FIELD_XZRL |
_RL fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
553 |
PLOT_FIELD_XZRL |
I fld, fldTitle, PRINT_MAP_XZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
567 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
599 |
PLOT_FIELD_YZRS |
_RS fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
643 |
PLOT_FIELD_YZRS |
I fld, fldTitle, PRINT_MAP_YZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
656 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
688 |
PLOT_FIELD_YZRL |
_RL fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
732 |
PLOT_FIELD_YZRL |
I fld, fldTitle, PRINT_MAP_YZ, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
93 |
PLOT_FIELD_XYRS |
I fld, fldTitle, PRINT_MAP_XY, |
|
./pkg/kpp/kpp_routines.F |
1002 |
SMOOTH_HORIZ |
_RL fld( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_routines.F |
1035 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1036 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1037 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1038 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1039 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1040 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1041 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1042 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1043 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
1046 |
SMOOTH_HORIZ |
fld_tmp(i,j) = fld(i,j) |
|
./pkg/kpp/kpp_routines.F |
1054 |
SMOOTH_HORIZ |
fld(i,j) = fld_tmp(i,j) |
|
./pkg/kpp/kpp_routines.F |
905 |
KPP_SMOOTH_HORIZ |
U fld ) |
|
./pkg/kpp/kpp_routines.F |
921 |
KPP_SMOOTH_HORIZ |
_KPP_RL fld( ibot:itop, jbot:jtop ) |
|
./pkg/kpp/kpp_routines.F |
954 |
KPP_SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
955 |
KPP_SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
956 |
KPP_SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
957 |
KPP_SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
958 |
KPP_SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
959 |
KPP_SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
960 |
KPP_SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
961 |
KPP_SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
962 |
KPP_SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
965 |
KPP_SMOOTH_HORIZ |
fld_tmp(i,j) = fld(i,j) |
|
./pkg/kpp/kpp_routines.F |
973 |
KPP_SMOOTH_HORIZ |
fld(i,j) = fld_tmp(i,j) |
|
./pkg/kpp/kpp_routines.F |
986 |
SMOOTH_HORIZ |
U fld ) |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1063 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1064 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1065 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1296 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1298 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1300 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
140 |
PRINT_LIST_I |
SUBROUTINE PRINT_LIST_I( fld, lFld, index_type, |
|
./eesupp/src/print.F |
174 |
PRINT_LIST_I |
INTEGER fld(lFld) |
|
./eesupp/src/print.F |
214 |
PRINT_LIST_I |
xOld = fld(1) |
|
./eesupp/src/print.F |
216 |
PRINT_LIST_I |
xNew = fld(K ) |
|
./eesupp/src/print.F |
261 |
PRINT_LIST_L |
SUBROUTINE PRINT_LIST_L( fld, lFld, index_type, markEnd, |
|
./eesupp/src/print.F |
295 |
PRINT_LIST_L |
LOGICAL fld(lFld) |
|
./eesupp/src/print.F |
335 |
PRINT_LIST_L |
xOld = fld(1) |
|
./eesupp/src/print.F |
337 |
PRINT_LIST_L |
xNew = fld(K ) |
|
./eesupp/src/print.F |
381 |
PRINT_LIST_R8 |
SUBROUTINE PRINT_LIST_R8( fld, lFld, index_type, |
|
./eesupp/src/print.F |
415 |
PRINT_LIST_R8 |
Real*8 fld(lFld) |
|
./eesupp/src/print.F |
455 |
PRINT_LIST_R8 |
xOld = fld(1) |
|
./eesupp/src/print.F |
457 |
PRINT_LIST_R8 |
xNew = fld(K ) |
|
./eesupp/src/print.F |
503 |
PRINT_MAPRS |
SUBROUTINE PRINT_MAPRS ( fld, fldTitle, plotMode, |
|
./eesupp/src/print.F |
566 |
PRINT_MAPRS |
_RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
636 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
637 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
638 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
639 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
640 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
873 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
875 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
877 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
926 |
PRINT_MAPRL |
SUBROUTINE PRINT_MAPRL ( fld, fldTitle, plotMode, |
|
./eesupp/src/print.F |
990 |
PRINT_MAPRL |
_RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./pkg/ctrl/ctrl_smooth.F |
20 |
CTRL_SMOOTH |
_RL fld( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ,nSx,nSy) |
|
./pkg/ctrl/ctrl_smooth.F |
4 |
CTRL_SMOOTH |
U fld ,mask) |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
60 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
61 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
fld_tmp(i,j) = fld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_smooth.F |
78 |
CTRL_SMOOTH |
fld(i,j,bi,bj) = fld_tmp(i,j) |
|
./pkg/seaice/seaice_exch.F |
21 |
SEAICE_EXCH |
_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/seaice_exch.F |
35 |
SEAICE_EXCH |
tempVar(i,j,bi,bj)=fld(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_exch.F |
45 |
SEAICE_EXCH |
fld(i,j,k,bi,bj)=tempVar(i,j,bi,bj) |
|
./pkg/seaice/seaice_exch.F |
7 |
SEAICE_EXCH |
SUBROUTINE SEAICE_EXCH ( fld, myThid ) |