| File |
Line number |
Procedure |
Code |
|
./pkg/rw/write_fld_xyz_rs.F |
16 |
WRITE_FLD_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/write_fld_xyz_rs.F |
48 |
WRITE_FLD_XYZ_RS |
& fType, nNz, field, irec, myIter, myThid ) |
|
./pkg/rw/write_fld_xyz_rs.F |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xy_rl.F |
16 |
WRITE_FLD_XY_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/rw/write_fld_xy_rl.F |
48 |
WRITE_FLD_XY_RL |
& fType, nNz, field, irec, myIter, myThid ) |
|
./pkg/rw/write_fld_xy_rl.F |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rl.F |
16 |
READ_FLD_XY_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/rw/read_fld_xy_rl.F |
45 |
READ_FLD_XY_RL |
& nNz, field, irec, myThid ) |
|
./pkg/rw/read_fld_xy_rl.F |
6 |
READ_FLD_XY_RL |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rs.F |
16 |
READ_FLD_XY_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/rw/read_fld_xy_rs.F |
45 |
READ_FLD_XY_RS |
& nNz, field, irec, myThid ) |
|
./pkg/rw/read_fld_xy_rs.F |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xy_rs.F |
16 |
WRITE_FLD_XY_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/rw/write_fld_xy_rs.F |
48 |
WRITE_FLD_XY_RS |
& fType, nNz, field, irec, myIter, myThid ) |
|
./pkg/rw/write_fld_xy_rs.F |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_local_rs.F |
18 |
WRITE_LOCAL_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nNr) |
|
./pkg/rw/write_local_rs.F |
52 |
WRITE_LOCAL_RS |
& fType, nNr, field, bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rs.F |
7 |
WRITE_LOCAL_RS |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rs.F |
16 |
READ_FLD_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/read_fld_xyz_rs.F |
45 |
READ_FLD_XYZ_RS |
& nNz, field, irec, myThid ) |
|
./pkg/rw/read_fld_xyz_rs.F |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_local_rl.F |
18 |
WRITE_LOCAL_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nNr) |
|
./pkg/rw/write_local_rl.F |
57 |
WRITE_LOCAL_RL |
& fType, nNr, field, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
61 |
WRITE_LOCAL_RL |
& fType, nNr, field, bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
7 |
WRITE_LOCAL_RL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rl.F |
16 |
READ_FLD_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/read_fld_xyz_rl.F |
45 |
READ_FLD_XYZ_RL |
& nNz, field, irec, myThid ) |
|
./pkg/rw/read_fld_xyz_rl.F |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xyz_rl.F |
16 |
WRITE_FLD_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/write_fld_xyz_rl.F |
48 |
WRITE_FLD_XYZ_RL |
& fType, nNz, field, irec, myIter, myThid ) |
|
./pkg/rw/write_fld_xyz_rl.F |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
34 |
ZONAL_FILT_POSTSMOOTH |
Real*8 field(lField) |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
49 |
ZONAL_FILT_POSTSMOOTH |
field(I) = field(I) + avgField |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
51 |
ZONAL_FILT_POSTSMOOTH |
field(I) = 0. |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
8 |
ZONAL_FILT_POSTSMOOTH |
U field, |
|
./pkg/zonal_filt/zonal_filter.F |
35 |
ZONAL_FILTER |
Real*8 field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filter.F |
55 |
ZONAL_FILTER |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filter.F |
7 |
ZONAL_FILTER |
U field, fieldMask, |
|
./pkg/zonal_filt/zonal_filter.F |
91 |
ZONAL_FILTER |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filter.F |
94 |
ZONAL_FILTER |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filter.F |
97 |
ZONAL_FILTER |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
107 |
ZONAL_FILT_PRESMOOTH |
avgField = avgField+field(I) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
130 |
ZONAL_FILT_PRESMOOTH |
field(I) = field(I)-avgField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
186 |
ZONAL_FILT_PRESMOOTH |
field(I) = field(iLo) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
187 |
ZONAL_FILT_PRESMOOTH |
& +(field(iHi)-field(iLo))*frac |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
40 |
ZONAL_FILT_PRESMOOTH |
Real*8 field(lField) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
8 |
ZONAL_FILT_PRESMOOTH |
U field, |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
34 |
ZONAL_FILT_NOFILL |
Real*8 field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
77 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
7 |
ZONAL_FILT_NOFILL |
U field, |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
83 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./model/src/read_write_rec.F |
115 |
READ_REC_XY_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./model/src/read_write_rec.F |
140 |
READ_REC_XY_RL |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
148 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
165 |
READ_REC_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
191 |
READ_REC_XYZ_RS |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
199 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
216 |
READ_REC_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
242 |
READ_REC_XYZ_RL |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
250 |
READ_REC_XZ_RS |
SUBROUTINE READ_REC_XZ_RS( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
266 |
READ_REC_XZ_RS |
_RS field(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
291 |
READ_REC_XZ_RS |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
299 |
READ_REC_XZ_RL |
SUBROUTINE READ_REC_XZ_RL( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
316 |
READ_REC_XZ_RL |
_RL field(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
341 |
READ_REC_XZ_RL |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
349 |
READ_REC_YZ_RS |
SUBROUTINE READ_REC_YZ_RS( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
366 |
READ_REC_YZ_RS |
_RS field(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
392 |
READ_REC_YZ_RS |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
400 |
READ_REC_YZ_RL |
SUBROUTINE READ_REC_YZ_RL( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
417 |
READ_REC_YZ_RL |
_RL field(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
443 |
READ_REC_YZ_RL |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
451 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
468 |
WRITE_REC_XY_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./model/src/read_write_rec.F |
498 |
WRITE_REC_XY_RS |
& fType, nNz, field, irec, myIter, myThid ) |
|
./model/src/read_write_rec.F |
506 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
523 |
WRITE_REC_XY_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./model/src/read_write_rec.F |
52 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
553 |
WRITE_REC_XY_RL |
& fType, nNz, field, irec, myIter, myThid ) |
|
./model/src/read_write_rec.F |
561 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
578 |
WRITE_REC_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
608 |
WRITE_REC_XYZ_RS |
& fType, nNz, field, irec, myIter, myThid ) |
|
./model/src/read_write_rec.F |
616 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid) |
|
./model/src/read_write_rec.F |
633 |
WRITE_REC_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/read_write_rec.F |
663 |
WRITE_REC_XYZ_RL |
& fType, nNz, field, irec, myIter, myThid ) |
|
./model/src/read_write_rec.F |
66 |
READ_REC_XY_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./model/src/read_write_rec.F |
90 |
READ_REC_XY_RS |
& nNz, field, irec, myThid ) |
|
./model/src/read_write_rec.F |
98 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid) |
|
./pkg/aim_v23/aim_write_local.F |
10 |
AIM_WRITE_LOCAL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/aim_v23/aim_write_local.F |
38 |
AIM_WRITE_LOCAL |
_RL field(sNx,sNy,nNr) |
|
./pkg/aim_v23/aim_write_local.F |
59 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,Katm) |
|
./pkg/aim_v23/aim_write_local.F |
67 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
147 |
DIAG_VEGTILE_FILL |
. .or.field(i,k).eq.undef)then |
|
./pkg/diagnostics/diag_vegtile_fill.F |
151 |
DIAG_VEGTILE_FILL |
. field(i,k)*chfr(i) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
159 |
DIAG_VEGTILE_FILL |
. field(i,k)*chfr(i) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
56 |
DIAG_VEGTILE_FILL |
_RL field(ib,nlevs), chfr(ib) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
9 |
DIAG_VEGTILE_FILL |
SUBROUTINE DIAG_VEGTILE_FILL (field,indx,chfr,ib,numpts,npeice, |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
10 |
SHAP_FILT_TRACER_S2G |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
133 |
SHAP_FILT_TRACER_S2G |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
143 |
SHAP_FILT_TRACER_S2G |
_EXCH_XYZ_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
145 |
SHAP_FILT_TRACER_S2G |
_EXCH_XY_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
40 |
SHAP_FILT_TRACER_S2G |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
60 |
SHAP_FILT_TRACER_S2G |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
27 |
SHAP_FILT_TRACEROLD |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
38 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
60 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
67 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
7 |
SHAP_FILT_TRACEROLD |
U field, |
|
./pkg/shap_filt/shap_filt_tracerold.F |
91 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
97 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
10 |
SHAP_FILT_TRACER_S2 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
180 |
SHAP_FILT_TRACER_S2 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
190 |
SHAP_FILT_TRACER_S2 |
_EXCH_XYZ_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
192 |
SHAP_FILT_TRACER_S2 |
_EXCH_XY_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
41 |
SHAP_FILT_TRACER_S2 |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
67 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
10 |
SHAP_FILT_TRACER_S4 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
110 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
112 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
162 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
171 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
173 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
40 |
SHAP_FILT_TRACER_S4 |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
60 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
10 |
SHAP_FILT_TRACER_S1 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
111 |
SHAP_FILT_TRACER_S1 |
tmpScal=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
112 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
164 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
173 |
SHAP_FILT_TRACER_S1 |
_EXCH_XYZ_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
175 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_R8( field, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
40 |
SHAP_FILT_TRACER_S1 |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
61 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |