| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
273 |
ECCO_PHYS |
tmpfld=pTracer(i,j,k,bi,bj,itr) |
|
./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 |
115 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_forcing_sep.F |
105 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,1,1,1), gsm_dic, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
108 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,1,1,2), gsm_alk, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
121 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,1,1,iDIC), gsm_dic, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
124 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,1,1,iALK), gsm_alk, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
155 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
156 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
157 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
158 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
159 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
160 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
165 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
166 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
167 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
168 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
169 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
173 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
174 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
175 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
176 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
190 |
GCHEM_FORCING_SEP |
CALL BLING_MAIN( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
191 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
192 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
193 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
194 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
195 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
196 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/gchem/gchem_forcing_sep.F |
197 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/gchem/gchem_forcing_sep.F |
199 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/gchem/gchem_forcing_sep.F |
214 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
217 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
220 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
223 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
233 |
GCHEM_FORCING_SEP |
CALL DARWIN_FORCING( pTracer(1-OLx,1-OLy,1,1,1,1), |
|
./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 |
83 |
GCHEM_FORCING_SEP |
CALL DIAGNOSTICS_FILL( pTracer(1-OLx,1-OLy,1,1,1,iTr), diagName, |
|
./pkg/longstep/longstep_forcing_surf.F |
121 |
LONGSTEP_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/longstep/longstep_forcing_surf.F |
88 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/matrix/matrix_init_varia.F |
42 |
MATRIX_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
110 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
111 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/obcs/obcs_calc.F |
288 |
OBCS_CALC |
& pTracer(I_obc-1,j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
320 |
OBCS_CALC |
& pTracer(I_obc+1,j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
352 |
OBCS_CALC |
& pTracer(i,J_obc-1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
384 |
OBCS_CALC |
& pTracer(i,J_obc+1,k,bi,bj,iTracer) |
|
./pkg/profiles/profiles_interp.F |
91 |
PROFILES_INTERP |
tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj, |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
20 |
NO PROCEDURE |
_RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
27 |
NO PROCEDURE |
& pTracer, gpTrNm1, surfaceForcingPTr |
|
./pkg/ptracers/ptracers_convect.F |
77 |
PTRACERS_CONVECT |
U pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_debug.F |
44 |
PTRACERS_DEBUG |
CALL DEBUG_STATS_RL( Nr, pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./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 |
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 |
70 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( pTracer(1-Olx,1-Oly,1,1,1,iTr), diagName, |
|
./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_fields_blocking_exch.F |
50 |
PTRACERS_FIELDS_BLOCKING_EXCH |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_forcing_surf.F |
134 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
165 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_init_varia.F |
104 |
PTRACERS_INIT_VARIA |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),0,myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
105 |
PTRACERS_INIT_VARIA |
_EXCH_XYZ_RL(pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
118 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
65 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_integrate.F |
197 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
243 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
260 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
321 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
396 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
403 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
414 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
446 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
465 |
PTRACERS_INTEGRATE |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
472 |
PTRACERS_INTEGRATE |
O pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
481 |
PTRACERS_INTEGRATE |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_monitor.F |
115 |
PTRACERS_MONITOR |
& Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff, |
|
./pkg/ptracers/ptracers_read_pickup.F |
178 |
PTRACERS_READ_PICKUP |
O pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
180 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
211 |
PTRACERS_READ_PICKUP |
O pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
217 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
230 |
PTRACERS_READ_PICKUP |
O pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
232 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
85 |
PTRACERS_READ_PICKUP |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_read_pickup.F |
86 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_reset.F |
75 |
PTRACERS_RESET |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_reset.F |
88 |
PTRACERS_RESET |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),0,myThid) |
|
./pkg/ptracers/ptracers_reset.F |
89 |
PTRACERS_RESET |
_EXCH_XYZ_RL(pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_reset.F |
99 |
PTRACERS_RESET |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_timeave.F |
83 |
PTRACERS_TIMEAVE |
& pTracer(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_write_pickup.F |
103 |
PTRACERS_WRITE_PICKUP |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
137 |
PTRACERS_WRITE_PICKUP |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_write_state.F |
120 |
PTRACERS_WRITE_STATE |
& pTracer(:,:,:,:,:,iTracer)v,iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
123 |
PTRACERS_WRITE_STATE |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
76 |
PTRACERS_WRITE_STATE |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./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_add_tendency.F |
126 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
159 |
CTRL_MAP_INI_GENARR |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iarr), |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
137 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
168 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
156 |
CTRL_MAP_INI_GENARR |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iarr), |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
153 |
CTRL_MAP_INI_GENARR |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iarr), |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ctrl/ctrl_map_ini.F |
572 |
CTRL_MAP_INI |
_EXCH_XYZ_RL(pTracer(1-Olx,1-Oly,1,1,1,1),myThid) |
|
./pkg/dic/dic_atmos.F |
115 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
117 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_ini_atmos.F |
112 |
DIC_INI_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_ini_atmos.F |
114 |
DIC_INI_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/ecco/cost_gencost_customize.F |
230 |
COST_GENCOST_CUSTOMIZE |
& pTracer(i,j,k2,bi,bj,itr)*maskC(i,j,k2,bi,bj) |