| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_eigs.F |
111 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
13 |
GMREDI_CALC_EIGS |
O Rmid, vec) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
215 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
219 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
228 |
GMREDI_CALC_EIGS |
vec(m,i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
309 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -COS(intN(i,j,k)/(m*c1(i,j))) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
329 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
345 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k) - vecint(m,i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
367 |
GMREDI_CALC_EIGS |
& *vec(m,i,j,k)*vec(m,i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
385 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
47 |
GMREDI_CALC_EIGS |
_RL vec(nmodes,1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_read_pickup.F |
140 |
GMREDI_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fieldname, vec, |
|
./pkg/gmredi/gmredi_read_pickup.F |
142 |
GMREDI_READ_PICKUP |
CALL EXCH_3D_RL(vec, Nr, myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
148 |
GMREDI_READ_PICKUP |
modesC(1,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
158 |
GMREDI_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fieldname, vec, |
|
./pkg/gmredi/gmredi_read_pickup.F |
160 |
GMREDI_READ_PICKUP |
CALL EXCH_3D_RL(vec, Nr, myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
166 |
GMREDI_READ_PICKUP |
modesW(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
177 |
GMREDI_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fieldname, vec, |
|
./pkg/gmredi/gmredi_read_pickup.F |
179 |
GMREDI_READ_PICKUP |
CALL EXCH_3D_RL(vec, Nr, myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
185 |
GMREDI_READ_PICKUP |
modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
52 |
GMREDI_READ_PICKUP |
_RL vec(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_write_pickup.F |
104 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesW(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
112 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
124 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesS(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
132 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
62 |
GMREDI_WRITE_PICKUP |
_RL vec(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_write_pickup.F |
85 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesC(1,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
93 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |