File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_advection.F |
126 |
GAD_ADVECTION |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_advection.F |
206 |
GAD_ADVECTION |
yA(i,j) = 0. _d 0 |
./pkg/generic_advdiff/gad_advection.F |
260 |
GAD_ADVECTION |
O uFld, vFld, uTrans, vTrans, xA, yA, |
./pkg/generic_advdiff/gad_biharm_y.F |
12 |
GAD_BIHARM_Y |
I yA,del2T,diffK4, |
./pkg/generic_advdiff/gad_biharm_y.F |
36 |
GAD_BIHARM_Y |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_biharm_y.F |
57 |
GAD_BIHARM_Y |
dfy(i,j) = dfy(i,j) + diffK4*yA(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 |
205 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
389 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
400 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
410 |
GAD_CALC_RHS |
I yA,TracerN,tracerIdentity, |
./pkg/generic_advdiff/gad_calc_rhs.F |
416 |
GAD_CALC_RHS |
I yA,TracAB, tracerIdentity, |
./pkg/generic_advdiff/gad_calc_rhs.F |
90 |
GAD_CALC_RHS |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_diff_y.F |
12 |
GAD_DIFF_Y |
I yA, diffKh, |
./pkg/generic_advdiff/gad_diff_y.F |
37 |
GAD_DIFF_Y |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_diff_y.F |
56 |
GAD_DIFF_Y |
dfy(i,j) = -diffKh*yA(i,j) |
./pkg/generic_advdiff/gad_grad_y.F |
12 |
GAD_GRAD_Y |
I yA, |
./pkg/generic_advdiff/gad_grad_y.F |
33 |
GAD_GRAD_Y |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_grad_y.F |
64 |
GAD_GRAD_Y |
dTdy(i,j) = yA(i,j) |
./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 |
99 |
GAD_SOM_ADVECT |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/ggl90/ggl90_calc.F |
110 |
GGL90_CALC |
_RL yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/ggl90/ggl90_calc.F |
350 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj) |
./pkg/ggl90/ggl90_calc.F |
371 |
GGL90_CALC |
dfy(i,j) = -GGL90diffTKEh*yA(i,j) |
./pkg/gmredi/gmredi_ytransport.F |
107 |
GMREDI_YTRANSPORT |
& -yA(i,j) |
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j) |
./pkg/gmredi/gmredi_ytransport.F |
40 |
GMREDI_YTRANSPORT |
_RS yA(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/gmredi/gmredi_ytransport.F |
8 |
GMREDI_YTRANSPORT |
I yA,Tracer,tracerIdentity, |
./pkg/longstep/longstep_thermodynamics.F |
101 |
LONGSTEP_THERMODYNAMICS |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/longstep/longstep_thermodynamics.F |
182 |
LONGSTEP_THERMODYNAMICS |
yA(i,j) = 0. _d 0 |
./pkg/longstep/longstep_thermodynamics.F |
328 |
LONGSTEP_THERMODYNAMICS |
O uFld, vFld, uTrans, vTrans, xA, yA, |
./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 |
55 |
CALC_COMMON_FACTORS |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_common_factors.F |
82 |
CALC_COMMON_FACTORS |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
./model/src/calc_div_ghat.F |
139 |
CALC_DIV_GHAT |
pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
./model/src/calc_div_ghat.F |
148 |
CALC_DIV_GHAT |
& *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
./model/src/calc_div_ghat.F |
157 |
CALC_DIV_GHAT |
& ) * yA(i,j) / deltaTmom |
./model/src/calc_div_ghat.F |
57 |
CALC_DIV_GHAT |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_div_ghat.F |
66 |
CALC_DIV_GHAT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
./pkg/mom_fluxform/mom_fluxform.F |
124 |
MOM_FLUXFORM |
_RS yA(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/mom_fluxform/mom_fluxform.F |
259 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
./pkg/mom_fluxform/mom_fluxform.F |
277 |
MOM_FLUXFORM |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
./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 |
89 |
CALC_GS |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./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 |
88 |
CALC_GT |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_gw.F |
206 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
./model/src/calc_gw.F |
245 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
./model/src/calc_gw.F |
308 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
./model/src/calc_gw.F |
355 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
./model/src/calc_gw.F |
361 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
./model/src/calc_gw.F |
78 |
CALC_GW |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./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 |
59 |
PTRACERS_INTEGRATE |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_advdiff.F |
175 |
SEAICE_ADVDIFF |
yA(i,j) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj) |
./pkg/seaice/seaice_advdiff.F |
182 |
SEAICE_ADVDIFF |
vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j) |
./pkg/seaice/seaice_advdiff.F |
198 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
224 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
250 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
277 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
305 |
SEAICE_ADVDIFF |
I IceAge(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
79 |
SEAICE_ADVDIFF |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_diffusion.F |
11 |
SEAICE_DIFFUSION |
I iceFld, iceMask, xA, yA, |
./pkg/seaice/seaice_diffusion.F |
46 |
SEAICE_DIFFUSION |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diff1,iceFld,fMer,myThid) |
./pkg/smooth/smooth_rhs.F |
102 |
SMOOTH_RHS |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj) |
./pkg/smooth/smooth_rhs.F |
187 |
SMOOTH_RHS |
& -yA(i,j,bi,bj) |
./pkg/smooth/smooth_rhs.F |
210 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj) |
./pkg/smooth/smooth_rhs.F |
231 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj) |
./pkg/smooth/smooth_rhs.F |
57 |
SMOOTH_RHS |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./model/src/thermodynamics.F |
159 |
THERMODYNAMICS |
_RS yA (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/thermodynamics.F |
265 |
THERMODYNAMICS |
yA(i,j) = 0. _d 0 |
./model/src/thermodynamics.F |
499 |
THERMODYNAMICS |
O uFld, vFld, uTrans, vTrans, xA, yA, |
./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, |