| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_statvars.F |
72 |
PTRACERS_STATVARS |
& ptracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_monitor.F |
106 |
PTRACERS_MONITOR |
& Nr, ptracer(1-Olx,1-Oly,1,1,1,ip), |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
101 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
102 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i,j,km1,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
48 |
PTRACERS_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL( ptracer(1-Olx,1-Oly,1,1,1,N), diagname, |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
61 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
62 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i-1,j,K,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
81 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
82 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i,j-1,K,bi,bj,N)) |
|
./pkg/fizhi/fizhi_moist.F |
100 |
MOISTIO |
_RL saveu (istrip,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
101 |
MOISTIO |
_RL usubcl (istrip, ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
110 |
MOISTIO |
_RL UL(ISTRIP,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
111 |
MOISTIO |
_RL cvu(istrip,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
162 |
MOISTIO |
ntracedim= max(ntracer-ptracer,1) |
|
./pkg/fizhi/fizhi_moist.F |
163 |
MOISTIO |
ntracex= ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
21 |
MOISTIO |
integer bi,bj,ntracerin,ptracer |
|
./pkg/fizhi/fizhi_moist.F |
277 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
280 |
MOISTIO |
ugather(indx,L,nt) = qz(pblindex(indx),1,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
290 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
291 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+2) = vz(pblindex(indx),1,L) |
|
./pkg/fizhi/fizhi_moist.F |
339 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
405 |
MOISTIO |
DO NT = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
553 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
600 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
780 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
783 |
MOISTIO |
. dqmoist(1,1,L,ptracer+nt),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
792 |
MOISTIO |
call BACK2GRD (delugather(1,L,ntracerin-ptracer+1),pblindex, |
|
./pkg/fizhi/fizhi_moist.F |
794 |
MOISTIO |
call BACK2GRD (delugather(1,L,ntracerin-ptracer+2),pblindex, |
|
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
|
./pkg/fizhi/fizhi_moist.F |
87 |
MOISTIO |
_RL ugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
88 |
MOISTIO |
_RL delugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/do_fizhi.F |
232 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats, |
|
./pkg/fizhi/do_fizhi.F |
97 |
DO_FIZHI |
integer ptracer,ntracer |
|
./pkg/fizhi/do_fizhi.F |
98 |
DO_FIZHI |
parameter (ptracer = 1) |
|
./pkg/fizhi/fizhi_driver.F |
200 |
FIZHI_DRIVER |
. ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl, |
|
./pkg/fizhi/fizhi_driver.F |
243 |
FIZHI_DRIVER |
. p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
51 |
FIZHI_DRIVER |
integer myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
5 |
FIZHI_DRIVER |
subroutine FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
98 |
DO_FIZHI |
integer ptracer,ntracer |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
99 |
DO_FIZHI |
parameter (ptracer = 1) |
|
./verification/fizhi-cs-aqualev20/code/do_fizhi.F |
233 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats, |
|
./verification/fizhi-cs-aqualev20/code/do_fizhi.F |
97 |
DO_FIZHI |
integer ptracer,ntracer |
|
./verification/fizhi-cs-aqualev20/code/do_fizhi.F |
98 |
DO_FIZHI |
parameter (ptracer = 1) |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
& lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)* |
|
./pkg/cost/cost_tracer.F |
65 |
COST_TRACER |
& ptracer(83,33,1,1,1,1), ptracer(83,33,2,1,1,1) |
|
./pkg/opps/opps_interface.F |
131 |
OPPS_INTERFACE |
tracerLoc(K,ktr) = ptracer(I,J,K,bi,bj,ktr-2) |
|
./pkg/opps/opps_interface.F |
187 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,ktr-2) = tracerLoc(K,ktr) |
|
./pkg/obcs/obcs_init_variables.F |
280 |
OBCS_INIT_VARIABLES |
U ptracer(1-Olx,1-Oly,K,bi,bj,iTracer), |
|
./pkg/gchem/gchem_forcing_sep.F |
62 |
GCHEM_FORCING_SEP |
& ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic) |
|
./pkg/gchem/gchem_forcing_sep.F |
65 |
GCHEM_FORCING_SEP |
& ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk) |
|
./pkg/ctrl/ctrl_map_ini.F |
178 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |