| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_check.F |
152 |
GMREDI_CHECK |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/gmredi/gmredi_check.F |
153 |
GMREDI_CHECK |
IF ( .NOT.PTRACERS_useGMRedi(iTr) ) THEN |
|
./pkg/gmredi/gmredi_check.F |
156 |
GMREDI_CHECK |
& ' pTracers_useGMRedi(',iTr,' )=', PTRACERS_useGMRedi(iTr) |
|
./pkg/gmredi/gmredi_check.F |
50 |
GMREDI_CHECK |
INTEGER iTr |
|
./model/src/calc_3d_diffusivity.F |
141 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
150 |
CALC_3D_DIFFUSIVITY |
& + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
188 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
193 |
CALC_3D_DIFFUSIVITY |
& - diffKrNrS(k) + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
74 |
CALC_3D_DIFFUSIVITY |
INTEGER iTr |
|
./pkg/obcs/obcs_external_fields_load.F |
262 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_external_fields_load.F |
265 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
266 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
267 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
268 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
269 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
274 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
275 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
276 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
277 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
278 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
283 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
284 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
285 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
286 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
287 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
292 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
293 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
294 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
295 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
296 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
441 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_external_fields_load.F |
444 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
445 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
446 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
451 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
452 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
453 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
458 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
459 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
460 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
465 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
466 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
467 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
592 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_external_fields_load.F |
594 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_external_fields_load.F |
596 |
OBCS_EXTERNAL_FIELDS_LOAD |
O OBEptr (1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
597 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBEptr0(1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
598 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBEptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
601 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_external_fields_load.F |
603 |
OBCS_EXTERNAL_FIELDS_LOAD |
O OBWptr (1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
604 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBWptr0(1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
605 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBWptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
608 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_external_fields_load.F |
610 |
OBCS_EXTERNAL_FIELDS_LOAD |
O OBNptr (1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
611 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBNptr0(1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
612 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBNptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
615 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_external_fields_load.F |
617 |
OBCS_EXTERNAL_FIELDS_LOAD |
O OBSptr (1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
618 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBSptr0(1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_external_fields_load.F |
619 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBSptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
92 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER iTr |
|
./pkg/ptracers/ptracers_calc_diff.F |
101 |
PTRACERS_CALC_DIFF |
IF ( PTRACERS_useKPP(iTr) ) THEN |
|
./pkg/ptracers/ptracers_calc_diff.F |
105 |
PTRACERS_CALC_DIFF |
O KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
111 |
PTRACERS_CALC_DIFF |
IF ( PTRACERS_useGMRedi(iTr) ) THEN |
|
./pkg/ptracers/ptracers_calc_diff.F |
114 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
123 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
132 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
141 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
151 |
PTRACERS_CALC_DIFF |
KappaRtr(i,j,iTr) = maskUp(i,j)*KappaRtr(i,j,iTr) |
|
./pkg/ptracers/ptracers_calc_diff.F |
58 |
PTRACERS_CALC_DIFF |
INTEGER i,j,iTr,trIdentity |
|
./pkg/ptracers/ptracers_calc_diff.F |
73 |
PTRACERS_CALC_DIFF |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_calc_diff.F |
75 |
PTRACERS_CALC_DIFF |
trIdentity = iTr + GAD_TR1 - 1 |
|
./pkg/ptracers/ptracers_calc_diff.F |
77 |
PTRACERS_CALC_DIFF |
IF ( .NOT. PTRACERS_useKPP(iTr) ) THEN |
|
./pkg/ptracers/ptracers_calc_diff.F |
80 |
PTRACERS_CALC_DIFF |
KappaRtr(i,j,iTr) = |
|
./pkg/ptracers/ptracers_calc_diff.F |
90 |
PTRACERS_CALC_DIFF |
& + PTRACERS_diffKrNr(k,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
107 |
PTRACERS_DIAGNOSTICS_STATE |
WRITE(diagName,'(A5,A2)') 'VTRAC',PTRACERS_ioLabel(iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
120 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
121 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
128 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
129 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
140 |
PTRACERS_DIAGNOSTICS_STATE |
WRITE(diagName,'(A5,A2)') 'WTRAC',PTRACERS_ioLabel(iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
153 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
154 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
160 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
161 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
41 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,iTr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
66 |
PTRACERS_DIAGNOSTICS_STATE |
DO iTr = 1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
69 |
PTRACERS_DIAGNOSTICS_STATE |
WRITE(diagName,'(A4,A2)') 'TRAC',PTRACERS_ioLabel(iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
70 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( pTracer(1-Olx,1-Oly,1,1,1,iTr), diagName, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
74 |
PTRACERS_DIAGNOSTICS_STATE |
WRITE(diagName,'(A5,A2)') 'UTRAC',PTRACERS_ioLabel(iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
87 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
88 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
95 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
96 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
47 |
PTRACERS_DWNSLP_APPLY |
INTEGER iTr |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
51 |
PTRACERS_DWNSLP_APPLY |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
53 |
PTRACERS_DWNSLP_APPLY |
IF ( PTRACERS_useDWNSLP(iTr) ) THEN |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
56 |
PTRACERS_DWNSLP_APPLY |
I GAD_TR1+iTr-1, bi, bj, kSurfC, |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
59 |
PTRACERS_DWNSLP_APPLY |
I pTracer(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
60 |
PTRACERS_DWNSLP_APPLY |
O gPtr(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
64 |
PTRACERS_DWNSLP_APPLY |
I GAD_TR1+iTr-1, bi, bj, kLowC, |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
67 |
PTRACERS_DWNSLP_APPLY |
I pTracer(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
68 |
PTRACERS_DWNSLP_APPLY |
O gPtr(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_timeave.F |
53 |
PTRACERS_TIMEAVE |
INTEGER iTr |
|
./pkg/ptracers/ptracers_timeave.F |
60 |
PTRACERS_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_timeave.F |
61 |
PTRACERS_TIMEAVE |
CALL TIMEAVE_RESET( ptracerFluxtave(1-Olx,1-Oly, 1,1,iTr), |
|
./pkg/ptracers/ptracers_timeave.F |
63 |
PTRACERS_TIMEAVE |
CALL TIMEAVE_RESET( ptracertave (1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_timeave.F |
81 |
PTRACERS_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_timeave.F |
82 |
PTRACERS_TIMEAVE |
CALL TIMEAVE_CUMULATE( ptracertave(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_timeave.F |
83 |
PTRACERS_TIMEAVE |
& pTracer(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_timeave.F |
93 |
PTRACERS_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_timeave.F |
94 |
PTRACERS_TIMEAVE |
CALL TIMEAVE_CUMULATE( ptracerFluxtave(1-Olx,1-Oly,1,1,iTr), |
|
./pkg/ptracers/ptracers_timeave.F |
95 |
PTRACERS_TIMEAVE |
& surfaceForcingPTr(1-Olx,1-Oly,1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
100 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave(1-OLx,1-OLy,1,1,1,iTr),myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
104 |
PTRACERS_WRITE_TIMEAVE |
ilnb = ILNBLNK(PTRACERS_names(iTr)) |
|
./pkg/ptracers/ptracers_write_timeave.F |
105 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(A,A)') 'surf_',PTRACERS_names(iTr)(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
107 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-OLx,1-OLy,1,1,iTr),myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
117 |
PTRACERS_WRITE_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_write_timeave.F |
119 |
PTRACERS_WRITE_TIMEAVE |
& iTr, '.', myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
121 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-Olx,1-Oly, 1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
124 |
PTRACERS_WRITE_TIMEAVE |
& iTr, '.', myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
126 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave (1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
45 |
PTRACERS_WRITE_TIMEAVE |
INTEGER bi, bj, iTr |
|
./pkg/ptracers/ptracers_write_timeave.F |
66 |
PTRACERS_WRITE_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_write_timeave.F |
68 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-Olx,1-Oly, 1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
71 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave (1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
98 |
PTRACERS_WRITE_TIMEAVE |
DO iTr = 1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_write_timeave.F |
99 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_RL_W(pf,'ptr_tave',0,0,PTRACERS_names(iTr), |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
42 |
PTRACERS_ZONAL_FILT_APPLY |
INTEGER iTr |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
45 |
PTRACERS_ZONAL_FILT_APPLY |
DO iTr = 1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
50 |
PTRACERS_ZONAL_FILT_APPLY |
U pTracer(1-Olx,1-Oly,1,bi,bj,iTr), |