| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1070 |
SMOOTH_HORIZ |
U fld, |
|
./pkg/kpp/kpp_routines.F |
1089 |
SMOOTH_HORIZ |
_RL fld( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_routines.F |
1122 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1123 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1124 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1125 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1126 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1127 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1128 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1129 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1130 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
1133 |
SMOOTH_HORIZ |
fld_tmp(i,j) = fld(i,j) |
|
./pkg/kpp/kpp_routines.F |
1141 |
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_external_fields_load.F |
635 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
O fld, |
|
./pkg/obcs/obcs_external_fields_load.F |
657 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
_RL fld (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
670 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
685 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
O fld, |
|
./pkg/obcs/obcs_external_fields_load.F |
707 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
_RL fld (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
720 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/seaice/advect.F |
106 |
ADVECT |
fld(I,J,bi,bj)=fldNm1(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
fld(I,J,bi,bj)=fldNm1(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
151 |
ADVECT |
CALL EXCH_XY_RL( fld, myThid ) |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
fld(I,J,bi,bj)=(fld(I,J,bi,bj)+tmpFld(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
30 |
ADVECT |
_RL fld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/advect.F |
53 |
ADVECT |
fldNm1(i,j,bi,bj) = fld(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
78 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UI,VI,fld,fldNm1,iceMsk,myThid ) |
|
./pkg/seaice/diffus.F |
115 |
DIFFUS |
fld(I,J,bi,bj)=iceFld(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
24 |
DIFFUS |
_RL fld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/diffus.F |
61 |
DIFFUS |
& (fld(I+1,J,bi,bj)-fld(I, J,bi,bj)) |
|
./pkg/seaice/diffus.F |
63 |
DIFFUS |
& -(fld(I, J,bi,bj)-fld(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
66 |
DIFFUS |
& (fld(I,J+1,bi,bj)-fld(I,J, bi,bj)) |
|
./pkg/seaice/diffus.F |
68 |
DIFFUS |
& -(fld(I,J, bi,bj)-fld(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( fld, DIFFA, iceMsk, DELTT, myThid ) |
|
./pkg/seaice/diffus.F |
84 |
DIFFUS |
& * (fld(I,J,bi,bj)-fld(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
88 |
DIFFUS |
& * (fld(I,J,bi,bj)-fld(I,J-1,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 |
1058 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
1111 |
PRINT_MAPRL |
SUBROUTINE PRINT_MAPRL ( fld, fldTitle, plotMode, |
|
./eesupp/src/print.F |
1171 |
PRINT_MAPRL |
_RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
1247 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1250 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1490 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1494 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
279 |
PRINT_LIST_I |
SUBROUTINE PRINT_LIST_I( fld, iFirst, iLast, index_type, |
|
./eesupp/src/print.F |
315 |
PRINT_LIST_I |
INTEGER fld(iFirst:iLast) |
|
./eesupp/src/print.F |
365 |
PRINT_LIST_I |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
367 |
PRINT_LIST_I |
xNew = fld(K ) |
|
./eesupp/src/print.F |
412 |
PRINT_LIST_L |
SUBROUTINE PRINT_LIST_L( fld, iFirst, iLast, index_type, |
|
./eesupp/src/print.F |
448 |
PRINT_LIST_L |
LOGICAL fld(iFirst:iLast) |
|
./eesupp/src/print.F |
498 |
PRINT_LIST_L |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
500 |
PRINT_LIST_L |
xNew = fld(K ) |
|
./eesupp/src/print.F |
545 |
PRINT_LIST_RL |
SUBROUTINE PRINT_LIST_RL( fld, iFirst, iLast, index_type, |
|
./eesupp/src/print.F |
581 |
PRINT_LIST_RL |
_RL fld(iFirst:iLast) |
|
./eesupp/src/print.F |
631 |
PRINT_LIST_RL |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
633 |
PRINT_LIST_RL |
xNew = fld(K ) |
|
./eesupp/src/print.F |
678 |
PRINT_MAPRS |
SUBROUTINE PRINT_MAPRS ( fld, fldTitle, plotMode, |
|
./eesupp/src/print.F |
738 |
PRINT_MAPRS |
_RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
814 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
815 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
818 |
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_smooth.F |
23 |
CTRL_SMOOTH |
_RL fld( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ,nSx,nSy) |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
68 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
69 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_smooth.F |
73 |
CTRL_SMOOTH |
fld_tmp(i,j) = fld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_smooth.F |
7 |
CTRL_SMOOTH |
U fld ,mask) |
|
./pkg/ctrl/ctrl_smooth.F |
81 |
CTRL_SMOOTH |
fld(i,j,bi,bj) = fld_tmp(i,j) |
|
./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 |
121 |
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 |
92 |
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, |