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