| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
165 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
171 |
MOM_U_BOTDRAG_IMPL |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
174 |
MOM_U_BOTDRAG_IMPL |
& *bottomDragQuadratic*SQRT(uSq)*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
183 |
MOM_U_BOTDRAG_IMPL |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
185 |
MOM_U_BOTDRAG_IMPL |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
186 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
191 |
MOM_U_BOTDRAG_IMPL |
& )/uSq |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
193 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
195 |
MOM_U_BOTDRAG_IMPL |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
198 |
MOM_U_BOTDRAG_IMPL |
& *bottomDragQuadratic*SQRT(uSq)*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
57 |
MOM_U_BOTDRAG_IMPL |
_RL viscFac, dragFac, uSq |
|
./pkg/mom_common/mom_u_bottomdrag.F |
151 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
157 |
MOM_U_BOTTOMDRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
160 |
MOM_U_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(uSq)*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
169 |
MOM_U_BOTTOMDRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
171 |
MOM_U_BOTTOMDRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
172 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
177 |
MOM_U_BOTTOMDRAG |
& )/uSq |
|
./pkg/mom_common/mom_u_bottomdrag.F |
179 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
181 |
MOM_U_BOTTOMDRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
184 |
MOM_U_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(uSq)*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
57 |
MOM_U_BOTTOMDRAG |
_RL viscFac, dragFac, uSq |
|
./pkg/shelfice/shelfice_u_drag.F |
123 |
SHELFICE_U_DRAG |
uSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
125 |
SHELFICE_U_DRAG |
uSq = KE(i,j)+KE(i-1,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
127 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
130 |
SHELFICE_U_DRAG |
& * SHELFICEDragQuadratic*SQRT(uSq) |
|
./pkg/shelfice/shelfice_u_drag.F |
139 |
SHELFICE_U_DRAG |
uSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
141 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
148 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
151 |
SHELFICE_U_DRAG |
& * SHELFICEDragQuadratic*SQRT(uSq) |
|
./pkg/shelfice/shelfice_u_drag.F |
160 |
SHELFICE_U_DRAG |
uSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
162 |
SHELFICE_U_DRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
164 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
165 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
170 |
SHELFICE_U_DRAG |
& )/uSq |
|
./pkg/shelfice/shelfice_u_drag.F |
172 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
175 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
178 |
SHELFICE_U_DRAG |
& * SHELFICEDragQuadratic*SQRT(uSq) |
|
./pkg/shelfice/shelfice_u_drag.F |
55 |
SHELFICE_U_DRAG |
_RL viscFac, uSq |