| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
104 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A,I2.2,A)') 'VTRAC',iTrc,' ' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
112 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A,I2.2,A)') 'WTRAC',iTrc,' ' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
123 |
PTRACERS_DIAGNOSTICS_INIT |
tracerId = iTrc + GAD_TR1 - 1 |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
41 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, tracerId |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
64 |
PTRACERS_DIAGNOSTICS_INIT |
DO iTrc=1,MIN(99,PTRACERS_num) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
67 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A,I2,A)') 'Tracer ',iTrc |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
70 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
73 |
PTRACERS_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
75 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_long_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
78 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_long_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
80 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
83 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
89 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A,I2.2,A)') 'TRAC',iTrc,' ' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
96 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A,I2.2,A)') 'UTRAC',iTrc,' ' |
|
./pkg/ptracers/ptracers_forcing_surf.F |
48 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./pkg/ptracers/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_forcing_surf.F |
61 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_forcing_surf.F |
78 |
PTRACERS_FORCING_SURF |
IF (PtRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
81 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
& surfaceForcingPtr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
84 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
48 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
61 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
78 |
PTRACERS_FORCING_SURF |
IF (PtRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
81 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
& surfaceForcingPtr(i,j,bi,bj,iTrc) |
|
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F |
84 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
48 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
61 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
78 |
PTRACERS_FORCING_SURF |
IF (PtRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
81 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
& surfaceForcingPtr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
84 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
48 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
61 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
78 |
PTRACERS_FORCING_SURF |
IF (PtRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
81 |
PTRACERS_FORCING_SURF |
surfaceForcingPtr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
& surfaceForcingPtr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
84 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |