| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/do_fizhi.F |
98 |
DO_FIZHI |
INTEGER ptracer,ntracer |
|
./pkg/fizhi/do_fizhi.F |
99 |
DO_FIZHI |
PARAMETER (ptracer = 1) |
|
./pkg/fizhi/fizhi_driver.F |
204 |
FIZHI_DRIVER |
& ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl, |
|
./pkg/fizhi/fizhi_driver.F |
247 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
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, |
|
./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 |
294 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
300 |
MOISTIO |
ugather(indx,L,nt) = qz(i,j,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
314 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
315 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
363 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
429 |
MOISTIO |
DO NT = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
577 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
624 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./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 |
804 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
807 |
MOISTIO |
. dqmoist(1,1,L,ptracer+nt),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
816 |
MOISTIO |
call BACK2GRD (delugather(1,L,ntracerin-ptracer+1),pblindex, |
|
./pkg/fizhi/fizhi_moist.F |
818 |
MOISTIO |
call BACK2GRD (delugather(1,L,ntracerin-ptracer+2),pblindex, |
|
./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/obcs/obcs_init_variables.F |
483 |
OBCS_INIT_VARIABLES |
U ptracer(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/opps/opps_interface.F |
122 |
OPPS_INTERFACE |
tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2) |
|
./pkg/opps/opps_interface.F |
178 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,itr-2) = tracerLoc(K,itr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
70 |
PTRACERS_CALC_WSURF_TR |
& *ptracer(i,j,ks,bi,bj,iTr) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
100 |
DO_FIZHI |
PARAMETER (ptracer = 1) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
99 |
DO_FIZHI |
INTEGER ptracer,ntracer |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
66 |
COST_TRACER |
& ptracer(83,33,1,1,1,1), ptracer(83,33,2,1,1,1) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
66 |
COST_TRACER |
& ptracer(83,33,1,1,1,1), ptracer(83,33,2,1,1,1) |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)* |
|
./pkg/ctrl/ctrl_map_ini.F |
187 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
191 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |