| File |
Line number |
Procedure |
Code |
|
./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.F |
37 |
MATRIX_INIT |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
89 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
90 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/obcs/obcs_calc.F |
287 |
OBCS_CALC |
& pTracer(I_obc-1,J,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
319 |
OBCS_CALC |
& pTracer(I_obc+1,J,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
351 |
OBCS_CALC |
& pTracer(I,J_obc-1,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
383 |
OBCS_CALC |
& pTracer(I,J_obc+1,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_init_variables.F |
427 |
OBCS_INIT_VARIABLES |
CALL OBCS_COPY_TRACER( pTracer(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/profiles/profiles_interp.F |
189 |
PROFILES_INTERP |
tab_coeffs1(1,1)=pTracer(prof_i,prof_j,k,bi,bj,1) !SO |
|
./pkg/profiles/profiles_interp.F |
190 |
PROFILES_INTERP |
tab_coeffs1(1,2)=pTracer(prof_i+1,prof_j,k,bi,bj,1) !SE |
|
./pkg/profiles/profiles_interp.F |
191 |
PROFILES_INTERP |
tab_coeffs1(2,1)=pTracer(prof_i,prof_j+1,k,bi,bj,1) !NO |
|
./pkg/profiles/profiles_interp.F |
192 |
PROFILES_INTERP |
tab_coeffs1(2,2)=pTracer(prof_i+1,prof_j+1,k,bi,bj,1) !NZ |
|
./pkg/profiles/profiles_interp_gg.F |
89 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj,1) |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
21 |
NO PROCEDURE |
_RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
30 |
NO PROCEDURE |
& pTracer, gPtr, gpTrNm1, surfaceForcingPTr |
|
./pkg/ptracers/ptracers_advection.F |
102 |
PTRACERS_ADVECTION |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_advection.F |
121 |
PTRACERS_ADVECTION |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_convect.F |
48 |
PTRACERS_CONVECT |
U pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_cycle.F |
49 |
PTRACERS_CYCLE |
U pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_debug.F |
45 |
PTRACERS_DEBUG |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
|
./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_dwnslp_apply.F |
59 |
PTRACERS_DWNSLP_APPLY |
I pTracer(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
67 |
PTRACERS_DWNSLP_APPLY |
I pTracer(1-Olx,1-Oly,1,1,1,iTr), |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
48 |
PTRACERS_FIELDS_BLOCKING_EXCH |
CALL EXCH_3D_RL( pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
61 |
PTRACERS_FIELDS_BLOCKING_EXCH |
CALL OBCS_COPY_TRACER( pTracer(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_implicit.F |
119 |
PTRACERS_IMPLICIT |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_init_varia.F |
107 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
54 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
93 |
PTRACERS_INIT_VARIA |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),0,myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
94 |
PTRACERS_INIT_VARIA |
_EXCH_XYZ_RL(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
145 |
PTRACERS_INTEGRATE |
I pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
219 |
PTRACERS_INTEGRATE |
I pTracer(1-Olx,1-Oly,1,1,1,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 |
170 |
PTRACERS_READ_PICKUP |
O pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
172 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
203 |
PTRACERS_READ_PICKUP |
O pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
209 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
222 |
PTRACERS_READ_PICKUP |
O pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
224 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
82 |
PTRACERS_READ_PICKUP |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_read_pickup.F |
83 |
PTRACERS_READ_PICKUP |
CALL EXCH_3D_RL( pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./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 |
113 |
PTRACERS_WRITE_STATE |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
75 |
PTRACERS_WRITE_STATE |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
50 |
PTRACERS_ZONAL_FILT_APPLY |
U pTracer(1-Olx,1-Oly,1,bi,bj,iTr), |
|
./pkg/rbcs/rbcs_add_tendency.F |
86 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./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) ) |
|
./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 |
152 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
154 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |