| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_w.F |
22 |
OBCS_APPLY_W |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
62 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
7 |
OBCS_APPLY_W |
U wFld, |
|
./model/src/integrate_for_w.F |
100 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
111 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
112 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
11 |
INTEGRATE_FOR_W |
O wFld, |
|
./model/src/integrate_for_w.F |
128 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
138 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
139 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
37 |
INTEGRATE_FOR_W |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
68 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = 0. |
|
./model/src/integrate_for_w.F |
74 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
84 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
85 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
40 |
GAD_DST3_ADV_R |
_RL wFld |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg) |
|
./verification/matrix_example/code/gad_dst3_adv_r.F |
78 |
GAD_DST3_ADV_R |
cfl=abs(wFld*dTarg*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
40 |
GAD_DST3FL_ADV_R |
_RL wFld |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
69 |
GAD_DST3FL_ADV_R |
wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
70 |
GAD_DST3FL_ADV_R |
cfl=abs(wFld*dTarg*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
124 |
GAD_FLUXLIMIT_ADV_R |
& +rTrans(i,j)*wFld*dTarg*recip_drC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
66 |
GAD_FLUXLIMIT_ADV_R |
_RL wFld |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
99 |
GAD_FLUXLIMIT_ADV_R |
wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
40 |
GAD_DST3_ADV_R |
_RL wFld |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
78 |
GAD_DST3_ADV_R |
cfl=abs(wFld*dTarg*recip_drC(k)) |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
12 |
MOM_U_METRIC_NH |
I uFld, wFld, |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
37 |
MOM_U_METRIC_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
58 |
MOM_U_METRIC_NH |
& (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
59 |
MOM_U_METRIC_NH |
& +wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
13 |
MOM_V_ADV_WV |
I vFld,wFld,rTrans, |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
39 |
MOM_V_ADV_WV |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
95 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
97 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_metric_nh.F |
12 |
MOM_V_METRIC_NH |
I vFld,wFld, |
|
./pkg/mom_fluxform/mom_v_metric_nh.F |
37 |
MOM_V_METRIC_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_v_metric_nh.F |
58 |
MOM_V_METRIC_NH |
& (wFld(i,j,kp1,bi,bj)+wFld(i,j-1,kp1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_metric_nh.F |
59 |
MOM_V_METRIC_NH |
& +wFld(i,j, k ,bi,bj)+wFld(i,j-1, k ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
12 |
MOM_U_ADV_WU |
I uFld,wFld,rTrans, |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
38 |
MOM_U_ADV_WU |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
94 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
96 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_coriolis_nh.F |
11 |
MOM_U_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_fluxform/mom_u_coriolis_nh.F |
34 |
MOM_U_CORIOLIS_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_coriolis_nh.F |
57 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk ) |
|
./pkg/mom_fluxform/mom_u_coriolis_nh.F |
59 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) ) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
26 |
MOM_VI_U_VERTSHEAR |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
62 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
63 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
68 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
8 |
MOM_VI_U_VERTSHEAR |
I uFld,wFld, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
26 |
MOM_VI_V_VERTSHEAR |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
62 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
63 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
68 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
8 |
MOM_VI_V_VERTSHEAR |
I vFld,wFld, |