| File |
Line number |
Procedure |
Code |
|
./pkg/longstep/longstep_forcing_surf.F |
108 |
LONGSTEP_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/longstep/longstep_forcing_surf.F |
110 |
LONGSTEP_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
118 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
119 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./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 |
132 |
LONGSTEP_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/longstep/longstep_forcing_surf.F |
134 |
LONGSTEP_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
142 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
143 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
145 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/longstep/longstep_forcing_surf.F |
50 |
LONGSTEP_FORCING_SURF |
INTEGER iTrc, ks |
|
./pkg/longstep/longstep_forcing_surf.F |
60 |
LONGSTEP_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/longstep/longstep_forcing_surf.F |
63 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
74 |
LONGSTEP_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/longstep/longstep_forcing_surf.F |
82 |
LONGSTEP_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
85 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
86 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
88 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
107 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'VTRAC',PTRACERS_ioLabel(iTrc),' ' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
116 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'WTRAC',PTRACERS_ioLabel(iTrc),' ' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
127 |
PTRACERS_DIAGNOSTICS_INIT |
tracerId = iTrc + GAD_TR1 - 1 |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
43 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, tracerId |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
66 |
PTRACERS_DIAGNOSTICS_INIT |
DO iTrc=1,PTRACERS_num |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
69 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A,I4,A)') 'Tracer ',iTrc |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
72 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
75 |
PTRACERS_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
77 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_long_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
80 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_long_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
82 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
85 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
91 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,A2,A2)') 'TRAC',PTRACERS_ioLabel(iTrc),' ' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
98 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'UTRAC',PTRACERS_ioLabel(iTrc),' ' |
|
./pkg/ptracers/ptracers_forcing_surf.F |
119 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_forcing_surf.F |
125 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./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 |
151 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_forcing_surf.F |
153 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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_forcing_surf.F |
172 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_forcing_surf.F |
174 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./pkg/ptracers/ptracers_forcing_surf.F |
64 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
120 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
126 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./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 |
152 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
154 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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 |
173 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
175 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
183 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
64 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,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 |
119 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
125 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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 |
151 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
153 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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_ad/ptracers_forcing_surf.F |
172 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
174 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
64 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |