| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
273 |
NO PROCEDURE |
_RL Rdef(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
276 |
NO PROCEDURE |
COMMON /GM_K3D/ K3D, modesC, modesW, modesS, Rdef, gradf |
|
./pkg/gmredi/gmredi_k3d.F |
1102 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rdef, 'GM_RDEF ',0, 1,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
466 |
GMREDI_K3D |
Rdef(i,j,bi,bj) = MIN(Rmid(i,j),Req) |
|
./pkg/gmredi/gmredi_k3d.F |
553 |
GMREDI_K3D |
Rurms(i,j) = MIN(Rdef(i,j,bi,bj),GM_K3D_Rmax) |
|
./pkg/gmredi/gmredi_k3d.F |
563 |
GMREDI_K3D |
Rmix(i,j) = MIN(Rdef(i,j,bi,bj), RRhines(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
569 |
GMREDI_K3D |
& - gradf(i,j,bi,bj)*Rdef(i,j,bi,bj)*Rdef(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
198 |
GMREDI_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fieldname, Rdef, |
|
./pkg/gmredi/gmredi_read_pickup.F |
200 |
GMREDI_READ_PICKUP |
CALL EXCH_XY_RL(Rdef, myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
145 |
GMREDI_WRITE_PICKUP |
& Rdef, nm, myIter, myThid ) |