| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_integrate.F |
12 |
PTRACERS_INTEGRATE |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
137 |
PTRACERS_INTEGRATE |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
58 |
PTRACERS_INTEGRATE |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
10 |
GMREDI_CALC_WFLOW |
U wFld, rTrans, |
|
./pkg/gmredi/gmredi_calc_wflow.F |
32 |
GMREDI_CALC_WFLOW |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
55 |
GMREDI_CALC_WFLOW |
wFld(i,j) = wFld(i,j) + delPsi*recip_rA(i,j,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 |
93 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
95 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,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 |
94 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
96 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
125 |
GAD_FLUXLIMIT_ADV_R |
& +rTrans(i,j)*wFld*dTarg*recip_drC(k) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
66 |
GAD_FLUXLIMIT_ADV_R |
_RL wFld |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
99 |
GAD_FLUXLIMIT_ADV_R |
wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg) |
|
./model/src/thermodynamics.F |
147 |
THERMODYNAMICS |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/thermodynamics.F |
431 |
THERMODYNAMICS |
wFld(i,j) = 0. _d 0 |
|
./model/src/thermodynamics.F |
440 |
THERMODYNAMICS |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
442 |
THERMODYNAMICS |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/thermodynamics.F |
455 |
THERMODYNAMICS |
U wFld, rTrans, |
|
./model/src/thermodynamics.F |
526 |
THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
559 |
THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
597 |
THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
12 |
CALC_GT |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
148 |
CALC_GT |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
159 |
CALC_GT |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
91 |
CALC_GT |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/integrate_for_w.F |
101 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
112 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
113 |
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 |
130 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
140 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
141 |
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) |
|
./model/src/calc_gs.F |
12 |
CALC_GS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gs.F |
149 |
CALC_GS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gs.F |
160 |
CALC_GS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gs.F |
92 |
CALC_GS |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_metric_nh.F |
12 |
MOM_V_METRIC_NH |
I vFld,wFld, |
|
./pkg/mom_common/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_common/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_common/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_common/mom_v_coriolis_nh.F |
11 |
MOM_V_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
35 |
MOM_V_CORIOLIS_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
60 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1,k,bi,bj)+wFld(i,j-1,kp1,bi,bj)*wMsk ) ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
11 |
MOM_U_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
35 |
MOM_U_CORIOLIS_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
103 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
117 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
12 |
MOM_W_SIDEDRAG |
I wFld, del2w, |
|
./pkg/mom_common/mom_w_sidedrag.F |
43 |
MOM_W_SIDEDRAG |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_sidedrag.F |
83 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
93 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_metric_nh.F |
12 |
MOM_U_METRIC_NH |
I uFld, wFld, |
|
./pkg/mom_common/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_common/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_common/mom_u_metric_nh.F |
59 |
MOM_U_METRIC_NH |
& +wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj) |
|
./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 |
37 |
OBCS_APPLY_W |
IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
45 |
OBCS_APPLY_W |
IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
48 |
OBCS_APPLY_W |
IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
60 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
70 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
7 |
OBCS_APPLY_W |
U wFld, |
|
./pkg/obcs/obcs_apply_w.F |
82 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
92 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask |
|
./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 |
69 |
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 |
70 |
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 |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
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 |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
89 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
8 |
MOM_VI_U_VERTSHEAR |
I uFld,wFld, |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
90 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj) |
|
./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 |
69 |
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 |
70 |
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 |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
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 |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
89 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
8 |
MOM_VI_V_VERTSHEAR |
I vFld,wFld, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
90 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
131 |
GAD_ADVECTION |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_advection.F |
725 |
GAD_ADVECTION |
wFld(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
744 |
GAD_ADVECTION |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
755 |
GAD_ADVECTION |
U wFld, rTrans, |
|
./pkg/generic_advdiff/gad_advection.F |
770 |
GAD_ADVECTION |
I dTtracerLev(k),rTrans,wFld,localTijk, |
|
./pkg/generic_advdiff/gad_advection.F |
774 |
GAD_ADVECTION |
I rTrans, wFld, localTijk, |
|
./pkg/generic_advdiff/gad_advection.F |
778 |
GAD_ADVECTION |
I rTrans, wFld, localTijk, |
|
./pkg/generic_advdiff/gad_advection.F |
782 |
GAD_ADVECTION |
I rTrans, wFld, localTijk, |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
12 |
GAD_DST3_ADV_R |
I rTrans, wFld, |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
43 |
GAD_DST3_ADV_R |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
83 |
GAD_DST3_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
186 |
GAD_IMPLICIT_R |
wFld(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
193 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
194 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
201 |
GAD_IMPLICIT_R |
U wFld, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
72 |
GAD_IMPLICIT_R |
_RL wFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
12 |
GAD_DST3FL_ADV_R |
I rTrans, wFld, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
41 |
GAD_DST3FL_ADV_R |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
75 |
GAD_DST3FL_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
12 |
GAD_DST2U1_ADV_R |
I deltaTloc, rTrans, wFld, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
42 |
GAD_DST2U1_ADV_R |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
75 |
GAD_DST2U1_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
12 |
GAD_CALC_RHS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
432 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
436 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
452 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
456 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
90 |
GAD_CALC_RHS |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
12 |
GAD_FLUXLIMIT_ADV_R |
I rTrans, wFld, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
47 |
GAD_FLUXLIMIT_ADV_R |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
85 |
GAD_FLUXLIMIT_ADV_R |
wLoc = wFld(i,j) |