File |
Line number |
Procedure |
Code |
./pkg/gchem/gchem_diagnostics_init.F |
44 |
GCHEM_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb |
./pkg/gchem/gchem_diagnostics_init.F |
51 |
GCHEM_DIAGNOSTICS_INIT |
DO iTrc=1,gchem_sepFTr_num |
./pkg/gchem/gchem_diagnostics_init.F |
53 |
GCHEM_DIAGNOSTICS_INIT |
WRITE(locName,'(A,I4.4,A)') 'Tracer ',iTrc |
./pkg/gchem/gchem_diagnostics_init.F |
56 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
./pkg/gchem/gchem_diagnostics_init.F |
59 |
GCHEM_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
./pkg/gchem/gchem_diagnostics_init.F |
61 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
./pkg/gchem/gchem_diagnostics_init.F |
64 |
GCHEM_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
./pkg/gchem/gchem_diagnostics_init.F |
68 |
GCHEM_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'GC_Tr',PTRACERS_ioLabel(iTrc),' ' |
./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 |
105 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'UTRAC',PTRACERS_ioLabel(iTrc),' ' |
./pkg/ptracers/ptracers_diagnostics_init.F |
113 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'VTRAC',PTRACERS_ioLabel(iTrc),' ' |
./pkg/ptracers/ptracers_diagnostics_init.F |
122 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A5,A2,A1)') 'WTRAC',PTRACERS_ioLabel(iTrc),' ' |
./pkg/ptracers/ptracers_diagnostics_init.F |
130 |
PTRACERS_DIAGNOSTICS_INIT |
tracerId = iTrc + GAD_TR1 - 1 |
./pkg/ptracers/ptracers_diagnostics_init.F |
50 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, ilng, tracerId |
./pkg/ptracers/ptracers_diagnostics_init.F |
69 |
PTRACERS_DIAGNOSTICS_INIT |
DO iTrc=1,PTRACERS_num |
./pkg/ptracers/ptracers_diagnostics_init.F |
73 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A,I4.4,A)') 'Tracer ',iTrc |
./pkg/ptracers/ptracers_diagnostics_init.F |
76 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
./pkg/ptracers/ptracers_diagnostics_init.F |
79 |
PTRACERS_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
./pkg/ptracers/ptracers_diagnostics_init.F |
81 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
./pkg/ptracers/ptracers_diagnostics_init.F |
84 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
./pkg/ptracers/ptracers_diagnostics_init.F |
89 |
PTRACERS_DIAGNOSTICS_INIT |
ilng = ILNBLNK(PTRACERS_long_names(iTrc)) |
./pkg/ptracers/ptracers_diagnostics_init.F |
92 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(longName,'(A)') PTRACERS_long_names(iTrc)(1:ilng) |
./pkg/ptracers/ptracers_diagnostics_init.F |
97 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,A2,A2)') 'TRAC',PTRACERS_ioLabel(iTrc),' ' |
./pkg/ptracers/ptracers_forcing_surf.F |
121 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./pkg/ptracers/ptracers_forcing_surf.F |
127 |
PTRACERS_FORCING_SURF |
IF ( PTRACERS_StepFwd(iTrc) .AND. |
./pkg/ptracers/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
& PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN |
./pkg/ptracers/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./pkg/ptracers/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
./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 |
154 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./pkg/ptracers/ptracers_forcing_surf.F |
156 |
PTRACERS_FORCING_SURF |
IF ( PTRACERS_StepFwd(iTrc) .AND. |
./pkg/ptracers/ptracers_forcing_surf.F |
157 |
PTRACERS_FORCING_SURF |
& PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN |
./pkg/ptracers/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./pkg/ptracers/ptracers_forcing_surf.F |
163 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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_forcing_surf.F |
176 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./pkg/ptracers/ptracers_forcing_surf.F |
178 |
PTRACERS_FORCING_SURF |
IF ( PTRACERS_StepFwd(iTrc) .AND. |
./pkg/ptracers/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
& PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN |
./pkg/ptracers/ptracers_forcing_surf.F |
184 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./pkg/ptracers/ptracers_forcing_surf.F |
185 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
./pkg/ptracers/ptracers_forcing_surf.F |
187 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
./pkg/ptracers/ptracers_forcing_surf.F |
53 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
./pkg/ptracers/ptracers_forcing_surf.F |
65 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./pkg/ptracers/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0 |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
124 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
IF ( PTRACERS_StepFwd(iTrc) .AND. |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
134 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
135 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
./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 |
157 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
IF ( PTRACERS_StepFwd(iTrc) .AND. |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
165 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
166 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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 |
179 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
IF ( PTRACERS_StepFwd(iTrc) .AND. |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
187 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
188 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
190 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
53 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
65 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
70 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,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/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) = |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
119 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
125 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
./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 |
151 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
153 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,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) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
172 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
174 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
INTEGER iTrc, ks |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
64 |
PTRACERS_FORCING_SURF |
DO iTrc=1,PTRACERS_numInUse |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |