| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
128 |
GAD_ADVECTION |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_advection.F |
260 |
GAD_ADVECTION |
O uFld, vFld, uTrans, vTrans, xA, yA, |
|
./pkg/generic_advdiff/gad_advection.F |
267 |
GAD_ADVECTION |
U uFld, vFld, uTrans, vTrans, |
|
./pkg/generic_advdiff/gad_advection.F |
535 |
GAD_ADVECTION |
I deltaTLev(k),vTrans,vFld,localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
539 |
GAD_ADVECTION |
I vTrans, vFld, maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
543 |
GAD_ADVECTION |
I vTrans, vFld, maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
547 |
GAD_ADVECTION |
I vTrans, vFld, maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
552 |
GAD_ADVECTION |
I vTrans, vFld, maskLocS, localTij, |
|
./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 |
338 |
GAD_CALC_RHS |
I deltaTLev(k), vTrans, vFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
342 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
358 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
362 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
368 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
93 |
GAD_CALC_RHS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
12 |
GAD_DST2U1_ADV_Y |
I deltaTloc, vTrans, vFld, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
43 |
GAD_DST2U1_ADV_Y |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
68 |
GAD_DST2U1_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
69 |
GAD_DST2U1_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
12 |
GAD_DST3_ADV_Y |
I vTrans, vFld, |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
44 |
GAD_DST3_ADV_Y |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
82 |
GAD_DST3_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
83 |
GAD_DST3_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
29 |
GAD_DST3FL_ADV_Y |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
52 |
GAD_DST3FL_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
53 |
GAD_DST3FL_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
8 |
GAD_DST3FL_ADV_Y |
I vTrans, vFld, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
12 |
GAD_FLUXLIMIT_ADV_Y |
I vTrans, vFld, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
48 |
GAD_FLUXLIMIT_ADV_Y |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
76 |
GAD_FLUXLIMIT_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
77 |
GAD_FLUXLIMIT_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
29 |
GAD_OS7MP_ADV_Y |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
65 |
GAD_OS7MP_ADV_Y |
vLoc = vFld(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
8 |
GAD_OS7MP_ADV_Y |
I vTrans, vFld, |
|
./pkg/generic_advdiff/gad_som_advect.F |
101 |
GAD_SOM_ADVECT |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
252 |
GAD_SOM_ADVECT |
O uFld, vFld, uTrans, vTrans, xA, yA, |
|
./pkg/generic_advdiff/gad_som_advect.F |
259 |
GAD_SOM_ADVECT |
U uFld, vFld, uTrans, vTrans, |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
10 |
GMREDI_CALC_UVFLOW |
U uFld, vFld, uTrans, vTrans, |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
36 |
GMREDI_CALC_UVFLOW |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
72 |
GMREDI_CALC_UVFLOW |
vFld(i,j) = vFld(i,j) |
|
./pkg/longstep/longstep_thermodynamics.F |
103 |
LONGSTEP_THERMODYNAMICS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/longstep/longstep_thermodynamics.F |
328 |
LONGSTEP_THERMODYNAMICS |
O uFld, vFld, uTrans, vTrans, xA, yA, |
|
./pkg/longstep/longstep_thermodynamics.F |
358 |
LONGSTEP_THERMODYNAMICS |
U uFld, vFld, uTrans, vTrans, |
|
./pkg/longstep/longstep_thermodynamics.F |
425 |
LONGSTEP_THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_common_factors.F |
100 |
CALC_COMMON_FACTORS |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
|
./model/src/calc_common_factors.F |
11 |
CALC_COMMON_FACTORS |
O uFld, vFld, uTrans, vTrans, xA, yA, |
|
./model/src/calc_common_factors.F |
51 |
CALC_COMMON_FACTORS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/calc_common_factors.F |
91 |
CALC_COMMON_FACTORS |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
26 |
MOM_CALC_HDIV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_hdiv.F |
41 |
MOM_CALC_HDIV |
& +vFld( i ,j+1)*dxg( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
42 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxg( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
55 |
MOM_CALC_HDIV |
& +( vFld( i ,j+1)*dxg( i ,j+1,bi,bj)*hFacS( i ,j+1,K,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxg( i , j ,bi,bj)*hFacS( i , j ,K,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
8 |
MOM_CALC_HDIV |
I uFld, vFld, |
|
./pkg/mom_common/mom_calc_ke.F |
104 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
105 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
122 |
MOM_CALC_KE |
& vFld(i, j )*vFld(i, j ) |
|
./pkg/mom_common/mom_calc_ke.F |
124 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1) |
|
./pkg/mom_common/mom_calc_ke.F |
12 |
MOM_CALC_KE |
I uFld, vFld, |
|
./pkg/mom_common/mom_calc_ke.F |
37 |
MOM_CALC_KE |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_ke.F |
61 |
MOM_CALC_KE |
& +( vFld(i,j)+vFld( i ,j+1) )**2 ) |
|
./pkg/mom_common/mom_calc_ke.F |
77 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_ke.F |
78 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1) ) |
|
./pkg/mom_common/mom_calc_ke.F |
90 |
MOM_CALC_KE |
& + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
91 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
119 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
133 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
134 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
136 |
MOM_CALC_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
162 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
168 |
MOM_CALC_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
177 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
190 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
191 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
193 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
219 |
MOM_CALC_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
227 |
MOM_CALC_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
232 |
MOM_CALC_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
247 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
248 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
249 |
MOM_CALC_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
276 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
284 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
297 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
298 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
299 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
31 |
MOM_CALC_RELVORT3 |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_relvort3.F |
59 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
60 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
9 |
MOM_CALC_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./pkg/mom_common/mom_calc_strain.F |
12 |
MOM_CALC_STRAIN |
I uFld, vFld, hFacZ, |
|
./pkg/mom_common/mom_calc_strain.F |
40 |
MOM_CALC_STRAIN |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_strain.F |
58 |
MOM_CALC_STRAIN |
& ( dyc( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
59 |
MOM_CALC_STRAIN |
& -dyc(i-1, j ,bi,bj)*vFld(i-1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
12 |
MOM_CALC_TENSION |
I uFld, vFld, |
|
./pkg/mom_common/mom_calc_tension.F |
37 |
MOM_CALC_TENSION |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_tension.F |
57 |
MOM_CALC_TENSION |
& -dxg( i ,j+1,bi,bj)*vFld( i ,j+1) |
|
./pkg/mom_common/mom_calc_tension.F |
58 |
MOM_CALC_TENSION |
& +dxg( i , j ,bi,bj)*vFld( i , j ) )*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
12 |
MOM_QUASIHYDROSTATIC |
I uFld, vFld, |
|
./pkg/mom_common/mom_quasihydrostatic.F |
40 |
MOM_QUASIHYDROSTATIC |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
70 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
83 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
84 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
101 |
MOM_V_BOTTOMDRAG |
& *(1.-maskDown)*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
19 |
MOM_V_BOTTOMDRAG |
I vFld, KE, KappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
47 |
MOM_V_BOTTOMDRAG |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
96 |
MOM_V_BOTTOMDRAG |
& )*(1.-maskDown)*vFld(i,j) |
|
./pkg/mom_common/mom_v_metric_nh.F |
12 |
MOM_V_METRIC_NH |
I vFld,wFld, |
|
./pkg/mom_common/mom_v_metric_nh.F |
36 |
MOM_V_METRIC_NH |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_metric_nh.F |
56 |
MOM_V_METRIC_NH |
vMetricTerms(i,j) = vFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
12 |
MOM_V_RVISCFLUX |
I vFld, KappaRV, |
|
./pkg/mom_common/mom_v_rviscflux.F |
37 |
MOM_V_RVISCFLUX |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_v_rviscflux.F |
63 |
MOM_V_RVISCFLUX |
& *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
126 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
12 |
MOM_V_SIDEDRAG |
I vFld, del2v, hFacZ, |
|
./pkg/mom_common/mom_v_sidedrag.F |
133 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
40 |
MOM_V_SIDEDRAG |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_sidedrag.F |
95 |
MOM_V_SIDEDRAG |
& Ahtmp*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
12 |
MOM_W_CORIOLIS_NH |
I uFld, vFld, |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
37 |
MOM_W_CORIOLIS_NH |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
62 |
MOM_W_CORIOLIS_NH |
& (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
63 |
MOM_W_CORIOLIS_NH |
& + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
12 |
MOM_W_METRIC_NH |
I uFld, vFld, |
|
./pkg/mom_common/mom_w_metric_nh.F |
37 |
MOM_W_METRIC_NH |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_metric_nh.F |
57 |
MOM_W_METRIC_NH |
& + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
58 |
MOM_W_METRIC_NH |
& +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
62 |
MOM_W_METRIC_NH |
& + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
63 |
MOM_W_METRIC_NH |
& +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_fluxform/mom_fluxform.F |
128 |
MOM_FLUXFORM |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
268 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
277 |
MOM_FLUXFORM |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
281 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
283 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
286 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
571 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
580 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
605 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV(bi,bj,k,uTrans,vFld,fZon,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
609 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV(bi,bj,k,vTrans,vFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
683 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V(bi,bj,k,vFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
686 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX(bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX(bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
733 |
MOM_FLUXFORM |
I vFld, v4f, hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
746 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
756 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
795 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
811 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS(bi,bj,k,vFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
11 |
MOM_U_CORIOLIS |
I bi,bj,k,vFld, |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
35 |
MOM_U_CORIOLIS |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
55 |
MOM_U_CORIOLIS |
& *0.5*( vFld( i ,j)+vFld( i ,j+1) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
57 |
MOM_U_CORIOLIS |
& *0.5*( vFld(i-1,j)+vFld(i-1,j+1) ) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
68 |
MOM_U_CORIOLIS |
& vFld( i ,j)+vFld( i ,j+1) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
69 |
MOM_U_CORIOLIS |
& +vFld(i-1,j)+vFld(i-1,j+1) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
12 |
MOM_U_METRIC_CYLINDER |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
37 |
MOM_U_METRIC_CYLINDER |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
58 |
MOM_U_METRIC_CYLINDER |
& *0.25*(vFld(i,j) + vFld(i-1,j) + |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
59 |
MOM_U_METRIC_CYLINDER |
& vFld(i,j+1)+vFld(i-1,j+1))/radius |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
12 |
MOM_U_METRIC_SPHERE |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
37 |
MOM_U_METRIC_SPHERE |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
53 |
MOM_U_METRIC_SPHERE |
& *0.25*( vFld(i,j )+vFld(i-1,j ) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
54 |
MOM_U_METRIC_SPHERE |
& +vFld(i,j+1)+vFld(i-1,j+1) |
|
./model/src/calc_gs.F |
12 |
CALC_GS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gs.F |
164 |
CALC_GS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gs.F |
176 |
CALC_GS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gs.F |
92 |
CALC_GS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
12 |
MOM_UV_BOUNDARY |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
149 |
MOM_UV_BOUNDARY |
& *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
151 |
MOM_UV_BOUNDARY |
& *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
153 |
MOM_UV_BOUNDARY |
& *(vFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
154 |
MOM_UV_BOUNDARY |
& +vFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
40 |
MOM_UV_BOUNDARY |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
71 |
MOM_UV_BOUNDARY |
vBnd(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
98 |
MOM_UV_BOUNDARY |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
12 |
MOM_V_ADV_UV |
I uTrans, vFld, |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
37 |
MOM_V_ADV_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
53 |
MOM_V_ADV_UV |
& *( vFld(i,j)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
54 |
MOM_V_ADV_UV |
& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
56 |
MOM_V_ADV_UV |
& *( vFld(i,j) + vFld(i-1,j) ) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
12 |
MOM_V_ADV_VV |
I vTrans, vFld, |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
37 |
MOM_V_ADV_VV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
54 |
MOM_V_ADV_VV |
& *( vFld(i,j)*_maskS(i,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
55 |
MOM_V_ADV_VV |
& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
57 |
MOM_V_ADV_VV |
& *( vFld(i,j) + vFld(i,j+1) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
105 |
MOM_V_ADV_WV |
& *vFld(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 |
38 |
MOM_V_ADV_WV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
56 |
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 |
74 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
86 |
MOM_V_ADV_WV |
& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
88 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
103 |
MOM_V_DEL2V |
& )*drF(k)*2.*vFld(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
12 |
MOM_V_DEL2V |
I vFld, hFacZ, |
|
./pkg/mom_fluxform/mom_v_del2v.F |
33 |
MOM_V_DEL2V |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
54 |
MOM_V_DEL2V |
& *(vFld(i,j)-vFld(i-1,j)) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
& *(vFld(i,j+1)-vFld(i,j)) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
12 |
MOM_V_METRIC_CYLINDER |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
37 |
MOM_V_METRIC_CYLINDER |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
12 |
MOM_V_XVISCFLUX |
I vFld, del2v, hFacZ, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
38 |
MOM_V_XVISCFLUX |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
60 |
MOM_V_XVISCFLUX |
& -viscAh_Z(i,j)*( vFld(i,j)-vFld(i-1,j) ) |
|
./model/src/calc_gt.F |
12 |
CALC_GT |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
163 |
CALC_GT |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
175 |
CALC_GT |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/calc_gt.F |
91 |
CALC_GT |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
12 |
MOM_V_YVISCFLUX |
I vFld, del2v, |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
38 |
MOM_V_YVISCFLUX |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
59 |
MOM_V_YVISCFLUX |
& -viscAh_D(i,j)*( vFld(i,j+1)-vFld(i,j) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
223 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
231 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
233 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
244 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
246 |
MOM_VECINV |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
425 |
MOM_VECINV |
I vFld, del2v, hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
438 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
447 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
495 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
500 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
542 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
545 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,vort3, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
548 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
551 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
81 |
MOM_VECINV |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
26 |
MOM_VI_CORIOLIS |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
60 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
61 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
62 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
63 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
8 |
MOM_VI_CORIOLIS |
I uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
117 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
118 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
11 |
MOM_VI_U_CORIOLIS |
I vFld, omega3, hFacZ, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
120 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
121 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
152 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
158 |
MOM_VI_U_CORIOLIS |
& *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
164 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
170 |
MOM_VI_U_CORIOLIS |
& *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
35 |
MOM_VI_U_CORIOLIS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
66 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
67 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
69 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
92 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
93 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i, j )) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
94 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
95 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
11 |
MOM_VI_U_CORIOLIS_C4 |
I vFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
129 |
MOM_VI_U_CORIOLIS_C4 |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
130 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
131 |
MOM_VI_U_CORIOLIS_C4 |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
132 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
165 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
166 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
168 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
169 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
39 |
MOM_VI_U_CORIOLIS_C4 |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
103 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
25 |
MOM_VI_V_VERTSHEAR |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
8 |
MOM_VI_V_VERTSHEAR |
I vFld,wFld, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/obcs/obcs_apply_uv.F |
100 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
10 |
OBCS_APPLY_UV |
U uFld, vFld, |
|
./pkg/obcs/obcs_apply_uv.F |
122 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
140 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
39 |
OBCS_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
82 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
86 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
106 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
107 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
135 |
OBCS_APPLY_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
147 |
OBCS_APPLY_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
161 |
OBCS_APPLY_UVICE |
& ( vFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
162 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
179 |
OBCS_APPLY_UVICE |
vFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
181 |
OBCS_APPLY_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
191 |
OBCS_APPLY_UVICE |
vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
204 |
OBCS_APPLY_UVICE |
& vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
205 |
OBCS_APPLY_UVICE |
& ( vFld(OB_Iw(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
206 |
OBCS_APPLY_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
22 |
OBCS_APPLY_UVICE |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uvice.F |
45 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
47 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
50 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
51 |
OBCS_APPLY_UVICE |
& max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) * |
|
./pkg/obcs/obcs_apply_uvice.F |
54 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNvice(I,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
62 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
63 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
64 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
7 |
OBCS_APPLY_UVICE |
U uFld, vFld, |
|
./pkg/obcs/obcs_apply_uvice.F |
89 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
91 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
95 |
OBCS_APPLY_UVICE |
& min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
98 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj) |
|
./pkg/ptracers/ptracers_integrate.F |
12 |
PTRACERS_INTEGRATE |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
139 |
PTRACERS_INTEGRATE |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
62 |
PTRACERS_INTEGRATE |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
120 |
DIAGS_RHO_G |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
91 |
DIAGS_RHO_G |
I rho3d, uFld, vFld, |
|
./pkg/seaice/seaice_advection.F |
17 |
SEAICE_ADVECTION |
I uFld, vFld, uTrans, vTrans, iceFld, r_hFld, |
|
./pkg/seaice/seaice_advection.F |
542 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, vTrans, vFld, localTij, |
|
./pkg/seaice/seaice_advection.F |
552 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, vTrans, vFld, maskLocS, localTij, |
|
./pkg/seaice/seaice_advection.F |
556 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, vTrans, vFld, maskLocS, localTij, |
|
./pkg/seaice/seaice_advection.F |
560 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, vTrans, vFld, maskLocS, localTij, |
|
./pkg/seaice/seaice_advection.F |
565 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, vTrans, vFld, maskLocS, localTij, |
|
./pkg/seaice/seaice_advection.F |
81 |
SEAICE_ADVECTION |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_calc_strainrates.F |
106 |
SEAICE_CALC_STRAINRATES |
dvdx(I,J) = ( vFld(I,J,bi,bj) - vFld(I-1,J ,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
108 |
SEAICE_CALC_STRAINRATES |
vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I-1,J ,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
42 |
SEAICE_CALC_STRAINRATES |
_RL vFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_calc_strainrates.F |
84 |
SEAICE_CALC_STRAINRATES |
& (vFld(I,J+1,bi,bj)-vFld(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
85 |
SEAICE_CALC_STRAINRATES |
vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I,J+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
8 |
SEAICE_CALC_STRAINRATES |
I uFld, vFld, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
103 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
10 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
145 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld2(i,j ,k,bi,bj)*vFld(i,j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
147 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld2(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
40 |
SHAP_FILT_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
70 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( vFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
76 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_V( vFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
82 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( vFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
87 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
91 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
95 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_computvort.F |
109 |
SHAP_FILT_COMPUTVORT |
& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
10 |
SHAP_FILT_COMPUTVORT |
I uFld, vFld, |
|
./pkg/shap_filt/shap_filt_computvort.F |
124 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
127 |
SHAP_FILT_COMPUTVORT |
& (-vFld(i-1,j) +uFld(i,j-1) ) -uFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
130 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
146 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) +vFld(i,j) ) -uFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
149 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) +uFld(i,j-1) ) +vFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
152 |
SHAP_FILT_COMPUTVORT |
& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
168 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
171 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
42 |
SHAP_FILT_COMPUTVORT |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_computvort.F |
73 |
SHAP_FILT_COMPUTVORT |
vort(i,j) = ( vFld(i,j)-vFld(i-1,j) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
126 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
141 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
142 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
144 |
SHAP_FILT_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
170 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
176 |
SHAP_FILT_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
185 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
199 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
200 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
202 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
228 |
SHAP_FILT_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
236 |
SHAP_FILT_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
241 |
SHAP_FILT_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
257 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
258 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
259 |
SHAP_FILT_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
286 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
294 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
308 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
309 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
310 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
34 |
SHAP_FILT_RELVORT3 |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
63 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
64 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
9 |
SHAP_FILT_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
10 |
SHAP_FILT_UV_S1 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
147 |
SHAP_FILT_UV_S1 |
tmpScal = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
148 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
274 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
283 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
285 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
43 |
SHAP_FILT_UV_S1 |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
72 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
10 |
SHAP_FILT_UV_S2 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
257 |
SHAP_FILT_UV_S2 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
268 |
SHAP_FILT_UV_S2 |
& CALL EXCH_UV_3D_RL( uFld, vFld, .TRUE., kSize, myThid ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
47 |
SHAP_FILT_UV_S2 |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
92 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
10 |
SHAP_FILT_UV_S2C |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
207 |
SHAP_FILT_UV_S2C |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
217 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
219 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
43 |
SHAP_FILT_UV_S2C |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
71 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
10 |
SHAP_FILT_UV_S4 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
145 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
147 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
276 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
285 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
287 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
43 |
SHAP_FILT_UV_S4 |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
71 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
13 |
SHELFICE_V_DRAG |
I vFld, KE, KappaRV, |
|
./pkg/shelfice/shelfice_v_drag.F |
40 |
SHELFICE_V_DRAG |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shelfice/shelfice_v_drag.F |
81 |
SHELFICE_V_DRAG |
& )*(1.-maskUp)*vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
86 |
SHELFICE_V_DRAG |
& *(1.-maskUp)*vFld(i,j) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
11 |
ZONAL_FILT_APPLY_UV |
U uFld, vFld, |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
31 |
ZONAL_FILT_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
76 |
ZONAL_FILT_APPLY_UV |
U vFld( 1-OLx,1-OLy,1,bi,bj), |
|
./model/src/integr_continuity.F |
11 |
INTEGR_CONTINUITY |
I bi, bj, uFld, vFld, |
|
./model/src/integr_continuity.F |
230 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, addMass, |
|
./model/src/integr_continuity.F |
46 |
INTEGR_CONTINUITY |
_RL vFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/integr_continuity.F |
99 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi, bj, k, uFld, vFld, mFld, |
|
./model/src/integrate_for_w.F |
37 |
INTEGRATE_FOR_W |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
63 |
INTEGRATE_FOR_W |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
161 |
THERMODYNAMICS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/thermodynamics.F |
499 |
THERMODYNAMICS |
O uFld, vFld, uTrans, vTrans, xA, yA, |
|
./model/src/thermodynamics.F |
529 |
THERMODYNAMICS |
U uFld, vFld, uTrans, vTrans, |
|
./model/src/thermodynamics.F |
626 |
THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
676 |
THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
715 |
THERMODYNAMICS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
136 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i , 1-j ) = vFld( 1-j , i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
137 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i , 1-j ) = uFld( 1-j , i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
144 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
145 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+j, i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
14 |
FILL_CS_CORNER_AG_RL |
U uFld, vFld, |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
152 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
153 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i ,sNy+j) = uFld( 1-j , sNy+1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
160 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i,sNy+j) = vFld(sNx+j, sNy+1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
161 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i,sNy+j) = uFld(sNx+j, sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
210 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i , 1-j ) = vFld( j , 1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
211 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i , 1-j ) = uFld( j , 1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
218 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+1-j, 1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
219 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
226 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i ,sNy+j) = vFld( j ,sNy+i)*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
227 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i ,sNy+j) = uFld( j ,sNy+i) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
234 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i,sNy+j) = vFld(sNx+1-j,sNy+i) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
235 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i,sNy+j) = uFld(sNx+1-j,sNy+i)*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
52 |
FILL_CS_CORNER_AG_RL |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
129 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
135 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
144 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
14 |
FILL_CS_CORNER_UV_RS |
U uFld, vFld, |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
150 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
159 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
165 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i ,sNy+j) = uFld( j , sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
174 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
180 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
49 |
FILL_CS_CORNER_UV_RS |
_RS vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/debug/debug_cs_corner_uv.F |
47 |
DEBUG_CS_CORNER_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/debug/debug_cs_corner_uv.F |
82 |
DEBUG_CS_CORNER_UV |
tmpV(1,k,bi,bj)= vFld(j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
83 |
DEBUG_CS_CORNER_UV |
tmpV(2,k,bi,bj)= vFld(sNx+1-j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
84 |
DEBUG_CS_CORNER_UV |
tmpV(3,k,bi,bj)= vFld(j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpV(4,k,bi,bj)= vFld(sNx+1-j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
8 |
DEBUG_CS_CORNER_UV |
I uFld, vFld, |