| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_eigs.F |
10 |
GMREDI_CALC_EIGS |
I bi, bj, N2, myThid, kLow, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
129 |
GMREDI_CALC_EIGS |
& *recip_drC(k+1)*recip_drF(k)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
134 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
136 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k+1)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
141 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
250 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = mask(i,j,k)*SQRT(N2(i,j,k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
45 |
GMREDI_CALC_EIGS |
_RL N2( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_urms.F |
10 |
GMREDI_CALC_URMS |
I bi, bj, N2, myThid, |
|
./pkg/gmredi/gmredi_calc_urms.F |
36 |
GMREDI_CALC_URMS |
_RL N2( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
109 |
GMREDI_K3D |
_RL N2( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
423 |
GMREDI_K3D |
N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
424 |
GMREDI_K3D |
N2(i,j,k) = MAX(N2(i,j,k),GM_K3D_minN2)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
425 |
GMREDI_K3D |
N(i,j,k) = SQRT(N2(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
432 |
GMREDI_K3D |
N2(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
456 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
494 |
GMREDI_K3D |
N2loc(i,j,k) = op5*(N2(i,j,k)+mskp1*N2(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
580 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
810 |
GMREDI_K3D |
& *( N2(i,j,k)+N2(i-1,j,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
812 |
GMREDI_K3D |
& *( N2(i,j,k)+N2(i,j-1,k) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
34 |
SHAP_FILT_TRACEROLD |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
45 |
SHAP_FILT_TRACEROLD |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
48 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracerold.F |
60 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
61 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
75 |
SHAP_FILT_TRACEROLD |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
78 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracerold.F |
91 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
98 |
SHAP_FILT_TRACEROLD |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
|
./pkg/shap_filt/shap_filt_u.F |
101 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
108 |
SHAP_FILT_U |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
|
./pkg/shap_filt/shap_filt_u.F |
33 |
SHAP_FILT_U |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_u.F |
45 |
SHAP_FILT_U |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_u.F |
48 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_u.F |
67 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
68 |
SHAP_FILT_U |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
83 |
SHAP_FILT_U |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_u.F |
86 |
SHAP_FILT_U |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_v.F |
101 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
108 |
SHAP_FILT_V |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
|
./pkg/shap_filt/shap_filt_v.F |
33 |
SHAP_FILT_V |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_v.F |
53 |
SHAP_FILT_V |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_v.F |
56 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_v.F |
70 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
71 |
SHAP_FILT_V |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
86 |
SHAP_FILT_V |
N2=1+mod( N ,2) |
|
./pkg/shap_filt/shap_filt_v.F |
89 |
SHAP_FILT_V |
tmpFldY(i,j,N2) = -0.25*( |