| File |
Line number |
Procedure |
Code |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
39 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
59 |
GAD_DST3_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
71 |
GAD_DST3_ADV_Y |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
76 |
GAD_DST3_ADV_Y |
thetaP=(Rjm+smallNo)/(smallNo+Rj) |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
79 |
GAD_DST3_ADV_Y |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
84 |
GAD_DST3_ADV_Y |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
89 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + psiP*Rj ) |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
91 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - psiM*Rj ) |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
96 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) ) |
|
./verification/matrix_example/code/gad_dst3_adv_y.F |
98 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - (d0*Rj+d1*Rjp) ) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
39 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
57 |
GAD_DST3_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
69 |
GAD_DST3_ADV_X |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
74 |
GAD_DST3_ADV_X |
thetaP=(Rjm+smallNo)/(smallNo+Rj) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
77 |
GAD_DST3_ADV_X |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
82 |
GAD_DST3_ADV_X |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
87 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + psiP*Rj ) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
89 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - psiM*Rj ) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
94 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) ) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
96 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - (d0*Rj+d1*Rjp) ) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
102 |
GAD_DST3_ADV_R |
& *( Tracer(i,j, k ,bi,bj) + psiM*Rj ) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
104 |
GAD_DST3_ADV_R |
& *( Tracer(i,j,km1,bi,bj) - psiP*Rj ) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
109 |
GAD_DST3_ADV_R |
& *( Tracer(i,j, k ,bi,bj) + (d0*Rj+d1*Rjp) ) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
111 |
GAD_DST3_ADV_R |
& *( Tracer(i,j,km1,bi,bj) - (d0*Rj+d1*Rjm) ) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
38 |
GAD_DST3_ADV_R |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
71 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
84 |
GAD_DST3_ADV_R |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
89 |
GAD_DST3_ADV_R |
thetaP=(Rjm+smallNo)/(smallNo+Rj) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
92 |
GAD_DST3_ADV_R |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
97 |
GAD_DST3_ADV_R |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
60 |
GAD_FLUXLIMIT_ADV_X |
_RL Cr,Rjm,Rj,Rjp |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
76 |
GAD_FLUXLIMIT_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
79 |
GAD_FLUXLIMIT_ADV_X |
IF (Rj.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
81 |
GAD_FLUXLIMIT_ADV_X |
Cr=Rjm/Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
83 |
GAD_FLUXLIMIT_ADV_X |
Cr=Rjp/Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
99 |
GAD_FLUXLIMIT_ADV_X |
& )*Rj |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
53 |
GAD_C4_ADV_Y |
_RL Rjm,Rj,Rjp,Rjjm,Rjjp |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
65 |
GAD_C4_ADV_Y |
Rj =(tracer(i,j)-tracer(i,j-1)) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
69 |
GAD_C4_ADV_Y |
Rjjp=(Rjp-Rj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
70 |
GAD_C4_ADV_Y |
Rjjm=(Rj-Rjm) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
65 |
GAD_FLUXLIMIT_IMPL_R |
_RL Cr,Rjm,Rj,Rjp, w_CFL |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
90 |
GAD_FLUXLIMIT_IMPL_R |
IF ( Rj.NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
92 |
GAD_FLUXLIMIT_IMPL_R |
Cr=Rjm/Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
94 |
GAD_FLUXLIMIT_IMPL_R |
Cr=Rjp/Rj |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
53 |
GAD_C4_ADV_X |
_RL Rjm,Rj,Rjp,Rjjm,Rjjp |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
63 |
GAD_C4_ADV_X |
Rj =(tracer(i,j)-tracer(i-1,j)) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
67 |
GAD_C4_ADV_X |
Rjjp=(Rjp-Rj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
68 |
GAD_C4_ADV_X |
Rjjm=(Rj-Rjm) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
57 |
GAD_C4_ADV_R |
_RL Rjm,Rj,Rjp,Rjjm,Rjjp |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rj =(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
82 |
GAD_C4_ADV_R |
Rjjp=(Rjp-Rj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
83 |
GAD_C4_ADV_R |
Rjjm=(Rj-Rjm) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
101 |
GAD_FLUXLIMIT_ADV_Y |
& )*Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
60 |
GAD_FLUXLIMIT_ADV_Y |
_RL Cr,Rjm,Rj,Rjp |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
78 |
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 |
IF (Rj.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
83 |
GAD_FLUXLIMIT_ADV_Y |
Cr=Rjm/Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
85 |
GAD_FLUXLIMIT_ADV_Y |
Cr=Rjp/Rj |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
38 |
GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
63 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
75 |
GAD_DST3FL_ADV_R |
thetaP=Rjm/(1.D-20+Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
79 |
GAD_DST3FL_ADV_R |
thetaM=Rjp/(1.D-20+Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
87 |
GAD_DST3FL_ADV_R |
& *( Tracer(i,j, k ,bi,bj) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
89 |
GAD_DST3FL_ADV_R |
& *( Tracer(i,j,km1,bi,bj) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
39 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
59 |
GAD_DST3_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
68 |
GAD_DST3_ADV_Y |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
73 |
GAD_DST3_ADV_Y |
thetaP=(Rjm+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
76 |
GAD_DST3_ADV_Y |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
81 |
GAD_DST3_ADV_Y |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
86 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
88 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
52 |
GAD_U3_ADV_X |
_RL Rjm,Rj,Rjp,Rjjm,Rjjp |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
61 |
GAD_U3_ADV_X |
Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
63 |
GAD_U3_ADV_X |
Rjjp=Rjp-Rj |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
64 |
GAD_U3_ADV_X |
Rjjm=Rj-Rjm |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
37 |
GAD_DST3FL_ADV_Y |
_RL Rjm,Rj,Rjp,cfl,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
48 |
GAD_DST3FL_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
59 |
GAD_DST3FL_ADV_Y |
thetaP=Rjm/(1.D-20+Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
63 |
GAD_DST3FL_ADV_Y |
thetaM=Rjp/(1.D-20+Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
71 |
GAD_DST3FL_ADV_Y |
& *( Tracer(i,j-1) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
73 |
GAD_DST3FL_ADV_Y |
& *( Tracer(i, j ) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
39 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
57 |
GAD_DST3_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
66 |
GAD_DST3_ADV_X |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
71 |
GAD_DST3_ADV_X |
thetaP=(Rjm+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
74 |
GAD_DST3_ADV_X |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
79 |
GAD_DST3_ADV_X |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
84 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
86 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
102 |
GAD_FLUXLIMIT_ADV_R |
Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,kM1,bi,bj)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
106 |
GAD_FLUXLIMIT_ADV_R |
IF (Rj.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
108 |
GAD_FLUXLIMIT_ADV_R |
Cr=Rjm/Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
110 |
GAD_FLUXLIMIT_ADV_R |
Cr=Rjp/Rj |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
126 |
GAD_FLUXLIMIT_ADV_R |
& )*Rj*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
65 |
GAD_FLUXLIMIT_ADV_R |
_RL Cr,Rjm,Rj,Rjp |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
37 |
GAD_DST3FL_ADV_X |
_RL Rjm,Rj,Rjp,cfl,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
46 |
GAD_DST3FL_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
57 |
GAD_DST3FL_ADV_X |
thetaP=Rjm/(1.D-20+Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
61 |
GAD_DST3FL_ADV_X |
thetaM=Rjp/(1.D-20+Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
69 |
GAD_DST3FL_ADV_X |
& *( Tracer(i-1,j) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
71 |
GAD_DST3FL_ADV_X |
& *( Tracer( i ,j) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
101 |
GAD_DST3_ADV_R |
& *( Tracer(i,j,km1,bi,bj) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
38 |
GAD_DST3_ADV_R |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
71 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
81 |
GAD_DST3_ADV_R |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
86 |
GAD_DST3_ADV_R |
thetaP=(Rjm+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
89 |
GAD_DST3_ADV_R |
IF ( ABS(Rj).LT.smallNo .OR. |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
94 |
GAD_DST3_ADV_R |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
99 |
GAD_DST3_ADV_R |
& *( Tracer(i,j, k ,bi,bj) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
52 |
GAD_U3_ADV_Y |
_RL Rjm,Rj,Rjp,Rjjm,Rjjp |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
63 |
GAD_U3_ADV_Y |
Rj =(tracer(i,j)-tracer(i,j-1))*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
65 |
GAD_U3_ADV_Y |
Rjjp=Rjp-Rj |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
66 |
GAD_U3_ADV_Y |
Rjjm=Rj-Rjm |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
55 |
GAD_U3_ADV_R |
_RL Rjm,Rj,Rjp,Rjjm,Rjjp |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
76 |
GAD_U3_ADV_R |
Rjjp=Rjp-Rj |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
77 |
GAD_U3_ADV_R |
Rjjm=Rj-Rjm |