File |
Line number |
Procedure |
Code |
./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 |
77 |
GAD_C4_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
./pkg/generic_advdiff/gad_c4_adv_r.F |
82 |
GAD_C4_ADV_R |
Rjjp=(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 |
Rjp=(tracer(i+1,j)-tracer(i,j)) |
./pkg/generic_advdiff/gad_c4_adv_x.F |
69 |
GAD_C4_ADV_X |
Rjjp=(Rjp-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 |
63 |
GAD_C4_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i,j)) |
./pkg/generic_advdiff/gad_c4_adv_y.F |
69 |
GAD_C4_ADV_Y |
Rjjp=(Rjp-Rj) |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
103 |
GAD_DST3_ADV_R |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
114 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) ) |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
59 |
GAD_DST3_ADV_R |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
99 |
GAD_DST3_ADV_R |
& ABS(Rjp).LT.smallNo ) THEN |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
102 |
GAD_DST3_ADV_X |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
115 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - (d0*Rj+d1*Rjp) ) |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
59 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1 |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
79 |
GAD_DST3_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
98 |
GAD_DST3_ADV_X |
& ABS(Rjp).LT.smallNo ) THEN |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
101 |
GAD_DST3_ADV_Y |
thetaM=(Rjp+smallNo)/(smallNo+Rj) |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
114 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - (d0*Rj+d1*Rjp) ) |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
58 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1 |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
78 |
GAD_DST3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
97 |
GAD_DST3_ADV_Y |
& ABS(Rjp).LT.smallNo ) THEN |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
56 |
GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,wCFL,d0,d1 |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
68 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
95 |
GAD_DST3FL_ADV_R |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
96 |
GAD_DST3FL_ADV_R |
thetaM=SIGN(thetaMax,Rjp*Rj) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
98 |
GAD_DST3FL_ADV_R |
thetaM=Rjp/Rj |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
37 |
GAD_DST3FL_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1,psiP,psiM,thetaP,thetaM |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
52 |
GAD_DST3FL_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
77 |
GAD_DST3FL_ADV_X |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
78 |
GAD_DST3FL_ADV_X |
thetaM=SIGN(thetaMax,Rjp*Rj) |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
80 |
GAD_DST3FL_ADV_X |
thetaM=Rjp/Rj |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
37 |
GAD_DST3FL_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
48 |
GAD_DST3FL_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
73 |
GAD_DST3FL_ADV_Y |
IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
74 |
GAD_DST3FL_ADV_Y |
thetaM=SIGN(thetaMax,Rjp*Rj) |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
76 |
GAD_DST3FL_ADV_Y |
thetaM=Rjp/Rj |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
103 |
GAD_FLUXLIMIT_ADV_R |
Cr=Rjp*1.E20 |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
65 |
GAD_FLUXLIMIT_ADV_R |
_RL Cr,Rjm,Rj,Rjp |
./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 |
97 |
GAD_FLUXLIMIT_ADV_R |
Cr=Rjp/Rj |
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
62 |
GAD_FLUXLIMIT_ADV_X |
_RL Cr,Rjm,Rj,Rjp |
./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 |
87 |
GAD_FLUXLIMIT_ADV_X |
Cr=Rjp/Rj |
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
93 |
GAD_FLUXLIMIT_ADV_X |
Cr=Rjp*1.E20 |
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
62 |
GAD_FLUXLIMIT_ADV_Y |
_RL Cr,Rjm,Rj,Rjp |
./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 |
87 |
GAD_FLUXLIMIT_ADV_Y |
Cr=Rjp/Rj |
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
93 |
GAD_FLUXLIMIT_ADV_Y |
Cr=Rjp*1.E20 |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
66 |
GAD_FLUXLIMIT_IMPL_R |
_RL Cr,Rjm,Rj,Rjp, w_CFL |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
95 |
GAD_FLUXLIMIT_IMPL_R |
Cr=Rjp/Rj |
./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 |
71 |
GAD_U3_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
./pkg/generic_advdiff/gad_u3_adv_r.F |
76 |
GAD_U3_ADV_R |
Rjjp=Rjp-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 |
62 |
GAD_U3_ADV_X |
Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj) |
./pkg/generic_advdiff/gad_u3_adv_x.F |
65 |
GAD_U3_ADV_X |
Rjjp=Rjp-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 |
62 |
GAD_U3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i,j))*maskS(i,j+1,k,bi,bj) |
./pkg/generic_advdiff/gad_u3_adv_y.F |
65 |
GAD_U3_ADV_Y |
Rjjp=Rjp-Rj |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
141 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
144 |
MOM_VI_U_CORIOLIS_C4 |
& -oneTwelve*(Rjp-Rjm) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
177 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+1) -oneSixth*( vort3r(i,j+2)-vort3r(i, j ) ) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
179 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*Rjm + vBarXp*Rjp ) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
51 |
MOM_VI_U_CORIOLIS_C4 |
_RL vBarXY,vort3u,Rjp,Rjm |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
141 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
144 |
MOM_VI_V_CORIOLIS_C4 |
& -oneTwelve*(Rjp-Rjm) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
177 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+1,j) -oneSixth*( vort3r(i+2,j)-vort3r( i ,j) ) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
179 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( uBarYm*Rjm + uBarYp*Rjp ) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
51 |
MOM_VI_V_CORIOLIS_C4 |
_RL uBarXY,vort3v,Rjp,Rjm |