| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_add_tendency.F |
13 |
GCHEM_ADD_TENDENCY |
I iTr, myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_add_tendency.F |
41 |
GCHEM_ADD_TENDENCY |
INTEGER k, bi, bj, iTr |
|
./pkg/gchem/gchem_add_tendency.F |
58 |
GCHEM_ADD_TENDENCY |
IF ( iTr.GT.gchem_sepFTr_num .AND. |
|
./pkg/gchem/gchem_add_tendency.F |
59 |
GCHEM_ADD_TENDENCY |
& iTr.LE.gchem_Tracer_num ) THEN |
|
./pkg/gchem/gchem_add_tendency.F |
60 |
GCHEM_ADD_TENDENCY |
jTr = iTr - gchem_sepFTr_num |
|
./pkg/gchem/gchem_calc_tendency.F |
105 |
GCHEM_CALC_TENDENCY |
iTr = CFC_pTr_i1 |
|
./pkg/gchem/gchem_calc_tendency.F |
106 |
GCHEM_CALC_TENDENCY |
jTr = iTr - gchem_sepFTr_num |
|
./pkg/gchem/gchem_calc_tendency.F |
108 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
112 |
GCHEM_CALC_TENDENCY |
iTr = CFC_pTr_i1 + 1 |
|
./pkg/gchem/gchem_calc_tendency.F |
113 |
GCHEM_CALC_TENDENCY |
jTr = iTr - gchem_sepFTr_num |
|
./pkg/gchem/gchem_calc_tendency.F |
115 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
58 |
GCHEM_CALC_TENDENCY |
INTEGER iTr, jTr |
|
./pkg/gchem/gchem_forcing_sep.F |
248 |
GCHEM_FORCING_SEP |
DO iTr = 1,gchem_sepFTr_num |
|
./pkg/gchem/gchem_forcing_sep.F |
250 |
GCHEM_FORCING_SEP |
I bi, bj, 0, iTr, |
|
./pkg/gchem/gchem_forcing_sep.F |
251 |
GCHEM_FORCING_SEP |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_forcing_sep.F |
67 |
GCHEM_FORCING_SEP |
INTEGER iTr |
|
./pkg/gchem/gchem_forcing_sep.F |
80 |
GCHEM_FORCING_SEP |
DO iTr = 1,gchem_sepFTr_num |
|
./pkg/gchem/gchem_forcing_sep.F |
82 |
GCHEM_FORCING_SEP |
WRITE(diagName,'(A5,A2)') 'GC_Tr', PTRACERS_ioLabel(iTr) |
|
./pkg/gchem/gchem_forcing_sep.F |
83 |
GCHEM_FORCING_SEP |
CALL DIAGNOSTICS_FILL( pTracer(1-OLx,1-OLy,1,1,1,iTr), diagName, |
|
./pkg/gmredi/gmredi_check.F |
286 |
GMREDI_CHECK |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/gmredi/gmredi_check.F |
287 |
GMREDI_CHECK |
IF ( .NOT.PTRACERS_useGMRedi(iTr) ) THEN |
|
./pkg/gmredi/gmredi_check.F |
290 |
GMREDI_CHECK |
& ' pTracers_useGMRedi(',iTr,' )=', PTRACERS_useGMRedi(iTr) |
|
./pkg/gmredi/gmredi_check.F |
50 |
GMREDI_CHECK |
INTEGER iTr |
|
./model/src/calc_3d_diffusivity.F |
144 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
152 |
CALC_3D_DIFFUSIVITY |
& + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
183 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
187 |
CALC_3D_DIFFUSIVITY |
I iTr, myThid ) |
|
./model/src/calc_3d_diffusivity.F |
74 |
CALC_3D_DIFFUSIVITY |
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 ) |
|
./pkg/kpp/kpp_transport_ptr.F |
119 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,iTr) |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I bi, bj, k, km1, iTr, |
|
./pkg/kpp/kpp_transport_ptr.F |
65 |
KPP_TRANSPORT_PTR |
INTEGER bi, bj, k, km1, iTr |
|
./pkg/kpp/kpp_transport_ptr.F |
92 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,iTr) |
|
./pkg/obcs/obcs_fields_load.F |
282 |
OBCS_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_fields_load.F |
285 |
OBCS_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
286 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
287 |
OBCS_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
288 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
289 |
OBCS_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
294 |
OBCS_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
295 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
296 |
OBCS_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
297 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
298 |
OBCS_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
303 |
OBCS_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
304 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
305 |
OBCS_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
306 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
307 |
OBCS_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
312 |
OBCS_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
313 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
314 |
OBCS_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
315 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
316 |
OBCS_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
469 |
OBCS_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_fields_load.F |
472 |
OBCS_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
473 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
474 |
OBCS_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
479 |
OBCS_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
480 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
481 |
OBCS_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
486 |
OBCS_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
487 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
488 |
OBCS_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
493 |
OBCS_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
494 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
495 |
OBCS_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
620 |
OBCS_FIELDS_LOAD |
DO iTr = 1, PTRACERS_numInUse |
|
./pkg/obcs/obcs_fields_load.F |
622 |
OBCS_FIELDS_LOAD |
IF ( OBEptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
624 |
OBCS_FIELDS_LOAD |
O OBEptr (1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
625 |
OBCS_FIELDS_LOAD |
I OBEptr0(1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
626 |
OBCS_FIELDS_LOAD |
I OBEptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
629 |
OBCS_FIELDS_LOAD |
IF ( OBWptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
631 |
OBCS_FIELDS_LOAD |
O OBWptr (1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
632 |
OBCS_FIELDS_LOAD |
I OBWptr0(1-Oly,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
633 |
OBCS_FIELDS_LOAD |
I OBWptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
636 |
OBCS_FIELDS_LOAD |
IF ( OBNptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
638 |
OBCS_FIELDS_LOAD |
O OBNptr (1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
639 |
OBCS_FIELDS_LOAD |
I OBNptr0(1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
640 |
OBCS_FIELDS_LOAD |
I OBNptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
643 |
OBCS_FIELDS_LOAD |
IF ( OBSptrFile(iTr) .NE. ' ' ) |
|
./pkg/obcs/obcs_fields_load.F |
645 |
OBCS_FIELDS_LOAD |
O OBSptr (1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
646 |
OBCS_FIELDS_LOAD |
I OBSptr0(1-Olx,1,1,1,iTr), |
|
./pkg/obcs/obcs_fields_load.F |
647 |
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 |
54 |
PTRACERS_CALC_WSURF_TR |
totSurfCorPTr(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
55 |
PTRACERS_CALC_WSURF_TR |
meanSurfCorPTr(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
56 |
PTRACERS_CALC_WSURF_TR |
wT_mean(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
70 |
PTRACERS_CALC_WSURF_TR |
& *ptracer(i,j,ks,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
80 |
PTRACERS_CALC_WSURF_TR |
CALL GLOBAL_SUM_TILE_RL( wT_Tile(1,1,itr), wT_Mean(iTr), |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
82 |
PTRACERS_CALC_WSURF_TR |
totSurfCorPTr(iTr) = wT_Mean(iTr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
88 |
PTRACERS_CALC_WSURF_TR |
meanSurfCorPTr(iTr) = wT_Mean(iTr) / globalArea |
|
./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 |
CALL MNC_CW_RL_W(pf,'ptr_tave',0,0,PTRACERS_names(iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
101 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave(1-OLx,1-OLy,1,1,1,iTr),myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
105 |
PTRACERS_WRITE_TIMEAVE |
ilnb = ILNBLNK(PTRACERS_names(iTr)) |
|
./pkg/ptracers/ptracers_write_timeave.F |
106 |
PTRACERS_WRITE_TIMEAVE |
WRITE(prefix,'(A,A)') 'surf_',PTRACERS_names(iTr)(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
108 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-OLx,1-OLy,1,1,iTr),myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
124 |
PTRACERS_WRITE_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_write_timeave.F |
125 |
PTRACERS_WRITE_TIMEAVE |
WRITE(prefix,'(A11,I2.2,A1)') 'PtrFluxtave', iTr, '.' |
|
./pkg/ptracers/ptracers_write_timeave.F |
127 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-OLx,1-OLy, 1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
129 |
PTRACERS_WRITE_TIMEAVE |
WRITE(prefix,'(A7, I2.2,A1)') 'PTRtave', iTr, '.' |
|
./pkg/ptracers/ptracers_write_timeave.F |
131 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave (1-OLx,1-OLy,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
46 |
PTRACERS_WRITE_TIMEAVE |
INTEGER bi, bj, iTr |
|
./pkg/ptracers/ptracers_write_timeave.F |
67 |
PTRACERS_WRITE_TIMEAVE |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_write_timeave.F |
69 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-OLx,1-OLy, 1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
72 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave (1-OLx,1-OLy,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_write_timeave.F |
99 |
PTRACERS_WRITE_TIMEAVE |
DO iTr = 1,PTRACERS_numInUse |
|
./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/rbcs/rbcs_init_fixed.F |
157 |
RBCS_INIT_FIXED |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/rbcs/rbcs_init_fixed.F |
158 |
RBCS_INIT_FIXED |
IF ( useRBCpTrNum(iTr) ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
159 |
RBCS_INIT_FIXED |
irbc = MIN(maskLEN,2+iTr) |
|
./pkg/rbcs/rbcs_init_fixed.F |
164 |
RBCS_INIT_FIXED |
& ' for pTr=', iTr |
|
./pkg/rbcs/rbcs_init_fixed.F |
169 |
RBCS_INIT_FIXED |
& ' for pTr=', iTr |
|
./pkg/rbcs/rbcs_init_fixed.F |
179 |
RBCS_INIT_FIXED |
& ' for pTr=', iTr, ' relaxation, tauRelaxPTR =', |
|
./pkg/rbcs/rbcs_init_fixed.F |
180 |
RBCS_INIT_FIXED |
& tauRelaxPTR(iTr) |
|
./pkg/rbcs/rbcs_init_fixed.F |
45 |
RBCS_INIT_FIXED |
INTEGER iTr |
|
./pkg/seaice/seaice_advdiff.F |
403 |
SEAICE_ADVDIFF |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_advdiff.F |
404 |
SEAICE_ADVDIFF |
IF ( (SEAICEadvHEFF.AND.(SItrMate(iTr).EQ.'HEFF')).OR. |
|
./pkg/seaice/seaice_advdiff.F |
405 |
SEAICE_ADVDIFF |
& (SEAICEadvAREA.AND.(SItrMate(iTr).EQ.'AREA')) ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
407 |
SEAICE_ADVDIFF |
IF (SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_advdiff.F |
413 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
423 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
432 |
SEAICE_ADVDIFF |
SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
435 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
441 |
SEAICE_ADVDIFF |
I GAD_SITR+iTr-1, SEAICEadvSchSItr, |
|
./pkg/seaice/seaice_advdiff.F |
450 |
SEAICE_ADVDIFF |
I GAD_SITR+iTr-1, SEAICEdiffKhSItr, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
464 |
SEAICE_ADVDIFF |
IF (SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
469 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
471 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
472 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
480 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
481 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
482 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
487 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
488 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
489 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
493 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
496 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
497 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5)= tmpscal1-diagArray(I,J,2+(iTr-1)*5) |
|
./pkg/seaice/seaice_advdiff.F |
498 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
508 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
510 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
512 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
517 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
518 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
522 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
523 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
526 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
527 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5)= - diagArray(I,J,2+(iTr-1)*5) |
|
./pkg/seaice/seaice_advdiff.F |
528 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
529 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
82 |
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 |
417 |
SEAICE_DIAGNOSTICS_INIT |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_diagnostics_init.F |
418 |
SEAICE_DIAGNOSTICS_INIT |
IF (SItrMate(iTr).EQ.'HEFF') then |
|
./pkg/seaice/seaice_diagnostics_init.F |
422 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrUnit(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
424 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagUnits,'(2A)') SItrUnit(iTr)(1:ilnb),'.kg/m^2/s' |
|
./pkg/seaice/seaice_diagnostics_init.F |
427 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,'Fx' |
|
./pkg/seaice/seaice_diagnostics_init.F |
428 |
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 |
150 |
SEAICE_GROWTH |
INTEGER iTr |
|
./pkg/seaice/seaice_growth.F |
416 |
SEAICE_GROWTH |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_growth.F |
417 |
SEAICE_GROWTH |
if (SItrName(iTr).EQ.'grease') iTrGrease=iTr |
|
./pkg/seaice/seaice_growth.F |
551 |
SEAICE_GROWTH |
DO iTr=2,5 |
|
./pkg/seaice/seaice_growth.F |
554 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,iTr)=ZERO |
|
./pkg/seaice/seaice_growth.F |
573 |
SEAICE_GROWTH |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_growth.F |
574 |
SEAICE_GROWTH |
WRITE(diagName,'(A4,I2.2,A2)') 'SItr',iTr,'PT' |
|
./pkg/seaice/seaice_growth.F |
575 |
SEAICE_GROWTH |
IF (SItrMate(iTr).EQ.'HEFF') THEN |
|
./pkg/seaice/seaice_growth.F |
577 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
581 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
324 |
SEAICE_INIT_VARIA |
DO iTr = 1, SItrMaxNum |
|
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
SItracer(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
326 |
SEAICE_INIT_VARIA |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
328 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
47 |
SEAICE_INIT_VARIA |
INTEGER iTr, jTh |
|
./pkg/seaice/seaice_init_varia.F |
611 |
SEAICE_INIT_VARIA |
DO iTr = 1, SItrMaxNum |
|
./pkg/seaice/seaice_init_varia.F |
612 |
SEAICE_INIT_VARIA |
IF ( SItrFile(iTr) .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_init_varia.F |
613 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( siTrFile(iTr), ' ', |
|
./pkg/seaice/seaice_init_varia.F |
614 |
SEAICE_INIT_VARIA |
& SItracer(1-OLx,1-OLy,1,1,iTr), 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
615 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(SItracer(1-OLx,1-OLy,1,1,iTr),myThid) |
|
./pkg/seaice/seaice_model.F |
236 |
SEAICE_MODEL |
DO iTr = 1, SItrNumInUse |
|
./pkg/seaice/seaice_model.F |
237 |
SEAICE_MODEL |
_EXCH_XY_RL( SItracer(1-OLx,1-OLy,1,1,iTr),myThid ) |
|
./pkg/seaice/seaice_model.F |
66 |
SEAICE_MODEL |
INTEGER iTr |
|
./pkg/seaice/seaice_model.F |
94 |
SEAICE_MODEL |
DO iTr = 1, SItrMaxNum |
|
./pkg/seaice/seaice_model.F |
95 |
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) |