| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_toolbox.F |
1019 |
ECCO_MULT |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)*multloc |
|
./pkg/ecco/ecco_toolbox.F |
1035 |
ECCO_MULTFIELD |
subroutine ECCO_MULTFIELD( fld, nnzloc, fld2, myThid ) |
|
./pkg/ecco/ecco_toolbox.F |
1051 |
ECCO_MULTFIELD |
_RL fld (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 |
29 |
ECCO_ZERO |
subroutine ECCO_ZERO( fld, nnzloc, zeroloc, myThid ) |
|
./pkg/ecco/ecco_toolbox.F |
46 |
ECCO_ZERO |
_RL fld (1-olx:snx+olx,1-oly:sny+oly,nnzloc,nsx,nsy) |
|
./pkg/ecco/ecco_toolbox.F |
77 |
ECCO_ZERO |
fld(i,j,k,bi,bj) = zeroloc |
|
./pkg/ecco/ecco_toolbox.F |
844 |
ECCO_DIV |
subroutine ECCO_DIV( fld, nnzloc, numerloc, myThid ) |
|
./pkg/ecco/ecco_toolbox.F |
861 |
ECCO_DIV |
_RL fld (1-olx:snx+olx,1-oly:sny+oly,nnzloc,nsx,nsy) |
|
./pkg/ecco/ecco_toolbox.F |
890 |
ECCO_DIV |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/numerloc |
|
./pkg/ecco/ecco_toolbox.F |
906 |
ECCO_DIVFIELD |
subroutine ECCO_DIVFIELD( fld, nnzloc, flddenom, myThid ) |
|
./pkg/ecco/ecco_toolbox.F |
922 |
ECCO_DIVFIELD |
_RL fld (1-olx:snx+olx,1-oly:sny+oly,nnzloc,nsx,nsy) |
|
./pkg/ecco/ecco_toolbox.F |
953 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
956 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
973 |
ECCO_MULT |
subroutine ECCO_MULT( fld, nnzloc, multloc, myThid ) |
|
./pkg/ecco/ecco_toolbox.F |
990 |
ECCO_MULT |
_RL fld (1-olx:snx+olx,1-oly:sny+oly,nnzloc,nsx,nsy) |
|
./pkg/kpp/kpp_routines.F |
1213 |
SMOOTH_HORIZ |
U fld, |
|
./pkg/kpp/kpp_routines.F |
1232 |
SMOOTH_HORIZ |
_RL fld( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_routines.F |
1265 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1266 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1267 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1268 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1269 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1270 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1271 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1272 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1273 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
1276 |
SMOOTH_HORIZ |
fld_tmp(i,j) = fld(i,j) |
|
./pkg/kpp/kpp_routines.F |
1284 |
SMOOTH_HORIZ |
fld(i,j) = fld_tmp(i,j) |
|
./pkg/longstep/longstep_fill_3d.F |
11 |
LONGSTEP_FILL_3D |
I fld, myNr, myThid) |
|
./pkg/longstep/longstep_fill_3d.F |
53 |
LONGSTEP_FILL_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
11 |
LONGSTEP_FILL_3D_FAC |
I fld, fac, myNr, myThid) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
55 |
LONGSTEP_FILL_3D_FAC |
& + fld(i,j,k,bi,bj)*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
11 |
LONGSTEP_FILL_3D_RS |
I fld, myNr, myThid) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
54 |
LONGSTEP_FILL_3D_RS |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
663 |
OBCS_TIME_INTERP_XZ |
O fld, |
|
./pkg/obcs/obcs_fields_load.F |
684 |
OBCS_TIME_INTERP_XZ |
_RL fld (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
699 |
OBCS_TIME_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
714 |
OBCS_TIME_INTERP_YZ |
O fld, |
|
./pkg/obcs/obcs_fields_load.F |
735 |
OBCS_TIME_INTERP_YZ |
_RL fld (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
750 |
OBCS_TIME_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/seaice/advect.F |
125 |
ADVECT |
fld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
14 |
ADVECT |
U fld, |
|
./pkg/seaice/advect.F |
159 |
ADVECT |
fld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
170 |
ADVECT |
CALL EXCH_XY_RL( fld, myThid ) |
|
./pkg/seaice/advect.F |
206 |
ADVECT |
fld(i,j,bi,bj) = ( fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
238 |
ADVECT |
fld(i,j,bi,bj) = ( fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
49 |
ADVECT |
_RL fld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/advect.F |
72 |
ADVECT |
fldNm1(i,j,bi,bj) = fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
10 |
DIFFUS |
U fld, |
|
./pkg/seaice/diffus.F |
121 |
DIFFUS |
& (fld(i+1,j,bi,bj)-fld(i, j,bi,bj)) |
|
./pkg/seaice/diffus.F |
126 |
DIFFUS |
& -(fld(i, j,bi,bj)-fld(i-1,j,bi,bj)) |
|
./pkg/seaice/diffus.F |
133 |
DIFFUS |
& (fld(i,j+1,bi,bj)-fld(i,j, bi,bj)) |
|
./pkg/seaice/diffus.F |
138 |
DIFFUS |
& -(fld(i,j, bi,bj)-fld(i,j-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
148 |
DIFFUS |
fld(i,j,bi,bj) = tmpFld(i,j) |
|
./pkg/seaice/diffus.F |
37 |
DIFFUS |
_RL fld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
& * (fld(i,j,bi,bj)-fld(i-1,j,bi,bj)) |
|
./pkg/seaice/diffus.F |
77 |
DIFFUS |
& * (fld(i,j,bi,bj)-fld(i,j-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
90 |
DIFFUS |
fld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
96 |
DIFFUS |
fld(i,j,bi,bj) = ( |
|
./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)*deltaTloc |
|
./pkg/timeave/timeave_cumul_1k1t.F |
8 |
TIMEAVE_CUMUL_1K1T |
I fld, deltaTloc, |
|
./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)*deltaTloc |
|
./pkg/timeave/timeave_cumul_1t.F |
8 |
TIMEAVE_CUMUL_1T |
I fld, Ksize, deltaTloc, |
|
./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)*deltaTloc |
|
./pkg/timeave/timeave_cumulate.F |
8 |
TIMEAVE_CUMULATE |
I fld, Ksize, deltaTloc, |
|
./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, |
|
./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 ) |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1064 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
1113 |
PRINT_MAPRL |
SUBROUTINE PRINT_MAPRL ( fld, fldTitle, plotMode, |
|
./eesupp/src/print.F |
1173 |
PRINT_MAPRL |
_RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1253 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1254 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1494 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1496 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
281 |
PRINT_LIST_I |
SUBROUTINE PRINT_LIST_I( fld, iFirst, iLast, index_type, |
|
./eesupp/src/print.F |
317 |
PRINT_LIST_I |
INTEGER fld(iFirst:iLast) |
|
./eesupp/src/print.F |
367 |
PRINT_LIST_I |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
369 |
PRINT_LIST_I |
xNew = fld(K ) |
|
./eesupp/src/print.F |
414 |
PRINT_LIST_L |
SUBROUTINE PRINT_LIST_L( fld, iFirst, iLast, index_type, |
|
./eesupp/src/print.F |
450 |
PRINT_LIST_L |
LOGICAL fld(iFirst:iLast) |
|
./eesupp/src/print.F |
500 |
PRINT_LIST_L |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
502 |
PRINT_LIST_L |
xNew = fld(K ) |
|
./eesupp/src/print.F |
547 |
PRINT_LIST_RL |
SUBROUTINE PRINT_LIST_RL( fld, iFirst, iLast, index_type, |
|
./eesupp/src/print.F |
583 |
PRINT_LIST_RL |
_RL fld(iFirst:iLast) |
|
./eesupp/src/print.F |
633 |
PRINT_LIST_RL |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
635 |
PRINT_LIST_RL |
xNew = fld(K ) |
|
./eesupp/src/print.F |
680 |
PRINT_MAPRS |
SUBROUTINE PRINT_MAPRS ( fld, fldTitle, plotMode, |
|
./eesupp/src/print.F |
740 |
PRINT_MAPRS |
_RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
818 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
819 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
820 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/write_utils.F |
113 |
WRITE_1D_L |
LOGICAL fld(lFld) |
|
./eesupp/src/write_utils.F |
126 |
WRITE_1D_L |
CALL PRINT_LIST_L( fld, 1, lFld, index_type, .FALSE., |
|
./eesupp/src/write_utils.F |
140 |
WRITE_1D_RL |
SUBROUTINE WRITE_1D_RL( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
171 |
WRITE_1D_RL |
_RL fld(lFld) |
|
./eesupp/src/write_utils.F |
192 |
WRITE_1D_RL |
prev = fld(1) |
|
./eesupp/src/write_utils.F |
194 |
WRITE_1D_RL |
IF ( fld(i).NE.prev ) nCount = nCount + 1 |
|
./eesupp/src/write_utils.F |
195 |
WRITE_1D_RL |
prev = fld(i) |
|
./eesupp/src/write_utils.F |
206 |
WRITE_1D_RL |
CALL PRINT_LIST_RL( fld, 1, lFld, index_type, .FALSE., |
|
./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 |
227 |
WRITE_1D_RL |
CALL PRINT_LIST_RL( fld(i1), i1, i2, index_type, .FALSE., |
|
./eesupp/src/write_utils.F |
242 |
WRITE_0D_I |
SUBROUTINE WRITE_0D_I( fld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
268 |
WRITE_0D_I |
INTEGER fld |
|
./eesupp/src/write_utils.F |
279 |
WRITE_0D_I |
idummy(1) = fld |
|
./eesupp/src/write_utils.F |
28 |
WRITE_1D_I |
SUBROUTINE WRITE_1D_I( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
298 |
WRITE_0D_L |
SUBROUTINE WRITE_0D_L( fld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
324 |
WRITE_0D_L |
LOGICAL fld |
|
./eesupp/src/write_utils.F |
335 |
WRITE_0D_L |
ldummy(1) = fld |
|
./eesupp/src/write_utils.F |
353 |
WRITE_0D_R4 |
SUBROUTINE WRITE_0D_R4( fld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
379 |
WRITE_0D_R4 |
Real*4 fld |
|
./eesupp/src/write_utils.F |
391 |
WRITE_0D_R4 |
dummyRL(1) = fld |
|
./eesupp/src/write_utils.F |
410 |
WRITE_0D_R8 |
SUBROUTINE WRITE_0D_R8( fld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
436 |
WRITE_0D_R8 |
Real*8 fld |
|
./eesupp/src/write_utils.F |
448 |
WRITE_0D_R8 |
dummyRL(1) = fld |
|
./eesupp/src/write_utils.F |
467 |
WRITE_0D_RS |
SUBROUTINE WRITE_0D_RS( fld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
493 |
WRITE_0D_RS |
_RS fld |
|
./eesupp/src/write_utils.F |
505 |
WRITE_0D_RS |
dummyRL(1) = fld |
|
./eesupp/src/write_utils.F |
524 |
WRITE_0D_RL |
SUBROUTINE WRITE_0D_RL( fld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
550 |
WRITE_0D_RL |
_RL fld |
|
./eesupp/src/write_utils.F |
562 |
WRITE_0D_RL |
dummyRL(1) = fld |
|
./eesupp/src/write_utils.F |
57 |
WRITE_1D_I |
INTEGER fld(lFld) |
|
./eesupp/src/write_utils.F |
581 |
WRITE_0D_C |
SUBROUTINE WRITE_0D_C( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
610 |
WRITE_0D_C |
CHARACTER*(*) fld |
|
./eesupp/src/write_utils.F |
629 |
WRITE_0D_C |
iL = LEN(fld) |
|
./eesupp/src/write_utils.F |
633 |
WRITE_0D_C |
iL = ILNBLNK(fld) |
|
./eesupp/src/write_utils.F |
635 |
WRITE_0D_C |
IF ( lFld .EQ. -2 ) iS = IFNBLNK(fld) |
|
./eesupp/src/write_utils.F |
643 |
WRITE_0D_C |
WRITE(msgBuf,'(14X,3A)') "'", fld(iS:iL), "'" |
|
./eesupp/src/write_utils.F |
663 |
WRITE_COPY1D_R4 |
I fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
694 |
WRITE_COPY1D_R4 |
Real*4 fld(lFld) |
|
./eesupp/src/write_utils.F |
705 |
WRITE_COPY1D_R4 |
tmpBufRL(i) = fld(i) |
|
./eesupp/src/write_utils.F |
70 |
WRITE_1D_I |
CALL PRINT_LIST_I( fld, 1, lFld, index_type, .FALSE., |
|
./eesupp/src/write_utils.F |
719 |
WRITE_COPY1D_R8 |
I fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
750 |
WRITE_COPY1D_R8 |
Real*8 fld(lFld) |
|
./eesupp/src/write_utils.F |
761 |
WRITE_COPY1D_R8 |
tmpBufRL(i) = fld(i) |
|
./eesupp/src/write_utils.F |
775 |
WRITE_COPY1D_RS |
I fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
806 |
WRITE_COPY1D_RS |
_RS fld(lFld) |
|
./eesupp/src/write_utils.F |
817 |
WRITE_COPY1D_RS |
tmpBufRL(i) = fld(i) |
|
./eesupp/src/write_utils.F |
830 |
WRITE_XY_XLINE_RS |
I fld, sCoord, tCoord, |
|
./eesupp/src/write_utils.F |
84 |
WRITE_1D_L |
SUBROUTINE WRITE_1D_L( fld, lFld, index_type, head, comment ) |
|
./eesupp/src/write_utils.F |
858 |
WRITE_XY_XLINE_RS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/write_utils.F |
897 |
WRITE_XY_XLINE_RS |
xcoord(sNx*(bi-1)+I)=fld(I,J,bi,bj) |
|
./eesupp/src/write_utils.F |
911 |
WRITE_XY_YLINE_RS |
I fld, sCoord, tCoord, |
|
./eesupp/src/write_utils.F |
939 |
WRITE_XY_YLINE_RS |
_RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/write_utils.F |
978 |
WRITE_XY_YLINE_RS |
ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_GENARR2D |
SUBROUTINE CTRL_MAP_GENARR2D( fld, iarr, myThid ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
188 |
CTRL_MAP_GENARR2D |
_RL fld (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
291 |
CTRL_MAP_GENARR2D |
fld(i,j,bi,bj)=fld(i,j,bi,bj)+xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
298 |
CTRL_MAP_GENARR2D |
CALL CTRL_BOUND_2D(fld,maskC,xx_genarr2d_bounds(1,iarr),myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
300 |
CTRL_MAP_GENARR2D |
CALL EXCH_XY_RL( fld, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
303 |
CTRL_MAP_GENARR2D |
& 'RL',1,1,1,fld,dummyRS,1,optimcycle,mythid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
315 |
CTRL_MAP_GENARR3D |
SUBROUTINE CTRL_MAP_GENARR3D( fld, iarr, myThid ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
343 |
CTRL_MAP_GENARR3D |
_RL fld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
466 |
CTRL_MAP_GENARR3D |
fld(i,j,k,bi,bj)=fld(i,j,k,bi,bj)+xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
475 |
CTRL_MAP_GENARR3D |
CALL CTRL_BOUND_3D(fld,localmask, |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
478 |
CTRL_MAP_GENARR3D |
CALL CTRL_BOUND_3D(fld,maskC,xx_genarr3d_bounds(1,iarr),myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
486 |
CTRL_MAP_GENARR3D |
& CALL EXCH_XYZ_RL( fld, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
489 |
CTRL_MAP_GENARR3D |
& 'RL',nr,1,nr,fld,dummyRS,1,optimcycle,mythid) |
|
./pkg/ctrl/ctrl_smooth.F |
19 |
CTRL_SMOOTH |
_RL fld ( 1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy ) |
|
./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/ctrl/ctrl_smooth.F |
7 |
CTRL_SMOOTH |
U fld, |
|
./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/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, |
|
./pkg/debug/write_fullarray_rl.F |
133 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
41 |
WRITE_FULLARRAY_RL |
_RL fld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize,nSx,nSy) |
|
./pkg/debug/write_fullarray_rl.F |
99 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rl.F |
9 |
WRITE_FULLARRAY_RL |
SUBROUTINE WRITE_FULLARRAY_RL( fnam, fld, kSize, |
|
./pkg/debug/write_fullarray_rs.F |
133 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rs.F |
41 |
WRITE_FULLARRAY_RS |
_RS fld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize,nSx,nSy) |
|
./pkg/debug/write_fullarray_rs.F |
99 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rs.F |
9 |
WRITE_FULLARRAY_RS |
SUBROUTINE WRITE_FULLARRAY_RS( fnam, fld, kSize, |