| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_surfmean.F |
25 |
GCHEM_SURFMEAN |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gchem/gchem_surfmean.F |
50 |
GCHEM_SURFMEAN |
& + tracer(i,j,ks,bi,bj)*rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/gchem/gchem_surfmean.F |
8 |
GCHEM_SURFMEAN |
I tracer, |
|
./pkg/generic_advdiff/gad_advection.F |
1029 |
GAD_ADVECTION |
& ( tmpTrac - tracer(i,j,k,bi,bj)*localVol(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1044 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp(i,j)-rTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
1047 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
17 |
GAD_ADVECTION |
I uFld, vFld, wFld, tracer, |
|
./pkg/generic_advdiff/gad_advection.F |
299 |
GAD_ADVECTION |
localTij(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
497 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
520 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
549 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
706 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
729 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
758 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
79 |
GAD_ADVECTION |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
12 |
GAD_BIHARM_R |
I diffKr4, tracer, |
|
./pkg/generic_advdiff/gad_biharm_r.F |
37 |
GAD_BIHARM_R |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
71 |
GAD_BIHARM_R |
gradR(i,j,n) = ( tracer(i,j,kl)-tracer(i,j,km) ) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
13 |
GAD_C2_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
39 |
GAD_C2_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
65 |
GAD_C2_ADV_R |
& (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
13 |
GAD_C2_ADV_X |
I tracer, |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
37 |
GAD_C2_ADV_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
13 |
GAD_C2_ADV_Y |
I tracer, |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
37 |
GAD_C2_ADV_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
13 |
GAD_C4_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
41 |
GAD_C4_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
77 |
GAD_C4_ADV_R |
Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
78 |
GAD_C4_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
13 |
GAD_C4_ADV_X |
I tracer, |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
43 |
GAD_C4_ADV_X |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
65 |
GAD_C4_ADV_X |
Rjp = (tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
66 |
GAD_C4_ADV_X |
Rj = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
67 |
GAD_C4_ADV_X |
Rjm = (tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
13 |
GAD_C4_ADV_Y |
I tracer, |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
43 |
GAD_C4_ADV_Y |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
65 |
GAD_C4_ADV_Y |
Rjp = (tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
66 |
GAD_C4_ADV_Y |
Rj = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
67 |
GAD_C4_ADV_Y |
Rjm = (tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_diff_r.F |
13 |
GAD_DIFF_R |
I tracer, |
|
./pkg/generic_advdiff/gad_diff_r.F |
39 |
GAD_DIFF_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_diff_r.F |
66 |
GAD_DIFF_R |
& *(tracer(i,j,k)-tracer(i,j,km1))*rkSign |
|
./pkg/generic_advdiff/gad_diff_x.F |
13 |
GAD_DIFF_X |
I tracer, |
|
./pkg/generic_advdiff/gad_diff_x.F |
39 |
GAD_DIFF_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_diff_x.F |
56 |
GAD_DIFF_X |
& *(tracer(i,j)-tracer(i-1,j)) |
|
./pkg/generic_advdiff/gad_diff_y.F |
13 |
GAD_DIFF_Y |
I tracer, |
|
./pkg/generic_advdiff/gad_diff_y.F |
39 |
GAD_DIFF_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_diff_y.F |
58 |
GAD_DIFF_Y |
& *(tracer(i,j)-tracer(i,j-1)) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
13 |
GAD_DST2U1_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
43 |
GAD_DST2U1_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
91 |
GAD_DST2U1_ADV_R |
& ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
92 |
GAD_DST2U1_ADV_R |
& + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
13 |
GAD_DST2U1_ADV_X |
I tracer, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
45 |
GAD_DST2U1_ADV_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
83 |
GAD_DST2U1_ADV_X |
uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
84 |
GAD_DST2U1_ADV_X |
& + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
13 |
GAD_DST2U1_ADV_Y |
I tracer, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
44 |
GAD_DST2U1_ADV_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
82 |
GAD_DST2U1_ADV_Y |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
83 |
GAD_DST2U1_ADV_Y |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
110 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
112 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
116 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
118 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
13 |
GAD_DST3_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
46 |
GAD_DST3_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
81 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
83 |
GAD_DST3_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
13 |
GAD_DST3_ADV_X |
I maskLocW, tracer, |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
49 |
GAD_DST3_ADV_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
81 |
GAD_DST3_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
82 |
GAD_DST3_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
83 |
GAD_DST3_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
13 |
GAD_DST3_ADV_Y |
I maskLocS, tracer, |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
48 |
GAD_DST3_ADV_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
80 |
GAD_DST3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
81 |
GAD_DST3_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
82 |
GAD_DST3_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
115 |
GAD_DST3FL_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
117 |
GAD_DST3FL_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
13 |
GAD_DST3FL_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
42 |
GAD_DST3FL_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
73 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
75 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
77 |
GAD_DST3FL_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
31 |
GAD_DST3FL_ADV_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
57 |
GAD_DST3FL_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
58 |
GAD_DST3FL_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
59 |
GAD_DST3FL_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
9 |
GAD_DST3FL_ADV_X |
I maskLocW, tracer, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
31 |
GAD_DST3FL_ADV_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
53 |
GAD_DST3FL_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
54 |
GAD_DST3FL_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
55 |
GAD_DST3FL_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
9 |
GAD_DST3FL_ADV_Y |
I maskLocS, tracer, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
109 |
GAD_FLUXLIMIT_ADV_R |
& (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
13 |
GAD_FLUXLIMIT_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
48 |
GAD_FLUXLIMIT_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
87 |
GAD_FLUXLIMIT_ADV_R |
Rjp=(tracer(i,j,kp1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
89 |
GAD_FLUXLIMIT_ADV_R |
Rj= (tracer(i,j,k) -tracer(i,j,kM1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
90 |
GAD_FLUXLIMIT_ADV_R |
Rjm=(tracer(i,j,km1)-tracer(i,j,kM2)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
13 |
GAD_FLUXLIMIT_ADV_X |
I maskLocW, tracer, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
50 |
GAD_FLUXLIMIT_ADV_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
79 |
GAD_FLUXLIMIT_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
80 |
GAD_FLUXLIMIT_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
81 |
GAD_FLUXLIMIT_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
13 |
GAD_FLUXLIMIT_ADV_Y |
I maskLocS, tracer, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
50 |
GAD_FLUXLIMIT_ADV_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
79 |
GAD_FLUXLIMIT_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
80 |
GAD_FLUXLIMIT_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
81 |
GAD_FLUXLIMIT_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_grad_x.F |
13 |
GAD_GRAD_X |
U tracer, |
|
./pkg/generic_advdiff/gad_grad_x.F |
39 |
GAD_GRAD_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_grad_x.F |
54 |
GAD_GRAD_X |
& tracer, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_grad_x.F |
64 |
GAD_GRAD_X |
& *(tracer(i,j)-tracer(i-1,j)) |
|
./pkg/generic_advdiff/gad_grad_y.F |
13 |
GAD_GRAD_Y |
U tracer, |
|
./pkg/generic_advdiff/gad_grad_y.F |
39 |
GAD_GRAD_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_grad_y.F |
54 |
GAD_GRAD_Y |
& tracer, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_grad_y.F |
66 |
GAD_GRAD_Y |
& *(tracer(i,j)-tracer(i,j-1)) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
12 |
GAD_IMPLICIT_R |
I kappaRX, recip_hFac, wFld, tracer, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
179 |
GAD_IMPLICIT_R |
localTr(i,j,k) = tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
49 |
GAD_IMPLICIT_R |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
14 |
GAD_SOM_ADVECT |
I uFld, vFld, wFld, tracer, |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
410 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
58 |
GAD_SOM_ADVECT |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
593 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
13 |
GAD_U3_ADV_R |
I tracer, |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
40 |
GAD_U3_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
71 |
GAD_U3_ADV_R |
Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
72 |
GAD_U3_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
77 |
GAD_U3_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
13 |
GAD_U3_ADV_X |
I tracer, |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
42 |
GAD_U3_ADV_X |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
64 |
GAD_U3_ADV_X |
Rjp = (tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
65 |
GAD_U3_ADV_X |
Rj = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
66 |
GAD_U3_ADV_X |
Rjm = (tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
13 |
GAD_U3_ADV_Y |
I tracer, |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
42 |
GAD_U3_ADV_Y |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
64 |
GAD_U3_ADV_Y |
Rjp = (tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
65 |
GAD_U3_ADV_Y |
Rj = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
66 |
GAD_U3_ADV_Y |
Rjm = (tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/layers/layers_fluxcalc.F |
181 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
183 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
19 |
LAYERS_FLUXCALC |
I uVel,vVel,tracer,iLa, |
|
./pkg/layers/layers_fluxcalc.F |
261 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
263 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
381 |
LAYERS_DIAPYCNAL |
I tracer,iLa, |
|
./pkg/layers/layers_fluxcalc.F |
421 |
LAYERS_DIAPYCNAL |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/layers/layers_fluxcalc.F |
530 |
LAYERS_DIAPYCNAL |
TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
531 |
LAYERS_DIAPYCNAL |
& (1. _d 0 -MapFact(kk)) * tracer(i,j,kp1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
540 |
LAYERS_DIAPYCNAL |
TatC(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
61 |
LAYERS_FLUXCALC |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
678 |
OBCS_STEVENS_CALC_TRACER_EAST |
I OBE_Stevens, tracer, gammaf, |
|
./pkg/obcs/obcs_calc_stevens.F |
711 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
729 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracSpace = (tracer(I-1,J,K,bi,bj)-tracer(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
731 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracTime = (tracer(I-1,J,K,bi,bj)-OBE_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
742 |
OBCS_STEVENS_CALC_TRACER_EAST |
& *(tracer(I,J,K,bi,bj)-tracer(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
745 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * (tracer(I,J,K,bi,bj)-OBEf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
759 |
OBCS_STEVENS_CALC_TRACER_WEST |
I OBW_Stevens, tracer, gammaf, |
|
./pkg/obcs/obcs_calc_stevens.F |
792 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
811 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracSpace = (tracer(I+2,J,K,bi,bj)-tracer(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
813 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracTime = (tracer(I+1,J,K,bi,bj)-OBW_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
824 |
OBCS_STEVENS_CALC_TRACER_WEST |
& *(tracer(I+1,J,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
827 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * (tracer(I,J,K,bi,bj)-OBWf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
841 |
OBCS_STEVENS_CALC_TRACER_NORTH |
I OBN_Stevens, tracer, gammaf, |
|
./pkg/obcs/obcs_calc_stevens.F |
874 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
893 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracSpace = (tracer(I,J-1,K,bi,bj)-tracer(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
895 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracTime = (tracer(I,J-1,K,bi,bj)-OBN_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
906 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& *(tracer(I,J,K,bi,bj)-tracer(I,J-1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
909 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * (tracer(I,J,K,bi,bj)-OBNf(I,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
923 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
I OBS_Stevens, tracer, gammaf, |
|
./pkg/obcs/obcs_calc_stevens.F |
956 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
974 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracSpace = (tracer(I,J+2,K,bi,bj)-tracer(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
976 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracTime = (tracer(I,J+1,K,bi,bj)-OBS_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
987 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& *(tracer(I,J+1,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
990 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * (tracer(I,J,K,bi,bj)-OBSf(I,K,bi,bj)) ) |
|
./model/src/cycle_ab_tracer.F |
12 |
CYCLE_AB_TRACER |
U tracer, |
|
./model/src/cycle_ab_tracer.F |
39 |
CYCLE_AB_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_ab_tracer.F |
52 |
CYCLE_AB_TRACER |
tracNm1(i,j,k) = tracer(i,j,k) |
|
./model/src/cycle_ab_tracer.F |
53 |
CYCLE_AB_TRACER |
tracer(i,j,k) = tracNew(i,j,k) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
106 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
107 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
118 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
119 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
136 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
137 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
13 |
OBCS_U1_ADV_TRACER |
I maskLoc, vTrans, tracer, |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
148 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
149 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
54 |
OBCS_U1_ADV_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/cycle_tracer.F |
11 |
CYCLE_TRACER |
U tracer, gTracer, |
|
./model/src/cycle_tracer.F |
35 |
CYCLE_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_tracer.F |
50 |
CYCLE_TRACER |
tracer(i,j,k) = gTracer(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
12 |
SALT_PLUME_APPLY |
I tracer,trApplyFlag, |
|
./pkg/salt_plume/salt_plume_apply.F |
154 |
SALT_PLUME_APPLY |
work(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
196 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
55 |
SALT_PLUME_APPLY |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/timestep_tracer.F |
12 |
TIMESTEP_TRACER |
I tracer, |
|
./model/src/timestep_tracer.F |
41 |
TIMESTEP_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/timestep_tracer.F |
57 |
TIMESTEP_TRACER |
gTracer(i,j,k) = tracer(i,j,k) |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
13 |
CHEAPAML_GAD_C2_ADV_R |
I tracer, |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
39 |
CHEAPAML_GAD_C2_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
13 |
CHEAPAML_GAD_DST3FL_ADV_R |
I tracer, |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
41 |
CHEAPAML_GAD_DST3FL_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
87 |
CHEAPAML_GAD_DST3FL_ADV_R |
& *( tracer(i,j ) + psiM*Rj ) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
89 |
CHEAPAML_GAD_DST3FL_ADV_R |
& *( tracer(i,j) - psiP*Rj ) |
|
./pkg/cheapaml/cheapaml_timestep.F |
13 |
CHEAPAML_TIMESTEP |
U tracer, |
|
./pkg/cheapaml/cheapaml_timestep.F |
33 |
CHEAPAML_TIMESTEP |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml_timestep.F |
47 |
CHEAPAML_TIMESTEP |
tracer(i,j,bi,bj) = tracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
120 |
GAD_2D_CALC_RHS |
localT(i,j)=tracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
213 |
GAD_2D_CALC_RHS |
localT(ii,j)=tracer(ii,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
219 |
GAD_2D_CALC_RHS |
localT(ii,j)=tracer(ii,j,bi,bj) |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
13 |
GAD_C2_2D_ADV_X |
I tracer, |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
36 |
GAD_C2_2D_ADV_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
13 |
GAD_C2_2D_ADV_Y |
I tracer, |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
36 |
GAD_C2_2D_ADV_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
13 |
GAD_DIFF_2D_X |
I tracer, |
|
./pkg/cheapaml/gad_diff_2d_x.F |
36 |
GAD_DIFF_2D_X |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
13 |
GAD_DIFF_2D_Y |
I tracer, |
|
./pkg/cheapaml/gad_diff_2d_y.F |
37 |
GAD_DIFF_2D_Y |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/down_slope/dwnslp_apply.F |
11 |
DWNSLP_APPLY |
I tracer, |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
155 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
160 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
170 |
DWNSLP_APPLY |
& tracer(ijd,k), |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf)-tracer(ijd,k)), |
|
./pkg/down_slope/dwnslp_apply.F |
175 |
DWNSLP_APPLY |
& tracer(ijs,kshelf), |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf)) |
|
./pkg/down_slope/dwnslp_apply.F |
54 |
DWNSLP_APPLY |
_RL tracer ( xySize, Nr ) |