File |
Line number |
Procedure |
Code |
./model/src/calc_gs.F |
101 |
CALC_GS |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./model/src/calc_gs.F |
12 |
CALC_GS |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./model/src/calc_gs.F |
75 |
CALC_GS |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/mom_common/mom_u_implicit_r.F |
118 |
MOM_U_IMPLICIT_R |
rTrans(i,j) = 0.5 _d 0 * ( |
./pkg/mom_common/mom_u_implicit_r.F |
136 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j) |
./pkg/mom_common/mom_u_implicit_r.F |
157 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j) |
./pkg/mom_common/mom_u_implicit_r.F |
47 |
MOM_U_IMPLICIT_R |
_RL rTrans(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
./pkg/mom_common/mom_v_implicit_r.F |
118 |
MOM_V_IMPLICIT_R |
rTrans(i,j) = 0.5 _d 0 * ( |
./pkg/mom_common/mom_v_implicit_r.F |
136 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j) |
./pkg/mom_common/mom_v_implicit_r.F |
157 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j) |
./pkg/mom_common/mom_v_implicit_r.F |
47 |
MOM_V_IMPLICIT_R |
_RL rTrans(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
./verification/matrix_example/code/gad_dst3_adv_r.F |
101 |
GAD_DST3_ADV_R |
& 0.5*(rTrans(i,j)+abs(rTrans(i,j))) |
./verification/matrix_example/code/gad_dst3_adv_r.F |
103 |
GAD_DST3_ADV_R |
& +0.5*(rTrans(i,j)-abs(rTrans(i,j))) |
./verification/matrix_example/code/gad_dst3_adv_r.F |
108 |
GAD_DST3_ADV_R |
& 0.5*(rTrans(i,j)+abs(rTrans(i,j))) |
./verification/matrix_example/code/gad_dst3_adv_r.F |
110 |
GAD_DST3_ADV_R |
& +0.5*(rTrans(i,j)-abs(rTrans(i,j))) |
./verification/matrix_example/code/gad_dst3_adv_r.F |
29 |
GAD_DST3_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./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 |
8 |
GAD_DST3_ADV_R |
I rTrans, wVel, |
./model/src/thermodynamics.F |
154 |
THERMODYNAMICS |
_RL rTrans (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/thermodynamics.F |
230 |
THERMODYNAMICS |
rTrans (i,j) = 0. _d 0 |
./model/src/thermodynamics.F |
375 |
THERMODYNAMICS |
rTransKp1(i,j) = kp1Msk*rTrans(i,j) |
./model/src/thermodynamics.F |
385 |
THERMODYNAMICS |
O xA,yA,uTrans,vTrans,rTrans,maskUp, |
./model/src/thermodynamics.F |
392 |
THERMODYNAMICS |
rTrans(i,j) = 0. |
./model/src/thermodynamics.F |
399 |
THERMODYNAMICS |
rTrans(i,j) = rTrans(i,j)*maskC(i,j,k-1,bi,bj) |
./model/src/thermodynamics.F |
411 |
THERMODYNAMICS |
& rTrans, bi, bj, k, myThid) |
./model/src/thermodynamics.F |
450 |
THERMODYNAMICS |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./model/src/thermodynamics.F |
465 |
THERMODYNAMICS |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./model/src/thermodynamics.F |
489 |
THERMODYNAMICS |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./pkg/ptracers/ptracers_integrate.F |
101 |
PTRACERS_INTEGRATE |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./pkg/ptracers/ptracers_integrate.F |
12 |
PTRACERS_INTEGRATE |
I xA,yA,uTrans,vTrans,rTrans, |
./pkg/ptracers/ptracers_integrate.F |
51 |
PTRACERS_INTEGRATE |
_RL rTrans (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_c2_adv_r.F |
12 |
GAD_C2_ADV_R |
I rTrans, |
./pkg/generic_advdiff/gad_c2_adv_r.F |
38 |
GAD_C2_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_c2_adv_r.F |
64 |
GAD_C2_ADV_R |
& rTrans(i,j)* |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
108 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
11 |
GAD_FLUXLIMIT_IMPL_R |
I deltaTarg, rTrans, tFld, |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
46 |
GAD_FLUXLIMIT_IMPL_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
85 |
GAD_FLUXLIMIT_IMPL_R |
w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k) |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
91 |
GAD_FLUXLIMIT_IMPL_R |
IF (rTrans(i,j).LT.0. _d 0) THEN |
./pkg/generic_advdiff/gad_c4_adv_r.F |
12 |
GAD_C4_ADV_R |
I rTrans, |
./pkg/generic_advdiff/gad_c4_adv_r.F |
40 |
GAD_C4_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_c4_adv_r.F |
85 |
GAD_C4_ADV_R |
& rTrans(i,j)*( |
./pkg/generic_advdiff/gad_c4_adv_r.F |
88 |
GAD_C4_ADV_R |
& +ABS(rTrans(i,j))* |
./pkg/generic_advdiff/gad_c2_impl_r.F |
11 |
GAD_C2_IMPL_R |
I deltaTarg, rTrans, |
./pkg/generic_advdiff/gad_c2_impl_r.F |
44 |
GAD_C2_IMPL_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_c2_impl_r.F |
63 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
29 |
GAD_DST3FL_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./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 |
86 |
GAD_DST3FL_ADV_R |
& 0.5*(rTrans(i,j)+abs(rTrans(i,j))) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
88 |
GAD_DST3FL_ADV_R |
& +0.5*(rTrans(i,j)-abs(rTrans(i,j))) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
8 |
GAD_DST3FL_ADV_R |
I rTrans, wVel, |
./pkg/generic_advdiff/gad_implicit_r.F |
177 |
GAD_IMPLICIT_R |
rTransKp1(i,j) = rTrans(i,j) |
./pkg/generic_advdiff/gad_implicit_r.F |
185 |
GAD_IMPLICIT_R |
rTrans(i,j) = 0. |
./pkg/generic_advdiff/gad_implicit_r.F |
191 |
GAD_IMPLICIT_R |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
./pkg/generic_advdiff/gad_implicit_r.F |
199 |
GAD_IMPLICIT_R |
& rTrans, bi, bj, k, myThid) |
./pkg/generic_advdiff/gad_implicit_r.F |
208 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
./pkg/generic_advdiff/gad_implicit_r.F |
224 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, |
./pkg/generic_advdiff/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, localTijk, |
./pkg/generic_advdiff/gad_implicit_r.F |
237 |
GAD_IMPLICIT_R |
I advectionScheme, dTtracerLev, rTrans, |
./pkg/generic_advdiff/gad_implicit_r.F |
72 |
GAD_IMPLICIT_R |
_RL rTrans(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
11 |
GAD_U3C4_IMPL_R |
I advectionScheme, deltaTarg, rTrans, |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
55 |
GAD_U3C4_IMPL_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
91 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
./pkg/generic_advdiff/gad_calc_rhs.F |
12 |
GAD_CALC_RHS |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./pkg/generic_advdiff/gad_calc_rhs.F |
384 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R(bi,bj,k,rTrans,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
387 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
389 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R(bi,bj,k,rTrans,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
391 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R(bi,bj,k,rTrans,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
394 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
401 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
404 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
512 |
GAD_CALC_RHS |
& +(rTransKp1(i,j)-rTrans(i,j))*rAdvFac |
./pkg/generic_advdiff/gad_calc_rhs.F |
84 |
GAD_CALC_RHS |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
107 |
GAD_FLUXLIMIT_ADV_R |
IF (rTrans(i,j).LT.0.) THEN |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
113 |
GAD_FLUXLIMIT_ADV_R |
IF (rTrans(i,j).LT.0.) THEN |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
121 |
GAD_FLUXLIMIT_ADV_R |
& rTrans(i,j)* |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
123 |
GAD_FLUXLIMIT_ADV_R |
& +(ABS(rTrans(i,j))*(1-Cr) |
./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 |
12 |
GAD_FLUXLIMIT_ADV_R |
I rTrans, wVel, |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
46 |
GAD_FLUXLIMIT_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./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 |
100 |
GAD_DST3_ADV_R |
& +0.5*(rTrans(i,j)-abs(rTrans(i,j))) |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
29 |
GAD_DST3_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./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 |
8 |
GAD_DST3_ADV_R |
I rTrans, wVel, |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
98 |
GAD_DST3_ADV_R |
& 0.5*(rTrans(i,j)+abs(rTrans(i,j))) |
./pkg/generic_advdiff/gad_u3_adv_r.F |
12 |
GAD_U3_ADV_R |
I rTrans, |
./pkg/generic_advdiff/gad_u3_adv_r.F |
39 |
GAD_U3_ADV_R |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_u3_adv_r.F |
79 |
GAD_U3_ADV_R |
& rTrans(i,j)*( |
./pkg/generic_advdiff/gad_u3_adv_r.F |
82 |
GAD_U3_ADV_R |
& +ABS(rTrans(i,j))* |
./pkg/generic_advdiff/gad_advection.F |
129 |
GAD_ADVECTION |
_RL rTrans (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_advection.F |
189 |
GAD_ADVECTION |
rTrans(i,j) = 0. _d 0 |
./pkg/generic_advdiff/gad_advection.F |
240 |
GAD_ADVECTION |
O xA,yA,uTrans,vTrans,rTrans,maskUp, |
./pkg/generic_advdiff/gad_advection.F |
657 |
GAD_ADVECTION |
rTransKp1(i,j) = kp1Msk*rTrans(i,j) |
./pkg/generic_advdiff/gad_advection.F |
658 |
GAD_ADVECTION |
rTrans(i,j) = 0. |
./pkg/generic_advdiff/gad_advection.F |
668 |
GAD_ADVECTION |
rTransKp1(i,j) = kp1Msk*rTrans(i,j) |
./pkg/generic_advdiff/gad_advection.F |
669 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
./pkg/generic_advdiff/gad_advection.F |
679 |
GAD_ADVECTION |
& rTrans, bi, bj, k, myThid) |
./pkg/generic_advdiff/gad_advection.F |
693 |
GAD_ADVECTION |
I rTrans, wVel, localTijk, |
./pkg/generic_advdiff/gad_advection.F |
697 |
GAD_ADVECTION |
I rTrans, wVel, localTijk, |
./pkg/generic_advdiff/gad_advection.F |
701 |
GAD_ADVECTION |
I rTrans, wVel, localTijk, |
./pkg/generic_advdiff/gad_advection.F |
724 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j)) |
./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 |
40 |
MOM_V_ADV_WV |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
57 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
75 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
84 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)* |
./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 |
39 |
MOM_U_ADV_WU |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/mom_fluxform/mom_u_adv_wu.F |
56 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
./pkg/mom_fluxform/mom_u_adv_wu.F |
74 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) |
./pkg/mom_fluxform/mom_u_adv_wu.F |
83 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)* |
./pkg/gmredi/gmredi_calc_wflow.F |
10 |
GMREDI_CALC_WFLOW |
U rTrans, |
./pkg/gmredi/gmredi_calc_wflow.F |
32 |
GMREDI_CALC_WFLOW |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/gmredi/gmredi_calc_wflow.F |
47 |
GMREDI_CALC_WFLOW |
rTrans(i,j) = rTrans(i,j) |
./pkg/gmredi/gmredi_rtransport.F |
138 |
GMREDI_RTRANSPORT |
rTrans(i,j) = |
./pkg/gmredi/gmredi_rtransport.F |
152 |
GMREDI_RTRANSPORT |
& +rTrans(i,j)*op5 |
./pkg/gmredi/gmredi_rtransport.F |
54 |
GMREDI_RTRANSPORT |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_gt.F |
12 |
CALC_GT |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./model/src/calc_gt.F |
74 |
CALC_GT |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_gt.F |
99 |
CALC_GT |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
./model/src/calc_common_factors.F |
113 |
CALC_COMMON_FACTORS |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)*maskUp(i,j) |
./model/src/calc_common_factors.F |
11 |
CALC_COMMON_FACTORS |
O xA,yA,uTrans,vTrans,rTrans,maskUp, |
./model/src/calc_common_factors.F |
53 |
CALC_COMMON_FACTORS |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_common_factors.F |
71 |
CALC_COMMON_FACTORS |
rTrans(i,j) = 0. _d 0 |