| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
134 |
GAD_CALC_RHS |
_RL fZon (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
166 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
206 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
212 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
261 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + af(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
310 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
625 |
GAD_CALC_RHS |
& *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
642 |
GAD_CALC_RHS |
IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
643 |
GAD_CALC_RHS |
IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j) =fac*fZon(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
696 |
GAD_CALC_RHS |
& *( (fZon(i+1,j)-fZon(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
714 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
108 |
MOM_FLUXFORM |
_RL fZon(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
191 |
MOM_FLUXFORM |
fZon(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
380 |
MOM_FLUXFORM |
O fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
389 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU(bi,bj,k,uTrans,uFld,fZon,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
413 |
MOM_FLUXFORM |
& *( ( fZon(i,j ) - fZon(i-1,j) )*uDudxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
422 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
471 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX(bi,bj,k,uFld,v4F,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
496 |
MOM_FLUXFORM |
& *( ( fZon(i,j ) - fZon(i-1,j) )*AhDudxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
506 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
596 |
MOM_FLUXFORM |
O fZon,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 |
629 |
MOM_FLUXFORM |
& *( ( fZon(i+1,j) - fZon(i,j ) )*uDvdxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
638 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Vm ',k,1,2,bi,bj,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 |
711 |
MOM_FLUXFORM |
& *( ( fZon(i+1,j) - fZon(i,j ) )*AhDvdxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
721 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
44 |
MOM_U_DEL2U |
_RL fZon(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
52 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
85 |
MOM_U_DEL2U |
& *( fZon(i,j ) - fZon(i-1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
43 |
MOM_V_DEL2V |
_RL fZon(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
51 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
84 |
MOM_V_DEL2V |
& *( fZon(i+1,j) - fZon(i, j ) |
|
./pkg/seaice/seaice_diffusion.F |
106 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
63 |
SEAICE_DIFFUSION |
_RL fZon (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_diffusion.F |
77 |
SEAICE_DIFFUSION |
fZon (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_diffusion.F |
82 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diff1,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
96 |
SEAICE_DIFFUSION |
& *( (fZon(i+1,j)-fZon(i,j)) |
|
./pkg/smooth/smooth_rhs.F |
172 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
336 |
SMOOTH_RHS |
CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid) |
|
./pkg/smooth/smooth_rhs.F |
348 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
359 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
65 |
SMOOTH_RHS |
_RL fZon (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
110 |
GAD_2D_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
118 |
GAD_2D_CALC_RHS |
fZon(i,j) = fZon(i,j) + af(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
135 |
GAD_2D_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
168 |
GAD_2D_CALC_RHS |
& *(fZon(i+1,j)-fZon(i,j)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
84 |
GAD_2D_CALC_RHS |
_RL fZon (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
94 |
GAD_2D_CALC_RHS |
fZon(i,j) = 0. _d 0 |