| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_forcing_sep.F |
215 |
GCHEM_FORCING_SEP |
DO iTr = 1,PTRACERS_numInUse |
|
./pkg/gchem/gchem_forcing_sep.F |
217 |
GCHEM_FORCING_SEP |
I bi, bj, 0, iTr, |
|
./pkg/gchem/gchem_forcing_sep.F |
218 |
GCHEM_FORCING_SEP |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_forcing_sep.F |
59 |
GCHEM_FORCING_SEP |
INTEGER iTr |
|
./pkg/gchem/gchem_forcing_sep.F |
68 |
GCHEM_FORCING_SEP |
DO iTr = 1,PTRACERS_numInUse |
|
./pkg/gchem/gchem_forcing_sep.F |
70 |
GCHEM_FORCING_SEP |
WRITE(diagName,'(A5,A2)') 'GC_Tr', PTRACERS_ioLabel(iTr) |
|
./pkg/gchem/gchem_forcing_sep.F |
71 |
GCHEM_FORCING_SEP |
CALL DIAGNOSTICS_FILL( pTracer(1-OLx,1-OLy,1,1,1,iTr), diagName, |
|
./pkg/gmredi/gmredi_check.F |
299 |
GMREDI_CHECK |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/gmredi/gmredi_check.F |
300 |
GMREDI_CHECK |
IF ( .NOT.PTRACERS_useGMRedi(iTr) ) THEN |
|
./pkg/gmredi/gmredi_check.F |
303 |
GMREDI_CHECK |
& ' pTracers_useGMRedi(',iTr,' )=', PTRACERS_useGMRedi(iTr) |
|
./pkg/gmredi/gmredi_check.F |
50 |
GMREDI_CHECK |
INTEGER iTr |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
45 |
KPP_CALC_DIFF_PTR |
INTEGER iTr |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
67 |
KPP_CALC_DIFF_PTR |
& - diffKrNrS(k) + PTRACERS_diffKrNr(k,iTr) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
84 |
KPP_CALC_DIFF_PTR |
& - diffKrNrS(kArg) + PTRACERS_diffKrNr(kArg,iTr) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
9 |
KPP_CALC_DIFF_PTR |
I iTr, myThid ) |
|
./model/src/calc_3d_diffusivity.F |
139 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
147 |
CALC_3D_DIFFUSIVITY |
& + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
178 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
182 |
CALC_3D_DIFFUSIVITY |
I iTr, myThid ) |
|
./model/src/calc_3d_diffusivity.F |
74 |
CALC_3D_DIFFUSIVITY |
INTEGER iTr |
|
./pkg/obcs/obcs_fields_load.F |
277 |
OBCS_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_fields_load.F |
280 |
OBCS_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
281 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
282 |
OBCS_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
283 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
284 |
OBCS_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
289 |
OBCS_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
290 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
291 |
OBCS_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
292 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
293 |
OBCS_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
298 |
OBCS_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
299 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
300 |
OBCS_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
301 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
302 |
OBCS_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
307 |
OBCS_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
308 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
309 |
OBCS_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
310 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
311 |
OBCS_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
462 |
OBCS_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_fields_load.F |
465 |
OBCS_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
466 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
467 |
OBCS_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
472 |
OBCS_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
473 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
474 |
OBCS_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
479 |
OBCS_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
480 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
481 |
OBCS_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
486 |
OBCS_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
487 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
488 |
OBCS_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
613 |
OBCS_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_fields_load.F |
615 |
OBCS_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
617 |
OBCS_FIELDS_LOAD |
O OBEptr (1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
618 |
OBCS_FIELDS_LOAD |
I OBEptr0(1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
619 |
OBCS_FIELDS_LOAD |
I OBEptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
622 |
OBCS_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
624 |
OBCS_FIELDS_LOAD |
O OBWptr (1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
625 |
OBCS_FIELDS_LOAD |
I OBWptr0(1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
626 |
OBCS_FIELDS_LOAD |
I OBWptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
629 |
OBCS_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
631 |
OBCS_FIELDS_LOAD |
O OBNptr (1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
632 |
OBCS_FIELDS_LOAD |
I OBNptr0(1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
633 |
OBCS_FIELDS_LOAD |
I OBNptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
636 |
OBCS_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
638 |
OBCS_FIELDS_LOAD |
O OBSptr (1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
639 |
OBCS_FIELDS_LOAD |
I OBSptr0(1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
640 |
OBCS_FIELDS_LOAD |
I OBSptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
93 |
OBCS_FIELDS_LOAD |
INTEGER iTr |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
68 |
OBCS_U1_ADV_TRACER |
INTEGER iTr |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
79 |
OBCS_U1_ADV_TRACER |
iTr = trIdentity - GAD_TR1 + 1 |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
80 |
OBCS_U1_ADV_TRACER |
updateAdvFlx = OBCS_u1_adv_Tr(iTr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
63 |
PTRACERS_CALC_WSURF_TR |
& *ptracer(i,j,ks,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
73 |
PTRACERS_CALC_WSURF_TR |
totSurfCorPTr(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
74 |
PTRACERS_CALC_WSURF_TR |
CALL GLOBAL_SUM_TILE_RL( wT_Tile(1,1,itr), totSurfCorPTr(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_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 |
39 |
PTRACERS_ZONAL_FILT_APPLY |
INTEGER iTr |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
42 |
PTRACERS_ZONAL_FILT_APPLY |
DO iTr = 1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
43 |
PTRACERS_ZONAL_FILT_APPLY |
IF ( PTRACERS_StepFwd(iTr) ) THEN |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
48 |
PTRACERS_ZONAL_FILT_APPLY |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/seaice/seaice_advdiff.F |
400 |
SEAICE_ADVDIFF |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_advdiff.F |
401 |
SEAICE_ADVDIFF |
IF ( (SEAICEadvHEFF.AND.(SItrMate(iTr).EQ.'HEFF')).OR. |
|
./pkg/seaice/seaice_advdiff.F |
402 |
SEAICE_ADVDIFF |
& (SEAICEadvAREA.AND.(SItrMate(iTr).EQ.'AREA')) ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
404 |
SEAICE_ADVDIFF |
IF (SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_advdiff.F |
410 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
420 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
429 |
SEAICE_ADVDIFF |
SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
432 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
438 |
SEAICE_ADVDIFF |
I GAD_SITR+iTr-1, SEAICEadvSchSItr, |
|
./pkg/seaice/seaice_advdiff.F |
447 |
SEAICE_ADVDIFF |
I GAD_SITR+iTr-1, SEAICEdiffKhSItr, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
461 |
SEAICE_ADVDIFF |
IF (SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_advdiff.F |
465 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
466 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
469 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
477 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
478 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
479 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
484 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
485 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
486 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
490 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
492 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
493 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
494 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5)= tmpscal1-diagArray(I,J,2+(iTr-1)*5) |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
505 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
507 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
509 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
514 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
515 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
519 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
520 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
523 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
524 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5)= - diagArray(I,J,2+(iTr-1)*5) |
|
./pkg/seaice/seaice_advdiff.F |
525 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
526 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
79 |
SEAICE_ADVDIFF |
INTEGER iTr, SEAICEadvSchSItr |
|
./pkg/seaice/seaice_diagnostics_init.F |
137 |
SEAICE_DIAGNOSTICS_INIT |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_diagnostics_init.F |
140 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(locNameTr,'(A,I4.4,A)') 'sea ice tracer no. ',iTr |
|
./pkg/seaice/seaice_diagnostics_init.F |
141 |
SEAICE_DIAGNOSTICS_INIT |
if (SItrMate(iTr).EQ.'HEFF') then |
|
./pkg/seaice/seaice_diagnostics_init.F |
151 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrUnit(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
154 |
SEAICE_DIAGNOSTICS_INIT |
locUnitTr = SItrUnit(iTr)(1:ilnb) |
|
./pkg/seaice/seaice_diagnostics_init.F |
156 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrNameLong(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
159 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(locNameTr,'(A)') SItrNameLong(iTr)(1:ilnb) |
|
./pkg/seaice/seaice_diagnostics_init.F |
161 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrName(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
164 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(locNameTr,'(2A)') SItrName(iTr)(1:ilnb),' tracer' |
|
./pkg/seaice/seaice_diagnostics_init.F |
169 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,' ' |
|
./pkg/seaice/seaice_diagnostics_init.F |
171 |
SEAICE_DIAGNOSTICS_INIT |
& ' (associated with ',SItrMate(iTr),')' |
|
./pkg/seaice/seaice_diagnostics_init.F |
177 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,'PT' |
|
./pkg/seaice/seaice_diagnostics_init.F |
178 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(A4,I2.2,2A)') 'SItr',iTr, |
|
./pkg/seaice/seaice_diagnostics_init.F |
385 |
SEAICE_DIAGNOSTICS_INIT |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_diagnostics_init.F |
386 |
SEAICE_DIAGNOSTICS_INIT |
IF (SItrMate(iTr).EQ.'HEFF') then |
|
./pkg/seaice/seaice_diagnostics_init.F |
390 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrUnit(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
392 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagUnits,'(2A)') SItrUnit(iTr)(1:ilnb),'.kg/m^2/s' |
|
./pkg/seaice/seaice_diagnostics_init.F |
395 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,'Fx' |
|
./pkg/seaice/seaice_diagnostics_init.F |
396 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(A4,I2.2,A)') 'SItr',iTr, |
|
./pkg/seaice/seaice_diagnostics_init.F |
59 |
SEAICE_DIAGNOSTICS_INIT |
INTEGER iTr, ilnb, numMateTr, numMateTrPreTh |
|
./pkg/seaice/seaice_growth.F |
145 |
SEAICE_GROWTH |
INTEGER iTr |
|
./pkg/seaice/seaice_growth.F |
398 |
SEAICE_GROWTH |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_growth.F |
399 |
SEAICE_GROWTH |
if (SItrName(iTr).EQ.'grease') iTrGrease=iTr |
|
./pkg/seaice/seaice_growth.F |
533 |
SEAICE_GROWTH |
DO iTr=2,5 |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,iTr)=ZERO |
|
./pkg/seaice/seaice_growth.F |
555 |
SEAICE_GROWTH |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_growth.F |
556 |
SEAICE_GROWTH |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,'PT' |
|
./pkg/seaice/seaice_growth.F |
557 |
SEAICE_GROWTH |
IF (SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_growth.F |
559 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
563 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
319 |
SEAICE_INIT_VARIA |
DO iTr = 1, SItrMaxNum |
|
./pkg/seaice/seaice_init_varia.F |
320 |
SEAICE_INIT_VARIA |
SItracer(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
321 |
SEAICE_INIT_VARIA |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
323 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
48 |
SEAICE_INIT_VARIA |
INTEGER iTr, jTh |
|
./pkg/seaice/seaice_init_varia.F |
606 |
SEAICE_INIT_VARIA |
DO iTr = 1, SItrMaxNum |
|
./pkg/seaice/seaice_init_varia.F |
607 |
SEAICE_INIT_VARIA |
IF ( SItrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_init_varia.F |
608 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( siTrFile(iTr), ' ', |
|
./pkg/seaice/seaice_init_varia.F |
609 |
SEAICE_INIT_VARIA |
& SItracer(1-OLx,1-OLy,1,1,iTr), 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
610 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(SItracer(1-OLx,1-OLy,1,1,iTr),myThid) |
|
./pkg/seaice/seaice_model.F |
229 |
SEAICE_MODEL |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_model.F |
230 |
SEAICE_MODEL |
_EXCH_XY_RL( SItracer(1-OLx,1-OLy,1,1,iTr),myThid ) |
|
./pkg/seaice/seaice_model.F |
63 |
SEAICE_MODEL |
INTEGER iTr |
|
./pkg/seaice/seaice_model.F |
91 |
SEAICE_MODEL |
DO iTr = 1, SItrMaxNum |
|
./pkg/seaice/seaice_model.F |
92 |
SEAICE_MODEL |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
108 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
110 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
112 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
113 |
SEAICE_TRACER_PHYS |
& +meltPart*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
120 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
124 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
127 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = HEFFpost*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
128 |
SEAICE_TRACER_PHYS |
& +SItrBucket(i,j,bi,bj,iTr)-DIAGarray(I,J,5+(iTr-1)*5) |
|
./pkg/seaice/seaice_tracer_phys.F |
150 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*expandFact |
|
./pkg/seaice/seaice_tracer_phys.F |
157 |
SEAICE_TRACER_PHYS |
if (SItrName(iTr).EQ.'age') then |
|
./pkg/seaice/seaice_tracer_phys.F |
161 |
SEAICE_TRACER_PHYS |
if (( (SItrHEFF(i,j,bi,bj,5).GT.0. _d 0).AND.(SItrMate(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
163 |
SEAICE_TRACER_PHYS |
& (SItrMate(iTr).EQ.'AREA') )) then |
|
./pkg/seaice/seaice_tracer_phys.F |
164 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)= |
|
./pkg/seaice/seaice_tracer_phys.F |
165 |
SEAICE_TRACER_PHYS |
& SItracer(i,j,bi,bj,iTr)+SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_tracer_phys.F |
167 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
171 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'salinity') then |
|
./pkg/seaice/seaice_tracer_phys.F |
173 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'one') then |
|
./pkg/seaice/seaice_tracer_phys.F |
175 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'ridge') then |
|
./pkg/seaice/seaice_tracer_phys.F |
180 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)+ |
|
./pkg/seaice/seaice_tracer_phys.F |
187 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1 |
|
./pkg/seaice/seaice_tracer_phys.F |
194 |
SEAICE_TRACER_PHYS |
IF ( useDiagnostics .AND. SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_tracer_phys.F |
195 |
SEAICE_TRACER_PHYS |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,'Fx' |
|
./pkg/seaice/seaice_tracer_phys.F |
197 |
SEAICE_TRACER_PHYS |
CALL DIAGNOSTICS_SCALE_FILL(SItrBucket(1-OLx,1-OLy,bi,bj,iTr), |
|
./pkg/seaice/seaice_tracer_phys.F |
202 |
SEAICE_TRACER_PHYS |
if ( (SItrName(iTr).EQ.'salinity').AND. |
|
./pkg/seaice/seaice_tracer_phys.F |
207 |
SEAICE_TRACER_PHYS |
saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
222 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,4+(iTr-1)*5) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
227 |
SEAICE_TRACER_PHYS |
if (SItrName(iTr).NE.'grease') |
|
./pkg/seaice/seaice_tracer_phys.F |
228 |
SEAICE_TRACER_PHYS |
& SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
237 |
SEAICE_TRACER_PHYS |
if (SItrMate(iTr).EQ.'HEFF') then |
|
./pkg/seaice/seaice_tracer_phys.F |
241 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
242 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
244 |
SEAICE_TRACER_PHYS |
if (SItrName(iTr).EQ.'salinity') then |
|
./pkg/seaice/seaice_tracer_phys.F |
245 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
246 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'one') then |
|
./pkg/seaice/seaice_tracer_phys.F |
247 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
257 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
258 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*AREApost |
|
./pkg/seaice/seaice_tracer_phys.F |
42 |
SEAICE_TRACER_PHYS |
INTEGER iTr, jTh, I, J, bi, bj, ks |
|
./pkg/seaice/seaice_tracer_phys.F |
62 |
SEAICE_TRACER_PHYS |
DO iTr=1,SItrNumInUse |
|
./pkg/seaice/seaice_tracer_phys.F |
68 |
SEAICE_TRACER_PHYS |
SItrFromOcean(i,j)=SItrFromOcean0(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
69 |
SEAICE_TRACER_PHYS |
SItrFromFlood(i,j)=SItrFromFlood0(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
70 |
SEAICE_TRACER_PHYS |
SItrExpand(i,j)=SItrExpand0(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
74 |
SEAICE_TRACER_PHYS |
if ( (SItrName(iTr).EQ.'salinity').AND. |
|
./pkg/seaice/seaice_tracer_phys.F |
75 |
SEAICE_TRACER_PHYS |
& (SItrFromOceanFrac(iTr).GT.ZERO) ) then |
|
./pkg/seaice/seaice_tracer_phys.F |
78 |
SEAICE_TRACER_PHYS |
SItrFromOcean(i,j)=SItrFromOceanFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
79 |
SEAICE_TRACER_PHYS |
SItrFromFlood(i,j)=SItrFromFloodFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
85 |
SEAICE_TRACER_PHYS |
if (SItrMate(iTr).EQ.'HEFF') then |
|
./pkg/seaice/seaice_tracer_phys.F |
90 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = |
|
./pkg/seaice/seaice_tracer_phys.F |
91 |
SEAICE_TRACER_PHYS |
& HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr) |