| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
7 |
MOM_VI_U_GRAD_KE |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
100 |
MOM_VI_U_CORIOLIS |
& +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
103 |
MOM_VI_U_CORIOLIS |
& +vort3u*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
24 |
MOM_VI_U_CORIOLIS |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
45 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
46 |
MOM_VI_U_CORIOLIS |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
47 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
48 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
61 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
62 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
64 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
65 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
7 |
MOM_VI_U_CORIOLIS |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
81 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
82 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
83 |
MOM_VI_U_CORIOLIS |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
84 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
98 |
MOM_VI_U_CORIOLIS |
& vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
99 |
MOM_VI_U_CORIOLIS |
& / MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
104 |
MOM_VI_V_VERTSHEAR |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
105 |
MOM_VI_V_VERTSHEAR |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
109 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
110 |
MOM_VI_V_VERTSHEAR |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
24 |
MOM_VI_V_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
62 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
63 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
68 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
74 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
7 |
MOM_VI_V_VERTSHEAR |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
81 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
10 |
MOM_VI_V_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
119 |
MOM_VI_V_CORIOLIS_C4 |
& -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
120 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
34 |
MOM_VI_V_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
63 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
64 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
66 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
67 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
91 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
92 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
93 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
94 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj)) |
|
./model/src/update_surf_dr.F |
42 |
UPDATE_SURF_DR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_surf_dr.F |
46 |
UPDATE_SURF_DR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_surf_dr.F |
54 |
UPDATE_SURF_DR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./model/src/update_surf_dr.F |
62 |
UPDATE_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
64 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
65 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
75 |
UPDATE_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
77 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
78 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
84 |
UPDATE_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
86 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
87 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
103 |
MOM_VI_HDISSIP |
& ((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
104 |
MOM_VI_HDISSIP |
& +((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
105 |
MOM_VI_HDISSIP |
& +((hDiv(i-1,j)-hDiv(i,j))*recip_DXG(i-1,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
106 |
MOM_VI_HDISSIP |
& +((hDiv(i,j-1)-hDiv(i,j))*recip_DYG(i,j-1,bi,bj))**2) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
123 |
MOM_VI_HDISSIP |
grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
125 |
MOM_VI_HDISSIP |
& abs((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
127 |
MOM_VI_HDISSIP |
& abs((vort3(i+1,j+1)-vort3(i,j+1))*recip_DXG(i,j+1,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
129 |
MOM_VI_HDISSIP |
& abs((vort3(i+1,j+1)-vort3(i+1,j))*recip_DYG(i+1,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
131 |
MOM_VI_HDISSIP |
grdDiv=abs((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
133 |
MOM_VI_HDISSIP |
& abs((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
135 |
MOM_VI_HDISSIP |
& abs((hDiv(i-1,j)-hDiv(i,j))*recip_DXG(i-1,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
137 |
MOM_VI_HDISSIP |
& abs((hDiv(i,j-1)-hDiv(i,j))*recip_DYG(i,j-1,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
175 |
MOM_VI_HDISSIP |
L2=rAz(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
180 |
MOM_VI_HDISSIP |
L2rdt=recip_dt/( 2.*(recip_DXV(I,J,bi,bj)**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
181 |
MOM_VI_HDISSIP |
& +recip_DYU(I,J,bi,bj)**2) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
182 |
MOM_VI_HDISSIP |
L4rdt=recip_dt/( 6.*(recip_DXV(I,J,bi,bj)**4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
183 |
MOM_VI_HDISSIP |
& +recip_DYU(I,J,bi,bj)**4) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
184 |
MOM_VI_HDISSIP |
& +8.*((recip_DXV(I,J,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
185 |
MOM_VI_HDISSIP |
& *recip_DYU(I,J,bi,bj))**2) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
191 |
MOM_VI_HDISSIP |
& ((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
192 |
MOM_VI_HDISSIP |
& +((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
193 |
MOM_VI_HDISSIP |
& +((vort3(i-1,j)-vort3(i,j))*recip_DXG(i-1,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
194 |
MOM_VI_HDISSIP |
& +((vort3(i,j-1)-vort3(i,j))*recip_DYG(i,j-1,bi,bj))**2) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
MOM_VI_HDISSIP |
& ((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
199 |
MOM_VI_HDISSIP |
& +((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
MOM_VI_HDISSIP |
& +((hDiv(i+1,j+1)-hDiv(i,j+1))*recip_DXG(i,j+1,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
201 |
MOM_VI_HDISSIP |
& +((hDiv(i+1,j+1)-hDiv(i+1,j))*recip_DYG(i+1,j,bi,bj))**2) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& abs((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
221 |
MOM_VI_HDISSIP |
& abs((vort3(i-1,j)-vort3(i,j))*recip_DXG(i-1,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
223 |
MOM_VI_HDISSIP |
& abs((vort3(i,j-1)-vort3(i,j))*recip_DYG(i,j-1,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
grdDiv=abs((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
227 |
MOM_VI_HDISSIP |
& abs((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
229 |
MOM_VI_HDISSIP |
& abs((hDiv(i+1,j+1)-hDiv(i,j+1))*recip_DXG(i-1,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
231 |
MOM_VI_HDISSIP |
& abs((hDiv(i+1,j+1)-hDiv(i+1,j))*recip_DYG(i,j-1,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
304 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
305 |
MOM_VI_HDISSIP |
& -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
307 |
MOM_VI_HDISSIP |
& recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
308 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
309 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
312 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
313 |
MOM_VI_HDISSIP |
& - viscAhZ*recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
314 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
315 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
316 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
317 |
MOM_VI_HDISSIP |
& + viscAhD* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
31 |
MOM_VI_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
341 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
342 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
343 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
345 |
MOM_VI_HDISSIP |
Zip=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
346 |
MOM_VI_HDISSIP |
Zij=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
347 |
MOM_VI_HDISSIP |
Zpj=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
370 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
371 |
MOM_VI_HDISSIP |
& ( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
372 |
MOM_VI_HDISSIP |
& -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
373 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
374 |
MOM_VI_HDISSIP |
& recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
377 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
378 |
MOM_VI_HDISSIP |
& viscA4*( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
379 |
MOM_VI_HDISSIP |
& -recip_hFacW(i,j,k,bi,bj)*viscA4*( Zip-Zij ) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
380 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
381 |
MOM_VI_HDISSIP |
& recip_hFacS(i,j,k,bi,bj)*viscA4*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
385 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
386 |
MOM_VI_HDISSIP |
& -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
388 |
MOM_VI_HDISSIP |
& recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
389 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
390 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
393 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
394 |
MOM_VI_HDISSIP |
& - viscA4Z*recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
395 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
396 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
397 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
398 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
411 |
MOM_VI_HDISSIP |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
412 |
MOM_VI_HDISSIP |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4 ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
79 |
MOM_VI_HDISSIP |
L2=rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
7 |
MOM_VI_HDISSIP |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
84 |
MOM_VI_HDISSIP |
L2rdt=recip_dt/( 2.*(recip_DXF(I,J,bi,bj)**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
85 |
MOM_VI_HDISSIP |
& +recip_DYF(I,J,bi,bj)**2) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
86 |
MOM_VI_HDISSIP |
L4rdt=recip_dt/( 6.*(recip_DXF(I,J,bi,bj)**4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
87 |
MOM_VI_HDISSIP |
& +recip_DYF(I,J,bi,bj)**4) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
88 |
MOM_VI_HDISSIP |
& +8.*((recip_DXF(I,J,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
89 |
MOM_VI_HDISSIP |
& *recip_DYF(I,J,bi,bj))**2) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& ((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
96 |
MOM_VI_HDISSIP |
& +((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
97 |
MOM_VI_HDISSIP |
& +((vort3(i+1,j+1)-vort3(i,j+1))*recip_DXG(i,j+1,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
98 |
MOM_VI_HDISSIP |
& +((vort3(i+1,j+1)-vort3(i+1,j))*recip_DYG(i+1,j,bi,bj))**2) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
24 |
MOM_VI_CORIOLIS |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
48 |
MOM_VI_CORIOLIS |
& / MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
49 |
MOM_VI_CORIOLIS |
& +hFacS( i ,j+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
51 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
60 |
MOM_VI_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
61 |
MOM_VI_CORIOLIS |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
62 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
63 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
65 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
66 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
76 |
MOM_VI_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
7 |
MOM_VI_CORIOLIS |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
80 |
MOM_VI_CORIOLIS |
& / MAX( epsil, hFacW( i , j ,k,bi,bj)+hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
81 |
MOM_VI_CORIOLIS |
& +hFacW(i+1, j ,k,bi,bj)+hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
83 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
84 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
92 |
MOM_VI_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
93 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
97 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
98 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
17 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
28 |
COMPRECV_R8TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
77 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/mitcomponent_register.F |
20 |
MITCOMPONENT_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./model/src/ini_mixing.F |
35 |
INI_MIXING |
INTEGER bi, bj |
|
./model/src/ini_mixing.F |
39 |
INI_MIXING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_mixing.F |
45 |
INI_MIXING |
diffKr(i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/ini_mixing.F |
48 |
INI_MIXING |
KapGM(i,j,k,bi,bj) = GMkbackground |
|
./pkg/compon_communic/compsend_r8tiles.F |
16 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
26 |
COMPSEND_R8TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
45 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
16 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
26 |
COMPSEND_R4TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
45 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./model/src/ini_pnh.F |
40 |
INI_PNH |
INTEGER bi,bj,I,J,K |
|
./model/src/ini_pnh.F |
47 |
INI_PNH |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_pnh.F |
52 |
INI_PNH |
phi_nh(I,J,K,bi,bj) = 0. _d 0 |
|
./eesupp/src/ini_communication_patterns.F |
112 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
118 |
INI_COMMUNICATION_PATTERNS |
theBj = bj |
|
./eesupp/src/ini_communication_patterns.F |
120 |
INI_COMMUNICATION_PATTERNS |
tileNo(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
137 |
INI_COMMUNICATION_PATTERNS |
theBj = bj |
|
./eesupp/src/ini_communication_patterns.F |
139 |
INI_COMMUNICATION_PATTERNS |
tileNoW (bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
143 |
INI_COMMUNICATION_PATTERNS |
tilePidW(bi,bj) = procW |
|
./eesupp/src/ini_communication_patterns.F |
144 |
INI_COMMUNICATION_PATTERNS |
tileBiW (bi,bj) = biW |
|
./eesupp/src/ini_communication_patterns.F |
145 |
INI_COMMUNICATION_PATTERNS |
tileBjW (bi,bj) = bj |
|
./eesupp/src/ini_communication_patterns.F |
160 |
INI_COMMUNICATION_PATTERNS |
theBj = bj |
|
./eesupp/src/ini_communication_patterns.F |
161 |
INI_COMMUNICATION_PATTERNS |
tileNoE(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
165 |
INI_COMMUNICATION_PATTERNS |
tilePidE(bi,bj) = procE |
|
./eesupp/src/ini_communication_patterns.F |
166 |
INI_COMMUNICATION_PATTERNS |
tileBiE (bi,bj) = biE |
|
./eesupp/src/ini_communication_patterns.F |
167 |
INI_COMMUNICATION_PATTERNS |
tileBjE (bi,bj) = bj |
|
./eesupp/src/ini_communication_patterns.F |
169 |
INI_COMMUNICATION_PATTERNS |
bjN = bj+1 |
|
./eesupp/src/ini_communication_patterns.F |
183 |
INI_COMMUNICATION_PATTERNS |
tileNoN(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
187 |
INI_COMMUNICATION_PATTERNS |
tilePidN(bi,bj) = procN |
|
./eesupp/src/ini_communication_patterns.F |
188 |
INI_COMMUNICATION_PATTERNS |
tileBiN(bi,bj) = bi |
|
./eesupp/src/ini_communication_patterns.F |
189 |
INI_COMMUNICATION_PATTERNS |
tileBjN(bi,bj) = bjN |
|
./eesupp/src/ini_communication_patterns.F |
191 |
INI_COMMUNICATION_PATTERNS |
bjS = bj-1 |
|
./eesupp/src/ini_communication_patterns.F |
205 |
INI_COMMUNICATION_PATTERNS |
tileNoS(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
209 |
INI_COMMUNICATION_PATTERNS |
tilePidS(bi,bj) = procS |
|
./eesupp/src/ini_communication_patterns.F |
210 |
INI_COMMUNICATION_PATTERNS |
tileBiS(bi,bj) = bi |
|
./eesupp/src/ini_communication_patterns.F |
211 |
INI_COMMUNICATION_PATTERNS |
tileBjS(bi,bj) = bjS |
|
./eesupp/src/ini_communication_patterns.F |
230 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
234 |
INI_COMMUNICATION_PATTERNS |
theTag = TagW0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
235 |
INI_COMMUNICATION_PATTERNS |
tileTagSendW(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
237 |
INI_COMMUNICATION_PATTERNS |
theTag = TagE0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
238 |
INI_COMMUNICATION_PATTERNS |
tileTagSendE(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
240 |
INI_COMMUNICATION_PATTERNS |
theTag = TagN0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
241 |
INI_COMMUNICATION_PATTERNS |
tileTagSendN(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
243 |
INI_COMMUNICATION_PATTERNS |
theTag = TagS0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
244 |
INI_COMMUNICATION_PATTERNS |
tileTagSendS(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
247 |
INI_COMMUNICATION_PATTERNS |
theTag = TagW0*totalTileCount+tileNoE(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
248 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvE(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
250 |
INI_COMMUNICATION_PATTERNS |
theTag = TagE0*totalTileCount+tileNoW(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
251 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvW(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
253 |
INI_COMMUNICATION_PATTERNS |
theTag = TagS0*totalTileCount+tileNoN(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
254 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvN(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
256 |
INI_COMMUNICATION_PATTERNS |
theTag = TagN0*totalTileCount+tileNoS(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
257 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvS(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
270 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
273 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoW(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
274 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
276 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidW(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
277 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
279 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
283 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoE(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
284 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
286 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidE(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
287 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
289 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
293 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoS(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
294 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
296 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidS(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
297 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
299 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
303 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoN(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
304 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
306 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidN(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
307 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
309 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
317 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
319 |
INI_COMMUNICATION_PATTERNS |
exchNReqsX(1,bi,bj) = 0 |
|
./eesupp/src/ini_communication_patterns.F |
320 |
INI_COMMUNICATION_PATTERNS |
exchNReqsY(1,bi,bj) = 0 |
|
./eesupp/src/ini_communication_patterns.F |
56 |
INI_COMMUNICATION_PATTERNS |
INTEGER bi, bj, pi, pj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
17 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
28 |
COMPRECV_R4TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
77 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
22 |
MITCOMPONENT_TILE_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
28 |
MITCOMPONENT_TILE_REGISTER |
do bj=1,nty |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
30 |
MITCOMPONENT_TILE_REGISTER |
if ( ireg(1,bi,bj)*ireg(2,bi,bj).gt.0 ) then |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
32 |
MITCOMPONENT_TILE_REGISTER |
my_tile_nx(num_tiles)=ireg(1,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
33 |
MITCOMPONENT_TILE_REGISTER |
my_tile_ny(num_tiles)=ireg(2,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
34 |
MITCOMPONENT_TILE_REGISTER |
my_tile_i0(num_tiles)=ireg(3,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
35 |
MITCOMPONENT_TILE_REGISTER |
my_tile_j0(num_tiles)=ireg(4,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
37 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bj(num_tiles)=bj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
39 |
MITCOMPONENT_TILE_REGISTER |
& write(LogUnit,*) 'MITCOMPONENT_tile_register: bi,bj=',bi,bj, |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
40 |
MITCOMPONENT_TILE_REGISTER |
& ' nx,ny=',ireg(1,bi,bj),ireg(2,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
43 |
MITCOMPONENT_TILE_REGISTER |
& 'MITCOMPONENT_tile_register: blank bi,bj=',bi,bj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
79 |
MITCOMPONENT_TILE_REGISTER |
bj=my_tile_bj(bibj) |
|
./pkg/exf/exf_check.F |
33 |
EXF_CHECK |
integer bi,bj |
|
./pkg/exf/exf_set_climsss.F |
132 |
EXF_SET_CLIMSSS |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_climsss.F |
138 |
EXF_SET_CLIMSSS |
climsss(i,j,bi,bj) = exf_inscal_sss * ( |
|
./pkg/exf/exf_set_climsss.F |
139 |
EXF_SET_CLIMSSS |
& fac * climsss0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_climsss.F |
140 |
EXF_SET_CLIMSSS |
& (exf_one - fac) * climsss1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_climsss.F |
190 |
EXF_INIT_CLIMSSS |
integer bi, bj |
|
./pkg/exf/exf_set_climsss.F |
195 |
EXF_INIT_CLIMSSS |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_set_climsss.F |
199 |
EXF_INIT_CLIMSSS |
climsss (i,j,bi,bj) = climsssconst |
|
./pkg/exf/exf_set_climsss.F |
200 |
EXF_INIT_CLIMSSS |
climsss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsss.F |
201 |
EXF_INIT_CLIMSSS |
climsss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsss.F |
55 |
EXF_SET_CLIMSSS |
integer bi, bj, i, j, interp_method |
|
./pkg/exf/exf_interp.F |
124 |
EXF_INTERP |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_interp.F |
132 |
EXF_INTERP |
if ( xG(i,j,bi,bj) .lt. x_in(0) .or. |
|
./pkg/exf/exf_interp.F |
133 |
EXF_INTERP |
& xG(i,j,bi,bj) .ge. x_in(nx_in+1) .or. |
|
./pkg/exf/exf_interp.F |
134 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
135 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
138 |
EXF_INTERP |
print*,'i,j,bi,bj' ,i,j,bi,bj |
|
./pkg/exf/exf_interp.F |
139 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
153 |
EXF_INTERP |
if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then |
|
./pkg/exf/exf_interp.F |
154 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1 |
|
./pkg/exf/exf_interp.F |
156 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) |
|
./pkg/exf/exf_interp.F |
160 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
163 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
177 |
EXF_INTERP |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
184 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
186 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
187 |
EXF_INTERP |
arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
188 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
198 |
EXF_INTERP |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
206 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
208 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
212 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
213 |
EXF_INTERP |
arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
214 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
82 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_swapffields.F |
107 |
EXF_SWAPFFIELDS_3D |
integer bj |
|
./pkg/exf/exf_swapffields.F |
121 |
EXF_SWAPFFIELDS_3D |
do bj = jtlo,jthi |
|
./pkg/exf/exf_swapffields.F |
126 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
127 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
169 |
EXF_SWAPFFIELDS_XZ |
integer bi, bj |
|
./pkg/exf/exf_swapffields.F |
181 |
EXF_SWAPFFIELDS_XZ |
do bj = jtlo,jthi |
|
./pkg/exf/exf_swapffields.F |
185 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
186 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
227 |
EXF_SWAPFFIELDS_YZ |
integer bi, bj |
|
./pkg/exf/exf_swapffields.F |
239 |
EXF_SWAPFFIELDS_YZ |
do bj = jtlo,jthi |
|
./pkg/exf/exf_swapffields.F |
243 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
244 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
49 |
EXF_SWAPFFIELDS |
integer bj |
|
./pkg/exf/exf_swapffields.F |
62 |
EXF_SWAPFFIELDS |
do bj = jtlo,jthi |
|
./pkg/exf/exf_swapffields.F |
66 |
EXF_SWAPFFIELDS |
ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
67 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
115 |
EXF_SET_CLIMSALT |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_climsalt.F |
122 |
EXF_SET_CLIMSALT |
climsalt(i,j,k,bi,bj) = |
|
./pkg/exf/exf_set_climsalt.F |
123 |
EXF_SET_CLIMSALT |
& fac * climsalt0(i,j,k,bi,bj) + |
|
./pkg/exf/exf_set_climsalt.F |
124 |
EXF_SET_CLIMSALT |
& (exf_one - fac) * climsalt1(i,j,k,bi,bj) |
|
./pkg/exf/exf_set_climsalt.F |
174 |
EXF_INIT_CLIMSALT |
integer bi, bj |
|
./pkg/exf/exf_set_climsalt.F |
179 |
EXF_INIT_CLIMSALT |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_set_climsalt.F |
184 |
EXF_INIT_CLIMSALT |
climsalt (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
185 |
EXF_INIT_CLIMSALT |
climsalt0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
186 |
EXF_INIT_CLIMSALT |
climsalt1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
56 |
EXF_SET_CLIMSALT |
integer bi, bj |
|
./pkg/exf/exf_init_runoff.F |
38 |
EXF_INIT_RUNOFF |
integer bi, bj, i, j, interp_method |
|
./pkg/exf/exf_init_runoff.F |
42 |
EXF_INIT_RUNOFF |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_init_runoff.F |
46 |
EXF_INIT_RUNOFF |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_runoff.F |
73 |
EXF_INIT_RUNOFF |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_init_runoff.F |
77 |
EXF_INIT_RUNOFF |
if(ABS(runoff(i,j,bi,bj)).gt.998.) runoff(i,j,bi,bj)=0. |
|
./pkg/exf/exf_init_runoff.F |
78 |
EXF_INIT_RUNOFF |
runoff(i,j,bi,bj)=exf_inscal_runoff*runoff(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
140 |
EXF_BULKFORMULAE |
integer bi,bj |
|
./pkg/exf/exf_bulkformulae.F |
217 |
EXF_BULKFORMULAE |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_bulkformulae.F |
232 |
EXF_BULKFORMULAE |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
254 |
EXF_BULKFORMULAE |
& lwflux(i,j,bi,bj) = 5.5 _d -08 * |
|
./pkg/exf/exf_bulkformulae.F |
255 |
EXF_BULKFORMULAE |
& ((theta(i,j,k,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_bulkformulae.F |
256 |
EXF_BULKFORMULAE |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
258 |
EXF_BULKFORMULAE |
& lwdown(i,j,bi,bj) = 5.5 _d -08 * |
|
./pkg/exf/exf_bulkformulae.F |
259 |
EXF_BULKFORMULAE |
& ((theta(i,j,k,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_bulkformulae.F |
260 |
EXF_BULKFORMULAE |
& - lwflux(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
265 |
EXF_BULKFORMULAE |
& swflux(i,j,bi,bj) = -(1.0-exf_albedo) * swdown(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
267 |
EXF_BULKFORMULAE |
& swdown(i,j,bi,bj) = -swflux(i,j,bi,bj) / (1.0-exf_albedo) |
|
./pkg/exf/exf_bulkformulae.F |
276 |
EXF_BULKFORMULAE |
ustmp = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) + |
|
./pkg/exf/exf_bulkformulae.F |
277 |
EXF_BULKFORMULAE |
& vwind(i,j,bi,bj)*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
280 |
EXF_BULKFORMULAE |
cw = uwind(i,j,bi,bj)/us |
|
./pkg/exf/exf_bulkformulae.F |
281 |
EXF_BULKFORMULAE |
sw = vwind(i,j,bi,bj)/us |
|
./pkg/exf/exf_bulkformulae.F |
297 |
EXF_BULKFORMULAE |
ustmp = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) + |
|
./pkg/exf/exf_bulkformulae.F |
298 |
EXF_BULKFORMULAE |
& vstress(i,j,bi,bj)*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
cw = ustress(i,j,bi,bj)/sqrt(ustmp) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
sw = vstress(i,j,bi,bj)/sqrt(ustmp) |
|
./pkg/exf/exf_bulkformulae.F |
342 |
EXF_BULKFORMULAE |
if ( atemp(i,j,bi,bj) .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
343 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
344 |
EXF_BULKFORMULAE |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
345 |
EXF_BULKFORMULAE |
ssttmp = theta(i,j,k,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
348 |
EXF_BULKFORMULAE |
deltap = atemp(i,j,bi,bj) + gamma_blk*ht - |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
delq = aqh(i,j,bi,bj) - ssq |
|
./pkg/exf/exf_bulkformulae.F |
382 |
EXF_BULKFORMULAE |
& qstar/(exf_one/humid_fac+aqh(i,j,bi,bj)))/ |
|
./pkg/exf/exf_bulkformulae.F |
443 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau*tstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
444 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhonil*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
450 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tau*cw |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tau*sw |
|
./pkg/exf/exf_bulkformulae.F |
453 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
454 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
455 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
456 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
457 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
463 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = atmrho*tmpbulk*us* |
|
./pkg/exf/exf_bulkformulae.F |
464 |
EXF_BULKFORMULAE |
& uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
465 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*us* |
|
./pkg/exf/exf_bulkformulae.F |
466 |
EXF_BULKFORMULAE |
& vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
475 |
EXF_BULKFORMULAE |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_bulkformulae.F |
482 |
EXF_BULKFORMULAE |
hfl = hfl - hs(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
483 |
EXF_BULKFORMULAE |
hfl = hfl - hl(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
484 |
EXF_BULKFORMULAE |
hfl = hfl + lwflux(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
486 |
EXF_BULKFORMULAE |
hfl = hfl + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
489 |
EXF_BULKFORMULAE |
hflux(i,j,bi,bj) = hfl |
|
./pkg/exf/exf_bulkformulae.F |
491 |
EXF_BULKFORMULAE |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_interp_read.F |
64 |
EXF_INTERP_READ |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_set_gen.F |
184 |
EXF_SET_GEN |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_gen.F |
191 |
EXF_SET_GEN |
genfld(i,j,bi,bj) = exf_inscal_gen * ( |
|
./pkg/exf/exf_set_gen.F |
192 |
EXF_SET_GEN |
& fac * gen0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_gen.F |
193 |
EXF_SET_GEN |
& (exf_one - fac) * gen1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_gen.F |
243 |
EXF_INIT_GEN |
integer bi, bj |
|
./pkg/exf/exf_set_gen.F |
248 |
EXF_INIT_GEN |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_set_gen.F |
252 |
EXF_INIT_GEN |
genfld(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_gen.F |
253 |
EXF_INIT_GEN |
gen0(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_gen.F |
254 |
EXF_INIT_GEN |
gen1(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_gen.F |
78 |
EXF_SET_GEN |
integer bi, bj |
|
./pkg/exf/exf_filter_rs.F |
100 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
44 |
EXF_FILTER_RS |
integer bi,bj |
|
./pkg/exf/exf_filter_rs.F |
60 |
EXF_FILTER_RS |
do bj = jtlo,jthi |
|
./pkg/exf/exf_filter_rs.F |
79 |
EXF_FILTER_RS |
if ( _hFacC(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
80 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
89 |
EXF_FILTER_RS |
if ( maskw(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
90 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
99 |
EXF_FILTER_RS |
if ( masks(i,j,1,bi,bj) .eq. 0. ) then |
|
./model/src/the_correction_step.F |
100 |
THE_CORRECTION_STEP |
I bi,bj,K, |
|
./model/src/the_correction_step.F |
105 |
THE_CORRECTION_STEP |
I bi,bj,K, |
|
./model/src/the_correction_step.F |
111 |
THE_CORRECTION_STEP |
CALL OBCS_APPLY_UV(bi,bj,K,uVel,vVel,myThid) |
|
./model/src/the_correction_step.F |
129 |
THE_CORRECTION_STEP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/the_correction_step.F |
58 |
THE_CORRECTION_STEP |
INTEGER bi,bj |
|
./model/src/the_correction_step.F |
63 |
THE_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/the_correction_step.F |
83 |
THE_CORRECTION_STEP |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./model/src/the_correction_step.F |
94 |
THE_CORRECTION_STEP |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/exf/exf_set_climtemp.F |
115 |
EXF_SET_CLIMTEMP |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_climtemp.F |
122 |
EXF_SET_CLIMTEMP |
if (climtemp0(i,j,k,bi,bj) .lt. climtempfreeze) |
|
./pkg/exf/exf_set_climtemp.F |
123 |
EXF_SET_CLIMTEMP |
& climtemp0(i,j,k,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_set_climtemp.F |
124 |
EXF_SET_CLIMTEMP |
if (climtemp1(i,j,k,bi,bj) .lt. climtempfreeze) |
|
./pkg/exf/exf_set_climtemp.F |
125 |
EXF_SET_CLIMTEMP |
& climtemp1(i,j,k,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_set_climtemp.F |
128 |
EXF_SET_CLIMTEMP |
climtemp(i,j,k,bi,bj) = |
|
./pkg/exf/exf_set_climtemp.F |
129 |
EXF_SET_CLIMTEMP |
& fac * climtemp0(i,j,k,bi,bj) + |
|
./pkg/exf/exf_set_climtemp.F |
130 |
EXF_SET_CLIMTEMP |
& (exf_one - fac) * climtemp1(i,j,k,bi,bj) |
|
./pkg/exf/exf_set_climtemp.F |
180 |
EXF_INIT_CLIMTEMP |
integer bi, bj |
|
./pkg/exf/exf_set_climtemp.F |
185 |
EXF_INIT_CLIMTEMP |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_set_climtemp.F |
190 |
EXF_INIT_CLIMTEMP |
climtemp (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climtemp.F |
191 |
EXF_INIT_CLIMTEMP |
climtemp0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climtemp.F |
192 |
EXF_INIT_CLIMTEMP |
climtemp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climtemp.F |
56 |
EXF_SET_CLIMTEMP |
integer bi, bj |
|
./pkg/exf/exf_getffields.F |
171 |
EXF_GETFFIELDS |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getffields.F |
175 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
49 |
EXF_GETFFIELDS |
integer i, j, bi, bj, interp_method |
|
./pkg/exf/exf_set_uv.F |
166 |
EXF_SET_UV |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
170 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
171 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
172 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
173 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
180 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
182 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
183 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
185 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
187 |
EXF_SET_UV |
vvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
188 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
190 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
192 |
EXF_SET_UV |
uvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
193 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
257 |
EXF_SET_UV |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
261 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
262 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
263 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
264 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
271 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
272 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
273 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
274 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
276 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
278 |
EXF_SET_UV |
vvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
279 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
281 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
283 |
EXF_SET_UV |
uvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
284 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy) |
|
./pkg/exf/exf_set_uv.F |
300 |
EXF_SET_UV |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
304 |
EXF_SET_UV |
uvec(i,j,bi,bj) = exf_inscal_uvec * ( |
|
./pkg/exf/exf_set_uv.F |
305 |
EXF_SET_UV |
& fac * uvec0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_uv.F |
306 |
EXF_SET_UV |
& (exf_one - fac) * uvec1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_uv.F |
307 |
EXF_SET_UV |
vvec(i,j,bi,bj) = exf_inscal_vvec * ( |
|
./pkg/exf/exf_set_uv.F |
308 |
EXF_SET_UV |
& fac * vvec0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& (exf_one - fac) * vvec1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_uv.F |
93 |
EXF_SET_UV |
integer i, j, bi, bj |
|
./pkg/exf/exf_set_obcs.F |
138 |
EXF_SET_OBCS_YZ |
integer bi, bj |
|
./pkg/exf/exf_set_obcs.F |
159 |
EXF_SET_OBCS_YZ |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_obcs.F |
163 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
164 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
165 |
EXF_SET_OBCS_YZ |
& (exf_one - fac) *obcs_yz_1(j,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
52 |
EXF_SET_OBCS_XZ |
integer bi, bj |
|
./pkg/exf/exf_set_obcs.F |
73 |
EXF_SET_OBCS_XZ |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_obcs.F |
77 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
78 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
79 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_filter_rl.F |
100 |
EXF_FILTER_RL |
if ( masks(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
101 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
45 |
EXF_FILTER_RL |
integer bi,bj |
|
./pkg/exf/exf_filter_rl.F |
61 |
EXF_FILTER_RL |
do bj = jtlo,jthi |
|
./pkg/exf/exf_filter_rl.F |
80 |
EXF_FILTER_RL |
if ( _hFacC(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
90 |
EXF_FILTER_RL |
if ( maskw(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
91 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_check_range.F |
103 |
EXF_CHECK_RANGE |
if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
104 |
EXF_CHECK_RANGE |
& hFacW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
107 |
EXF_CHECK_RANGE |
& i, j, uwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
112 |
EXF_CHECK_RANGE |
if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
113 |
EXF_CHECK_RANGE |
& hFacS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
116 |
EXF_CHECK_RANGE |
& i, j, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
123 |
EXF_CHECK_RANGE |
if ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
124 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
125 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
129 |
EXF_CHECK_RANGE |
& i, j, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
134 |
EXF_CHECK_RANGE |
if ( (aqh(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
135 |
EXF_CHECK_RANGE |
& aqh(i,j,bi,bj) .GT. 0.1 ) .AND. |
|
./pkg/exf/exf_check_range.F |
136 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
139 |
EXF_CHECK_RANGE |
& i, j, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
144 |
EXF_CHECK_RANGE |
if ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
145 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
146 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
149 |
EXF_CHECK_RANGE |
& i, j, precip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
156 |
EXF_CHECK_RANGE |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
157 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
158 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
161 |
EXF_CHECK_RANGE |
& i, j, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
168 |
EXF_CHECK_RANGE |
if ( (runoff(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
169 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
173 |
EXF_CHECK_RANGE |
& i, j, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
33 |
EXF_CHECK_RANGE |
integer bi,bj |
|
./pkg/exf/exf_check_range.F |
58 |
EXF_CHECK_RANGE |
do bj = jtlo,jthi |
|
./pkg/exf/exf_check_range.F |
65 |
EXF_CHECK_RANGE |
if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
66 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
67 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
70 |
EXF_CHECK_RANGE |
& i, j, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
75 |
EXF_CHECK_RANGE |
if ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
79 |
EXF_CHECK_RANGE |
& i, j, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
84 |
EXF_CHECK_RANGE |
if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
85 |
EXF_CHECK_RANGE |
& hFacW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
88 |
EXF_CHECK_RANGE |
& i, j, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
93 |
EXF_CHECK_RANGE |
if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
94 |
EXF_CHECK_RANGE |
& hFacS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
97 |
EXF_CHECK_RANGE |
& i, j, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
110 |
EXF_MAPFIELDS |
qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
118 |
EXF_MAPFIELDS |
empmr(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
128 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
129 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
138 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
139 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
147 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress* |
|
./pkg/exf/exf_mapfields.F |
148 |
EXF_MAPFIELDS |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))/2.* |
|
./pkg/exf/exf_mapfields.F |
149 |
EXF_MAPFIELDS |
& maskW(i,j,1,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
151 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
162 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
163 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
172 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
173 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
181 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress* |
|
./pkg/exf/exf_mapfields.F |
182 |
EXF_MAPFIELDS |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))/2.* |
|
./pkg/exf/exf_mapfields.F |
183 |
EXF_MAPFIELDS |
& maskS(i,j,1,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
185 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
194 |
EXF_MAPFIELDS |
qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
202 |
EXF_MAPFIELDS |
sst(i,j,bi,bj) = exf_outscal_sst*climsst(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
210 |
EXF_MAPFIELDS |
sss(i,j,bi,bj) = exf_outscal_sss*climsss(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
218 |
EXF_MAPFIELDS |
pload(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
69 |
EXF_MAPFIELDS |
integer bi,bj |
|
./pkg/exf/exf_mapfields.F |
91 |
EXF_MAPFIELDS |
do bj = jtlo,jthi |
|
./pkg/exf/exf_mapfields.F |
97 |
EXF_MAPFIELDS |
act2 = bj - myByLo(myThid) |
|
./model/src/calc_diffusivity.F |
104 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
108 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
117 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
11 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/calc_diffusivity.F |
121 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
130 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
134 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
143 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
147 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
46 |
CALC_DIFFUSIVITY |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/calc_diffusivity.F |
65 |
CALC_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_diffusivity.F |
67 |
CALC_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_diffusivity.F |
78 |
CALC_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_diffusivity.F |
80 |
CALC_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_diffusivity.F |
91 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
95 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./pkg/exf/exf_getforcing.F |
119 |
EXF_GETFORCING |
integer bi,bj |
|
./pkg/exf/exf_getforcing.F |
150 |
EXF_GETFORCING |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getforcing.F |
156 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
159 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
160 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
186 |
EXF_GETFORCING |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getforcing.F |
190 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_set_climsst.F |
133 |
EXF_SET_CLIMSST |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_set_climsst.F |
139 |
EXF_SET_CLIMSST |
if (climsst0(i,j,bi,bj) .lt. climtempfreeze) then |
|
./pkg/exf/exf_set_climsst.F |
140 |
EXF_SET_CLIMSST |
climsst0(i,j,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_set_climsst.F |
142 |
EXF_SET_CLIMSST |
if (climsst1(i,j,bi,bj) .lt. climtempfreeze) then |
|
./pkg/exf/exf_set_climsst.F |
143 |
EXF_SET_CLIMSST |
climsst1(i,j,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_set_climsst.F |
147 |
EXF_SET_CLIMSST |
climsst(i,j,bi,bj) = exf_inscal_sst * ( |
|
./pkg/exf/exf_set_climsst.F |
148 |
EXF_SET_CLIMSST |
& fac * climsst0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_climsst.F |
149 |
EXF_SET_CLIMSST |
& (exf_one - fac) * climsst1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_climsst.F |
199 |
EXF_INIT_CLIMSST |
integer bi, bj |
|
./pkg/exf/exf_set_climsst.F |
204 |
EXF_INIT_CLIMSST |
do bj = mybylo(mythid), mybyhi(mythid) |
|
./pkg/exf/exf_set_climsst.F |
208 |
EXF_INIT_CLIMSST |
climsst (i,j,bi,bj) = climsstconst |
|
./pkg/exf/exf_set_climsst.F |
209 |
EXF_INIT_CLIMSST |
climsst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsst.F |
210 |
EXF_INIT_CLIMSST |
climsst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsst.F |
54 |
EXF_SET_CLIMSST |
integer bi, bj, i, j, interp_method |
|
./model/src/convect.F |
10 |
CONVECT |
SUBROUTINE CONVECT( bi, bj, iMin, iMax, jMin, jMax, K, |
|
./model/src/convect.F |
42 |
CONVECT |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/convect.F |
69 |
CONVECT |
tMix(i,j) = theta(i,j,k-1,bi,bj) |
|
./model/src/convect.F |
70 |
CONVECT |
& *_hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convect.F |
71 |
CONVECT |
& +theta(i,j,k,bi,bj) |
|
./model/src/convect.F |
72 |
CONVECT |
& *_hFacC(i,j,k,bi,bj)*drF(k) |
|
./model/src/convect.F |
73 |
CONVECT |
sMix(i,j) = salt (i,j,k-1,bi,bj) |
|
./model/src/convect.F |
74 |
CONVECT |
& *_hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convect.F |
75 |
CONVECT |
& +salt (i,j,k,bi,bj) |
|
./model/src/convect.F |
76 |
CONVECT |
& *_hFacC(i,j,k,bi,bj)*drF(k) |
|
./model/src/convect.F |
77 |
CONVECT |
dSum(i,j) = _hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convect.F |
78 |
CONVECT |
& +_hFacC(i,j,k,bi,bj)*drF(k) |
|
./model/src/convect.F |
85 |
CONVECT |
IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND. |
|
./model/src/convect.F |
88 |
CONVECT |
theta(i,j,k-1,bi,bj) = tMix(i,j)/dSum(i,j) |
|
./model/src/convect.F |
89 |
CONVECT |
theta(i,j,k ,bi,bj) = tMix(i,j)/dSum(i,j) |
|
./model/src/convect.F |
90 |
CONVECT |
salt(i,j,k-1,bi,bj) = sMix(i,j)/dSum(i,j) |
|
./model/src/convect.F |
91 |
CONVECT |
salt(i,j,k ,bi,bj) = sMix(i,j)/dSum(i,j) |
|
./pkg/offline/offline_fields_load.F |
100 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k,intime0,intime1 |
|
./pkg/offline/offline_fields_load.F |
340 |
OFFLINE_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
345 |
OFFLINE_FIELDS_LOAD |
Uvel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
346 |
OFFLINE_FIELDS_LOAD |
& +aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
347 |
OFFLINE_FIELDS_LOAD |
Vvel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
348 |
OFFLINE_FIELDS_LOAD |
& +aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
349 |
OFFLINE_FIELDS_LOAD |
Wvel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
350 |
OFFLINE_FIELDS_LOAD |
& +aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
351 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj) = bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
352 |
OFFLINE_FIELDS_LOAD |
& +aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
353 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
354 |
OFFLINE_FIELDS_LOAD |
& +aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
355 |
OFFLINE_FIELDS_LOAD |
ConvectCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
356 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
357 |
OFFLINE_FIELDS_LOAD |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
358 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
361 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
362 |
OFFLINE_FIELDS_LOAD |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
363 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
364 |
OFFLINE_FIELDS_LOAD |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
365 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
367 |
OFFLINE_FIELDS_LOAD |
surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
368 |
OFFLINE_FIELDS_LOAD |
& +aWght*hflx1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
369 |
OFFLINE_FIELDS_LOAD |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)/ |
|
./pkg/offline/offline_fields_load.F |
371 |
OFFLINE_FIELDS_LOAD |
surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
372 |
OFFLINE_FIELDS_LOAD |
& +aWght*sflx1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
373 |
OFFLINE_FIELDS_LOAD |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)/ |
|
./pkg/offline/offline_fields_load.F |
423 |
LEF_ZERO3 |
INTEGER i,j,bi,bj,k |
|
./pkg/offline/offline_fields_load.F |
426 |
LEF_ZERO3 |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
431 |
LEF_ZERO3 |
arr(i,j,k,bi,bj)=0. |
|
./pkg/offline/offline_fields_load.F |
460 |
LEF_ZERO2 |
INTEGER i,j,bi,bj |
|
./pkg/offline/offline_fields_load.F |
462 |
LEF_ZERO2 |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
466 |
LEF_ZERO2 |
arr(i,j,bi,bj)=0. |
|
./model/src/diags_oceanic_surf_flux.F |
105 |
DIAGS_OCEANIC_SURF_FLUX |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/diags_oceanic_surf_flux.F |
109 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
110 |
DIAGS_OCEANIC_SURF_FLUX |
& surfaceForcingS(i,j,bi,bj)* |
|
./model/src/diags_oceanic_surf_flux.F |
119 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
120 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*rhoConstFresh |
|
./model/src/diags_oceanic_surf_flux.F |
121 |
DIAGS_OCEANIC_SURF_FLUX |
& *salt(i,j,ks,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
47 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER i,j,bi,bj |
|
./model/src/diags_oceanic_surf_flux.F |
69 |
DIAGS_OCEANIC_SURF_FLUX |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/diags_oceanic_surf_flux.F |
73 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
75 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./model/src/diags_oceanic_surf_flux.F |
77 |
DIAGS_OCEANIC_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./model/src/diags_oceanic_surf_flux.F |
86 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
87 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*rhoConstFresh |
|
./model/src/diags_oceanic_surf_flux.F |
88 |
DIAGS_OCEANIC_SURF_FLUX |
& *theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./pkg/seaice/advect.F |
112 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
116 |
ADVECT |
HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/advect.F |
117 |
ADVECT |
HEFF(I,J,2,bi,bj)=HALF*(HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
118 |
ADVECT |
& +HEFF(I,J,2,bi,bj)) |
|
./pkg/seaice/advect.F |
125 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
129 |
ADVECT |
HEFF(I+1,J+1,1,bi,bj)=HEFF(I+1,J+1,3,bi,bj) |
|
./pkg/seaice/advect.F |
130 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
131 |
ADVECT |
& (I+2,J+1,2,bi,bj))*(UI(I+2,J+2,bi,bj)+UI(I+2,J+1,bi,bj))- |
|
./pkg/seaice/advect.F |
132 |
ADVECT |
& (HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& (I,J+1,2,bi,bj))*(UI(I+1,J+2,bi,bj)+UI(I+1,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
& *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj) |
|
./pkg/seaice/advect.F |
136 |
ADVECT |
& +HEFF(I+1,J+2,2,bi,bj))*(VI(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
137 |
ADVECT |
& +VI(I+2,J+2,bi,bj))*CSUICE(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
138 |
ADVECT |
& -(HEFF(I+1,J+1,2,bi,bj)+HEFF(I+1,J,2,bi,bj)) |
|
./pkg/seaice/advect.F |
139 |
ADVECT |
& *(VI(I+1,J+1,bi,bj)+VI(I+2,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
& *CSUICE(I+1,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
141 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
152 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
156 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,3,bi,bj) |
|
./pkg/seaice/advect.F |
166 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
170 |
ADVECT |
DIFFA(I,J,bi,bj)=DIFF1*MIN(DXTICE(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
171 |
ADVECT |
& *CSTICE(I,J,bi,bj),DYTICE(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
178 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
182 |
ADVECT |
HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/advect.F |
183 |
ADVECT |
& *HEFFM(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
190 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
194 |
ADVECT |
DIFFA(I,J,bi,bj)=-(MIN(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
195 |
ADVECT |
& ,DYTICE(I,J,bi,bj)))**2/DELTT |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
206 |
ADVECT |
HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/advect.F |
207 |
ADVECT |
& *HEFFM(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
38 |
ADVECT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/advect.F |
59 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
64 |
ADVECT |
UI(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
65 |
ADVECT |
VI(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
71 |
ADVECT |
HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/advect.F |
72 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
84 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
88 |
ADVECT |
HEFF(I+1,J+1,1,bi,bj)=HEFF(I+1,J+1,K3,bi,bj) |
|
./pkg/seaice/advect.F |
89 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
90 |
ADVECT |
& (I+2,J+1,2,bi,bj))*(UI(I+2,J+2,bi,bj)+UI(I+2,J+1,bi,bj))- |
|
./pkg/seaice/advect.F |
91 |
ADVECT |
& (HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
92 |
ADVECT |
& (I,J+1,2,bi,bj))*(UI(I+1,J+2,bi,bj)+UI(I+1,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
93 |
ADVECT |
& *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
94 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj) |
|
./pkg/seaice/advect.F |
95 |
ADVECT |
& +HEFF(I+1,J+2,2,bi,bj))*(VI(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
96 |
ADVECT |
& +VI(I+2,J+2,bi,bj))*CSUICE(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
& -(HEFF(I+1,J+1,2,bi,bj)+HEFF(I+1,J,2,bi,bj)) |
|
./pkg/seaice/advect.F |
98 |
ADVECT |
& *(VI(I+1,J+1,bi,bj)+VI(I+2,J+1,bi,bj))*CSUICE(I+1,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
99 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/seaice_exch_uv.F |
27 |
SEAICE_EXCH_UV |
INTEGER i,j,k,bi,bj |
|
./pkg/seaice/seaice_exch_uv.F |
33 |
SEAICE_EXCH_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_exch_uv.F |
37 |
SEAICE_EXCH_UV |
tempU(i,j,bi,bj)=ufld(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_exch_uv.F |
38 |
SEAICE_EXCH_UV |
tempV(i,j,bi,bj)=vfld(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_exch_uv.F |
44 |
SEAICE_EXCH_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_exch_uv.F |
48 |
SEAICE_EXCH_UV |
ufld(i,j,k,bi,bj)=tempU(i,j,bi,bj) |
|
./pkg/seaice/seaice_exch_uv.F |
49 |
SEAICE_EXCH_UV |
vfld(i,j,k,bi,bj)=tempV(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
100 |
CALC_GRAD_PHI_HYD |
ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN |
|
./model/src/calc_grad_phi_hyd.F |
101 |
CALC_GRAD_PHI_HYD |
factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
103 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI) |
|
./model/src/calc_grad_phi_hyd.F |
105 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
10 |
CALC_GRAD_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_hyd.F |
112 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
120 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
121 |
CALC_GRAD_PHI_HYD |
& / (Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
122 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
133 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
141 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
143 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
155 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = etaH(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
156 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
164 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
168 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
178 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
179 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
182 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
183 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
194 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
195 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
198 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
199 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
44 |
CALC_GRAD_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
76 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
77 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
83 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
84 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
95 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
96 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./pkg/seaice/groatb.F |
104 |
GROATB |
TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00 |
|
./pkg/seaice/groatb.F |
106 |
GROATB |
TMIX(I,J,bi,bj)=MAX(TMIX(I,J,bi,bj),271.2 _d +00) |
|
./pkg/seaice/groatb.F |
113 |
GROATB |
SPEED_SQ = UWIND(I,J,bi,bj)**2 + VWIND(I,J,bi,bj)**2 |
|
./pkg/seaice/groatb.F |
132 |
GROATB |
CALL BUDGET(UG, TMIX, HICE, FO, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
152 |
GROATB |
TICE(I,J,bi,bj)=TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/groatb.F |
155 |
GROATB |
CALL BUDGET(UG, TICE, HICEP, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
158 |
GROATB |
FICEP(I,J)=(FICE(I,J,bi,bj)/7.0 _d 0)+FICEP(I,J) |
|
./pkg/seaice/groatb.F |
159 |
GROATB |
TICES(I,J,IT,bi,bj)=TICE(I,J,bi,bj) |
|
./pkg/seaice/groatb.F |
166 |
GROATB |
FICE(I,J,bi,bj)=FICEP(I,J) |
|
./pkg/seaice/groatb.F |
176 |
GROATB |
CALL BUDGET(UG, TICE, HICE, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
43 |
GROATB |
INTEGER i, j, bi, bj |
|
./pkg/seaice/groatb.F |
58 |
GROATB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/groatb.F |
65 |
GROATB |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/groatb.F |
84 |
GROATB |
AREA(I,J,2,bi,bj)=MAX(A22,AREA(I,J,2,bi,bj)) |
|
./pkg/seaice/groatb.F |
85 |
GROATB |
FHEFF(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/groatb.F |
97 |
GROATB |
HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj) |
|
./pkg/seaice/diffus.F |
32 |
DIFFUS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/diffus.F |
36 |
DIFFUS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/diffus.F |
41 |
DIFFUS |
HEFF1(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/diffus.F |
48 |
DIFFUS |
DELTXX1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
49 |
DIFFUS |
DELTYY1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
50 |
DIFFUS |
DELTXX=DELTXX1/(DXTICE(I,J,bi,bj)*DXTICE(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
51 |
DIFFUS |
& *CSTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
52 |
DIFFUS |
DELTYY=DELTYY1/(DYTICE(I,J,bi,bj)*DYTICE(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
53 |
DIFFUS |
& *CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
54 |
DIFFUS |
HEFF1(I,J,bi,bj)=DELTXX*((HEFF(I+1,J,3,bi,bj) |
|
./pkg/seaice/diffus.F |
55 |
DIFFUS |
& -HEFF(I,J,3,bi,bj))*HEFFM(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
56 |
DIFFUS |
& -(HEFF(I,J,3,bi,bj)-HEFF(I-1,J,3,bi,bj))*HEFFM(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
57 |
DIFFUS |
& +DELTYY*((HEFF(I,J+1,3,bi,bj)-HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
58 |
DIFFUS |
& *CSUICE(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
59 |
DIFFUS |
& -(HEFF(I,J,3,bi,bj)-HEFF(I,J-1,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
& *CSUICE(I+1,J,bi,bj)*HEFFM(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/diffus.F |
73 |
DIFFUS |
HEFF(I,J,3,bi,bj)=HEFF1(I,J,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
36 |
SEAICE_MONITOR |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_monitor.F |
41 |
SEAICE_MONITOR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_monitor.F |
45 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=UICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
53 |
SEAICE_MONITOR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_monitor.F |
57 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=VICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
64 |
SEAICE_MONITOR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_monitor.F |
68 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=AREA(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
75 |
SEAICE_MONITOR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_monitor.F |
79 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_model.F |
60 |
SEAICE_MODEL |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_model.F |
82 |
SEAICE_MODEL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_model.F |
86 |
SEAICE_MODEL |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/seaice_model.F |
87 |
SEAICE_MODEL |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_model.F |
88 |
SEAICE_MODEL |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/seaice_model.F |
89 |
SEAICE_MODEL |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/budget.F |
106 |
BUDGET |
FICE1(I,J,bi,bj)=QNET(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
107 |
BUDGET |
QSWO(I,J,bi,bj)=Qsw(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
110 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
111 |
BUDGET |
& +LWDOWN(I,J,bi,bj)*0.97 _d 0 |
|
./pkg/seaice/budget.F |
112 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
114 |
BUDGET |
& *(TICE(I,J,bi,bj)-TMELT) |
|
./pkg/seaice/budget.F |
115 |
BUDGET |
& /(TICE(I,J,bi,bj)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/budget.F |
116 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
117 |
BUDGET |
& -D3*(TICE(I,J,bi,bj)**4) |
|
./pkg/seaice/budget.F |
118 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
119 |
BUDGET |
QSWO(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
122 |
BUDGET |
QNETO(I,J,bi,bj)=FICE1(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
140 |
BUDGET |
IF(TICE(I,J,bi,bj).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb |
|
./pkg/seaice/budget.F |
142 |
BUDGET |
IF(TICE(I,J,bi,bj).GT.TMELTP) ASNOW=SEAICE_wetSnowAlb |
|
./pkg/seaice/budget.F |
143 |
BUDGET |
IF(HSNOW(I,J,bi,bj).GT.HCUT) THEN |
|
./pkg/seaice/budget.F |
146 |
BUDGET |
ALB(I,J)=ALB(I,J)+(HSNOW(I,J,bi,bj)/HCUT)*(ASNOW-ALB(I,J)) |
|
./pkg/seaice/budget.F |
154 |
BUDGET |
IF(HSNOW(I,J,bi,bj).GT.0.0) THEN |
|
./pkg/seaice/budget.F |
156 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
157 |
BUDGET |
& +LWDOWN(I,J,bi,bj)*0.97 _d 0 |
|
./pkg/seaice/budget.F |
158 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
161 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
163 |
BUDGET |
& +LWDOWN(I,J,bi,bj)*0.97 _d 0 |
|
./pkg/seaice/budget.F |
164 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
186 |
BUDGET |
B(I,J)=QS1*(C1*TICE(I,J,bi,bj)**4+C2*TICE(I,J,bi,bj)**3 |
|
./pkg/seaice/budget.F |
187 |
BUDGET |
& +C3*TICE(I,J,bi,bj)**2+C4*TICE(I,J,bi,bj)+C5) |
|
./pkg/seaice/budget.F |
188 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1I*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
189 |
BUDGET |
& -D3*(TICE(I,J,bi,bj)**4) |
|
./pkg/seaice/budget.F |
190 |
BUDGET |
B(I,J)=XKS/(HSNOW(I,J,bi,bj)/HICE(I,J)+XKS/XKI)/HICE(I,J) |
|
./pkg/seaice/budget.F |
191 |
BUDGET |
A3(I,J)=4.0 _d +00*D3*(TICE(I,J,bi,bj)**3)+B(I,J)+D1*UG(I,J) |
|
./pkg/seaice/budget.F |
192 |
BUDGET |
B(I,J)=B(I,J)*(TB-TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
204 |
BUDGET |
TICE(I,J,bi,bj)=TICE(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
206 |
BUDGET |
TICE(I,J,bi,bj)=MAX(273.16 _d 0+MIN_TICE,TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
212 |
BUDGET |
TICE(I,J,bi,bj)=MIN(TICE(I,J,bi,bj),TMELT) |
|
./pkg/seaice/budget.F |
221 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
222 |
BUDGET |
IF(HSNOW(I,J,bi,bj).GT.0.0) THEN |
|
./pkg/seaice/budget.F |
224 |
BUDGET |
QSWI(I,J,bi,bj)=ZERO |
|
./pkg/seaice/budget.F |
227 |
BUDGET |
QSWI(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
39 |
BUDGET |
INTEGER bi, bj |
|
./pkg/seaice/budget.F |
7 |
BUDGET |
SUBROUTINE BUDGET(UG, TICE, HICE1, FICE1, KOPEN, bi, bj) |
|
./pkg/seaice/budget.F |
91 |
BUDGET |
TICE(I,J,bi,bj)=MIN(273.16 _d 0+MAX_TICE,TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
92 |
BUDGET |
ATEMP(I,J,bi,bj)=MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
93 |
BUDGET |
LWDOWN(I,J,bi,bj)=MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_do_diags.F |
100 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=UICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
115 |
SEAICE_DO_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_do_diags.F |
119 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=VICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
134 |
SEAICE_DO_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_do_diags.F |
138 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
153 |
SEAICE_DO_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_do_diags.F |
157 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=AREA(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
182 |
SEAICE_DO_DIAGS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_do_diags.F |
186 |
SEAICE_DO_DIAGS |
FUtave(i,j,1,bi,bj) = |
|
./pkg/seaice/seaice_do_diags.F |
187 |
SEAICE_DO_DIAGS |
& FUtave(i,j,1,bi,bj) +FU(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_do_diags.F |
188 |
SEAICE_DO_DIAGS |
FVtave(i,j,1,bi,bj) = |
|
./pkg/seaice/seaice_do_diags.F |
189 |
SEAICE_DO_DIAGS |
& |