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 |
47 |
UPDATE_SURF_DR |
DO bi=myBxLo(myThid), myBxHi(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 |
27 |
COMPRECV_R8TILES |
bi=my_tile_bi(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 |
40 |
INI_MIXING |
DO bi = myBxLo(myThid), myBxHi(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 |
25 |
COMPSEND_R8TILES |
bi=my_tile_bi(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 |
25 |
COMPSEND_R4TILES |
bi=my_tile_bi(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 |
48 |
INI_PNH |
DO bi = myBxLo(myThid), myBxHi(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 |
113 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
119 |
INI_COMMUNICATION_PATTERNS |
theBi = bi |
./eesupp/src/ini_communication_patterns.F |
120 |
INI_COMMUNICATION_PATTERNS |
tileNo(bi,bj) = |
./eesupp/src/ini_communication_patterns.F |
125 |
INI_COMMUNICATION_PATTERNS |
biW = bi-1 |
./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 |
147 |
INI_COMMUNICATION_PATTERNS |
biE = bi+1 |
./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 |
181 |
INI_COMMUNICATION_PATTERNS |
theBi = bi |
./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 |
203 |
INI_COMMUNICATION_PATTERNS |
theBi = bi |
./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 |
231 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(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 |
271 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(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 |
318 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(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 |
27 |
COMPRECV_R4TILES |
bi=my_tile_bi(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 |
29 |
MITCOMPONENT_TILE_REGISTER |
do bi=1,ntx |
./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 |
36 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bi(num_tiles)=bi |
./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 |
78 |
MITCOMPONENT_TILE_REGISTER |
bi=my_tile_bi(bibj) |
./pkg/exf/exf_check.F |
33 |
EXF_CHECK |
integer bi,bj |
./pkg/exf/exf_set_climsss.F |
133 |
EXF_SET_CLIMSSS |
do bi = mybxlo(mythid),mybxhi(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 |
196 |
EXF_INIT_CLIMSSS |
do bi = mybxlo(mythid), mybxhi(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 |
125 |
EXF_INTERP |
do bi = mybxlo(mythid), mybxhi(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 |
106 |
EXF_SWAPFFIELDS_3D |
integer bi |
./pkg/exf/exf_swapffields.F |
122 |
EXF_SWAPFFIELDS_3D |
do bi = itlo,ithi |
./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 |
182 |
EXF_SWAPFFIELDS_XZ |
do bi = itlo,ithi |
./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 |
240 |
EXF_SWAPFFIELDS_YZ |
do bi = itlo,ithi |
./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 |
48 |
EXF_SWAPFFIELDS |
integer bi |
./pkg/exf/exf_swapffields.F |
63 |
EXF_SWAPFFIELDS |
do bi = itlo,ithi |
./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 |
116 |
EXF_SET_CLIMSALT |
do bi = mybxlo(mythid),mybxhi(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 |
180 |
EXF_INIT_CLIMSALT |
do bi = mybxlo(mythid), mybxhi(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 |
43 |
EXF_INIT_RUNOFF |
do bi = mybxlo(mythid), mybxhi(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 |
74 |
EXF_INIT_RUNOFF |
do bi = mybxlo(mythid), mybxhi(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 |
222 |
EXF_BULKFORMULAE |
do bi = mybxlo(mythid),mybxhi(mythid) |
./pkg/exf/exf_bulkformulae.F |
230 |
EXF_BULKFORMULAE |
act1 = bi - myBxLo(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 |
476 |
EXF_BULKFORMULAE |
do bi = mybxlo(mythid),mybxhi(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 |
185 |
EXF_SET_GEN |
do bi = mybxlo(mythid),mybxhi(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 |
249 |
EXF_INIT_GEN |
do bi = mybxlo(mythid), mybxhi(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 |
61 |
EXF_FILTER_RS |
do bi = itlo,ithi |
./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 |
64 |
THE_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(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 |
116 |
EXF_SET_CLIMTEMP |
do bi = mybxlo(mythid),mybxhi(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 |
186 |
EXF_INIT_CLIMTEMP |
do bi = mybxlo(mythid), mybxhi(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 |
172 |
EXF_GETFFIELDS |
do bi = mybxlo(mythid),mybxhi(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 |
167 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(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 |
258 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(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 |
301 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(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 |
160 |
EXF_SET_OBCS_YZ |
do bi = mybxlo(mythid),mybxhi(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 |
74 |
EXF_SET_OBCS_XZ |
do bi = mybxlo(mythid),mybxhi(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 |
62 |
EXF_FILTER_RL |
do bi = itlo,ithi |
./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 |
59 |
EXF_CHECK_RANGE |
do bi = itlo,ithi |
./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 |
92 |
EXF_MAPFIELDS |
do bi = itlo,ithi |
./pkg/exf/exf_mapfields.F |
95 |
EXF_MAPFIELDS |
act1 = bi - myBxLo(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 |
151 |
EXF_GETFORCING |
do bi = mybxlo(mythid),mybxhi(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 |
187 |
EXF_GETFORCING |
do bi = mybxlo(mythid),mybxhi(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 |
134 |
EXF_SET_CLIMSST |
do bi = mybxlo(mythid),mybxhi(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 |
205 |
EXF_INIT_CLIMSST |
do bi = mybxlo(mythid), mybxhi(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 |
341 |
OFFLINE_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(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 |
427 |
LEF_ZERO3 |
DO bi = myBxLo(myThid), myBxHi(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 |
463 |
LEF_ZERO2 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/offline/offline_fields_load.F |
466 |
LEF_ZERO2 |
arr(i,j,bi,bj)=0. |
./model/src/diags_oceanic_surf_flux.F |
106 |
DIAGS_OCEANIC_SURF_FLUX |
DO bi = myBxLo(myThid), myBxHi(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 |
70 |
DIAGS_OCEANIC_SURF_FLUX |
DO bi = myBxLo(myThid), myBxHi(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 |
113 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
126 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
153 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
156 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,3,bi,bj) |
./pkg/seaice/advect.F |
167 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
179 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
191 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
203 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
60 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
85 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(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 |
34 |
SEAICE_EXCH_UV |
DO bi=myBxLo(myThid),myBxHi(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 |
45 |
SEAICE_EXCH_UV |
DO bi=myBxLo(myThid),myBxHi(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 |
60 |
GROATB |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/groatb.F |
63 |
GROATB |
act1 = bi - myBxLo(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 |
37 |
DIFFUS |
DO bi=myBxLo(myThid),myBxHi(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 |
70 |
DIFFUS |
DO bi=myBxLo(myThid),myBxHi(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 |
42 |
SEAICE_MONITOR |
DO bi=myBxLo(myThid),myBxHi(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 |
54 |
SEAICE_MONITOR |
DO bi=myBxLo(myThid),myBxHi(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 |
65 |
SEAICE_MONITOR |
DO bi=myBxLo(myThid),myBxHi(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 |
76 |
SEAICE_MONITOR |
DO bi=myBxLo(myThid),myBxHi(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 |
83 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(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 |
116 |
SEAICE_DO_DIAGS |
DO bi=myBxLo(myThid),myBxHi(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 |
135 |
SEAICE_DO_DIAGS |
DO bi=myBxLo(myThid),myBxHi(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 |
154 |
SEAICE_DO_DIAGS |
DO bi=myBxLo(myThid),myBxHi(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 |
183 |
SEAICE_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(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 |
& FVtave(i,j,1,bi,bj) +FV(i,j,bi,bj) *deltaTclock |
./pkg/seaice/seaice_do_diags.F |
190 |
SEAICE_DO_DIAGS |
EmPmRtave(i,j,1,bi,bj)= |
./pkg/seaice/seaice_do_diags.F |
191 |
SEAICE_DO_DIAGS |
& EmPmRtave(i,j,1,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock |
./pkg/seaice/seaice_do_diags.F |
192 |
SEAICE_DO_DIAGS |
QNETtave(i,j,1,bi,bj) = |
./pkg/seaice/seaice_do_diags.F |
193 |
SEAICE_DO_DIAGS |
& QNETtave(i,j,1,bi,bj) +QNET(i,j,bi,bj) *deltaTclock |
./pkg/seaice/seaice_do_diags.F |
194 |
SEAICE_DO_DIAGS |
QSWtave(i,j,1,bi,bj) = |
./pkg/seaice/seaice_do_diags.F |
195 |
SEAICE_DO_DIAGS |
& QSWtave(i,j,1,bi,bj) +QSW(i,j,bi,bj) *deltaTclock |
./pkg/seaice/seaice_do_diags.F |
196 |
SEAICE_DO_DIAGS |
UICEtave(i,j,1,bi,bj) = |
./pkg/seaice/seaice_do_diags.F |
197 |
SEAICE_DO_DIAGS |
& UICEtave(i,j,1,bi,bj) +UICE(i,j,1,bi,bj)*deltaTclock |
./pkg/seaice/seaice_do_diags.F |
198 |
SEAICE_DO_DIAGS |
VICEtave(i,j,1,bi,bj) = |
./pkg/seaice/seaice_do_diags.F |
199 |
SEAICE_DO_DIAGS |
& VICEtave(i,j,1,bi,bj) +VICE(i,j,1,bi,bj)*deltaTclock |
./pkg/seaice/seaice_do_diags.F |
200 |
SEAICE_DO_DIAGS |
HEFFtave(i,j,1,bi,bj) = |
./pkg/seaice/seaice_do_diags.F |
201 |
SEAICE_DO_DIAGS |
& HEFFtave(i,j,1,bi,bj) +HEFF(i,j,1,bi,bj)*deltaTclock |
./pkg/seaice/seaice_do_diags.F |
202 |
SEAICE_DO_DIAGS |
AREAtave(i,j,1,bi,bj) = |
./pkg/seaice/seaice_do_diags.F |
203 |
SEAICE_DO_DIAGS |
& AREAtave(i,j,1,bi,bj) +AREA(i,j,1,bi,bj)*deltaTclock |
./pkg/seaice/seaice_do_diags.F |
207 |
SEAICE_DO_DIAGS |
SEAICE_TimeAve(k,bi,bj)=SEAICE_TimeAve(k,bi,bj)+deltaTclock |
./pkg/seaice/seaice_do_diags.F |
241 |
SEAICE_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_do_diags.F |
243 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
245 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
247 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
249 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
251 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
253 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
255 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
257 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
259 |
SEAICE_DO_DIAGS |
& bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
310 |
SEAICE_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_do_diags.F |
311 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(FUtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
312 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(FVtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
313 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(EmPmRtave,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
314 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(QNETtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
315 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(QSWtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
316 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(UICEtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
317 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(VICEtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
318 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
319 |
SEAICE_DO_DIAGS |
CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_do_diags.F |
321 |
SEAICE_DO_DIAGS |
SEAICE_TimeAve(k,bi,bj)=ZERO |
./pkg/seaice/seaice_do_diags.F |
35 |
SEAICE_DO_DIAGS |
INTEGER i, j, k, bi, bj |
./pkg/seaice/seaice_do_diags.F |
97 |
SEAICE_DO_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cycle_tracer.F |
10 |
CYCLE_TRACER |
I bi, bj, k, |
./model/src/cycle_tracer.F |
34 |
CYCLE_TRACER |
INTEGER bi,bj,k |
./model/src/cycle_tracer.F |
52 |
CYCLE_TRACER |
tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj) |
./pkg/seaice/dynsolver.F |
101 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
104 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
./pkg/seaice/dynsolver.F |
105 |
DYNSOLVER |
& +UWIND(I ,J-1,bi,bj)+UWIND(I ,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
106 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
./pkg/seaice/dynsolver.F |
107 |
DYNSOLVER |
& +VWIND(I ,J-1,bi,bj)+VWIND(I ,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
115 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag |
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1) |
./pkg/seaice/dynsolver.F |
118 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1) |
./pkg/seaice/dynsolver.F |
121 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*(SEAICE_drag*AAA*AREA(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,1,bi,bj))) |
./pkg/seaice/dynsolver.F |
124 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1) |
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1) |
./pkg/seaice/dynsolver.F |
132 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
136 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
141 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
142 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,1,bi,bj))) |
./pkg/seaice/dynsolver.F |
146 |
DYNSOLVER |
ZMAX(I,J,bi,bj)=(5.0 _d +12/(2.0 _d +04))*PRESS0(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
ZMIN(I,J,bi,bj)=4.0 _d +08 |
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
171 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
174 |
DYNSOLVER |
UICE(I,J,2,bi,bj)=UICE(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
175 |
DYNSOLVER |
VICE(I,J,2,bi,bj)=VICE(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
176 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
177 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
184 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
189 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
190 |
DYNSOLVER |
& -UICE(I,J+1,1,bi,bj)-UICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
191 |
DYNSOLVER |
& -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
192 |
DYNSOLVER |
& +VICE(I,J,1,bi,bj)+VICE(I+1,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
193 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS |
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
195 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
196 |
DYNSOLVER |
& -VICE(I+1,J,1,bi,bj)-VICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
197 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
199 |
DYNSOLVER |
& -UICE(I+1,J,1,bi,bj)-UICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
& +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I+1,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
202 |
DYNSOLVER |
& -VICE(I,J+1,1,bi,bj)-VICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
203 |
DYNSOLVER |
& +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
204 |
DYNSOLVER |
& +UICE(I,J,1,bi,bj)+UICE(I+1,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
205 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS) |
./pkg/seaice/dynsolver.F |
207 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
./pkg/seaice/dynsolver.F |
208 |
DYNSOLVER |
& +4.0 _d 0*ECM2*E12(I,J,bi,bj)**2 |
./pkg/seaice/dynsolver.F |
209 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
./pkg/seaice/dynsolver.F |
215 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
./pkg/seaice/dynsolver.F |
217 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
220 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
221 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
222 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
./pkg/seaice/dynsolver.F |
234 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
238 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
./pkg/seaice/dynsolver.F |
239 |
DYNSOLVER |
& +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2 |
./pkg/seaice/dynsolver.F |
241 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
./pkg/seaice/dynsolver.F |
243 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
./pkg/seaice/dynsolver.F |
246 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
./pkg/seaice/dynsolver.F |
248 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
250 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
251 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
252 |
DYNSOLVER |
& -SINWAT*GWATY(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
254 |
DYNSOLVER |
& *(SINWAT*GWATX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
255 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
257 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
258 |
DYNSOLVER |
& -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj))) |
./pkg/seaice/dynsolver.F |
259 |
DYNSOLVER |
& *(PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj) |
./pkg/seaice/dynsolver.F |
260 |
DYNSOLVER |
& -PRESS(I-1,J,bi,bj)-PRESS(I-1,J-1,bi,bj)) |
./pkg/seaice/dynsolver.F |
261 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
262 |
DYNSOLVER |
& *(PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj) |
./pkg/seaice/dynsolver.F |
263 |
DYNSOLVER |
& -PRESS(I,J-1,bi,bj)-PRESS(I-1,J-1,bi,bj)) |
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
UICE(I,J,1,bi,bj)=HALF*(UICE(I,J,1,bi,bj)+UICE(I,J,2,bi,bj)) |
./pkg/seaice/dynsolver.F |
282 |
DYNSOLVER |
VICE(I,J,1,bi,bj)=HALF*(VICE(I,J,1,bi,bj)+VICE(I,J,2,bi,bj)) |
./pkg/seaice/dynsolver.F |
283 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
284 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
291 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
296 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
297 |
DYNSOLVER |
& -UICE(I,J+1,1,bi,bj)-UICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
& -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
& +VICE(I,J,1,bi,bj)+VICE(I+1,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
300 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS |
./pkg/seaice/dynsolver.F |
301 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
302 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
303 |
DYNSOLVER |
& -VICE(I+1,J,1,bi,bj)-VICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
304 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
305 |
DYNSOLVER |
& *(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
306 |
DYNSOLVER |
& -UICE(I+1,J,1,bi,bj)-UICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
307 |
DYNSOLVER |
& +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
308 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I+1,J,1,bi,bj) |
./pkg/seaice/dynsolver.F |
309 |
DYNSOLVER |
& -VICE(I,J+1,1,bi,bj)-VICE(I,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
310 |
DYNSOLVER |
& +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
311 |
DYNSOLVER |
& +UICE(I,J,1,bi,bj)+UICE(I+1,J,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
312 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS) |
./pkg/seaice/dynsolver.F |
314 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
./pkg/seaice/dynsolver.F |
315 |
DYNSOLVER |
& +4. _d 0*ECM2*E12(I,J,bi,bj)**2 |
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
./pkg/seaice/dynsolver.F |
324 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
325 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
327 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
./pkg/seaice/dynsolver.F |
341 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
./pkg/seaice/dynsolver.F |
346 |
DYNSOLVER |
& +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2 |
./pkg/seaice/dynsolver.F |
348 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
./pkg/seaice/dynsolver.F |
350 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
./pkg/seaice/dynsolver.F |
353 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
./pkg/seaice/dynsolver.F |
355 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
357 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
358 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
359 |
DYNSOLVER |
& -SINWAT*GWATY(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
360 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
361 |
DYNSOLVER |
& *(SINWAT*GWATX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
362 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
./pkg/seaice/dynsolver.F |
364 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
365 |
DYNSOLVER |
& -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj))) |
./pkg/seaice/dynsolver.F |
366 |
DYNSOLVER |
& *(PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj) |
./pkg/seaice/dynsolver.F |
367 |
DYNSOLVER |
& -PRESS(I-1,J,bi,bj)-PRESS(I-1,J-1,bi,bj)) |
./pkg/seaice/dynsolver.F |
368 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
369 |
DYNSOLVER |
& *(PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj) |
./pkg/seaice/dynsolver.F |
370 |
DYNSOLVER |
& -PRESS(I,J-1,bi,bj)-PRESS(I-1,J-1,bi,bj)) |
./pkg/seaice/dynsolver.F |
399 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
410 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=min(UICE(i,j,1,bi,bj),0.40 _d +00) |
./pkg/seaice/dynsolver.F |
411 |
DYNSOLVER |
VICE(i,j,1,bi,bj)=min(VICE(i,j,1,bi,bj),0.40 _d +00) |
./pkg/seaice/dynsolver.F |
421 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
424 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=max(UICE(i,j,1,bi,bj),-0.40 _d +00) |
./pkg/seaice/dynsolver.F |
425 |
DYNSOLVER |
VICE(i,j,1,bi,bj)=max(VICE(i,j,1,bi,bj),-0.40 _d +00) |
./pkg/seaice/dynsolver.F |
42 |
DYNSOLVER |
INTEGER i, j, bi, bj, kii |
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
85 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*(HEFF(i,j,1,bi,bj) |
./pkg/seaice/dynsolver.F |
86 |
DYNSOLVER |
& +HEFF(i-1,j,1,bi,bj) |
./pkg/seaice/dynsolver.F |
87 |
DYNSOLVER |
& +HEFF(i,j-1,1,bi,bj) |
./pkg/seaice/dynsolver.F |
88 |
DYNSOLVER |
& +HEFF(i-1,j-1,1,bi,bj)) |
./pkg/seaice/dynsolver.F |
89 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
90 |
DYNSOLVER |
& *TWO*OMEGA*SINEICE(I,J,bi,bj) |
./pkg/seaice/seaice_exch.F |
26 |
SEAICE_EXCH |
INTEGER i,j,k,bi,bj |
./pkg/seaice/seaice_exch.F |
32 |
SEAICE_EXCH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_exch.F |
35 |
SEAICE_EXCH |
tempVar(i,j,bi,bj)=fld(i,j,k,bi,bj) |
./pkg/seaice/seaice_exch.F |
42 |
SEAICE_EXCH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_exch.F |
45 |
SEAICE_EXCH |
fld(i,j,k,bi,bj)=tempVar(i,j,bi,bj) |
./pkg/seaice/lsr.F |
102 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
105 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
./pkg/seaice/lsr.F |
106 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICE(I,J,2,bi,bj) |
./pkg/seaice/lsr.F |
107 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
108 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*VICE(I,J,2,bi,bj) |
./pkg/seaice/lsr.F |
109 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
110 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
111 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*(ETA(I,J-1,bi,bj)+ETA(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
112 |
LSR |
& +ETA(I,J,bi,bj)+ETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
113 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*(ZETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
114 |
LSR |
& +ZETA(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
115 |
LSR |
& +ZETA(I,J,bi,bj)+ZETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
116 |
LSR |
DELX2(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DXUICE(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
117 |
LSR |
DELY2(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
118 |
LSR |
DELXY(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
119 |
LSR |
DELXR(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*RADIUS) |
./pkg/seaice/lsr.F |
120 |
LSR |
DELYR(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*RADIUS) |
./pkg/seaice/lsr.F |
127 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
131 |
LSR |
AA1=((ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
132 |
LSR |
& *RECIP_CSTICE(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
133 |
LSR |
& +(ETA(I,J,bi,bj)+ZETA(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
134 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
135 |
LSR |
AA2=((ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
136 |
LSR |
& *RECIP_CSTICE(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
137 |
LSR |
& +(ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
138 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
139 |
LSR |
AA3=ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
140 |
LSR |
AA4=ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
141 |
LSR |
AA5=-(ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)-ETA(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
142 |
LSR |
& -ETA(I,J-1,bi,bj))*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
143 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
144 |
LSR |
AU(I,J,bi,bj)=-AA2*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
145 |
LSR |
BU(I,J,bi,bj)=((AA1+AA2)*DELX2(I,J,bi,bj)+(AA3+AA4) |
./pkg/seaice/lsr.F |
146 |
LSR |
& *DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
147 |
LSR |
& +AA5*DELYR(I,J,bi,bj)+AA6*RADIUS2 |
./pkg/seaice/lsr.F |
148 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
149 |
LSR |
& *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
150 |
LSR |
CU(I,J,bi,bj)=-AA1*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
155 |
LSR |
AU(1,J,bi,bj)=ZERO |
./pkg/seaice/lsr.F |
156 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
./pkg/seaice/lsr.F |
157 |
LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
./pkg/seaice/lsr.F |
162 |
LSR |
FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
./pkg/seaice/lsr.F |
163 |
LSR |
3 +FORCEX(I,J,bi,bj) |
./pkg/seaice/lsr.F |
164 |
LSR |
3 +HALF*(ZETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
165 |
LSR |
3 +VICEC(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
166 |
LSR |
3 -VICEC(I+1,J,bi,bj)-VICEC(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
167 |
LSR |
3 +ZETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
168 |
LSR |
3 +VICEC(I,J,bi,bj)-VICEC(I+1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
169 |
LSR |
3 -VICEC(I,J-1,bi,bj))+ZETA(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
170 |
LSR |
3 *(VICEC(I,J,bi,bj)+VICEC(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
171 |
LSR |
3 -VICEC(I,J+1,bi,bj)-VICEC(I-1,J+1,bi,bj)) |
./pkg/seaice/lsr.F |
172 |
LSR |
3 +ZETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
173 |
LSR |
3 +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj) |
./pkg/seaice/lsr.F |
174 |
LSR |
3 -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
175 |
LSR |
3 *RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
177 |
LSR |
4 -HALF*(ETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
178 |
LSR |
4 +VICEC(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
179 |
LSR |
4 -VICEC(I+1,J,bi,bj)-VICEC(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
180 |
LSR |
4 +ETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
181 |
LSR |
4 +VICEC(I,J,bi,bj)-VICEC(I+1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
182 |
LSR |
4 -VICEC(I,J-1,bi,bj))+ETA(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
183 |
LSR |
4 *(VICEC(I,J,bi,bj)+VICEC(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
184 |
LSR |
4 -VICEC(I,J+1,bi,bj)-VICEC(I-1,J+1,bi,bj)) |
./pkg/seaice/lsr.F |
185 |
LSR |
4 +ETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
186 |
LSR |
4 +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj) |
./pkg/seaice/lsr.F |
187 |
LSR |
4 -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
188 |
LSR |
4 *RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
190 |
LSR |
5 +HALF*(ETA(I,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
191 |
LSR |
5 *(VICEC(I+1,J+1,bi,bj)+VICEC(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
192 |
LSR |
5 -VICEC(I,J+1,bi,bj)-VICEC(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
193 |
LSR |
5 +ETA(I-1,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
194 |
LSR |
5 *(VICEC(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
195 |
LSR |
5 +VICEC(I,J,bi,bj)-VICEC(I-1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
196 |
LSR |
5 -VICEC(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
197 |
LSR |
5 +ETA(I,J-1,bi,bj)*RECIP_CSTICE(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
198 |
LSR |
5 *(VICEC(I,J,bi,bj)+VICEC(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
199 |
LSR |
5 -VICEC(I+1,J,bi,bj)-VICEC(I+1,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
200 |
LSR |
5 +ETA(I-1,J-1,bi,bj)*RECIP_CSTICE(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
201 |
LSR |
5 *(VICEC(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
202 |
LSR |
5 +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj) |
./pkg/seaice/lsr.F |
203 |
LSR |
5 -VICEC(I,J-1,bi,bj)))*DELXY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
205 |
LSR |
6 -((ZETA(I,J,bi,bj)+ZETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
206 |
LSR |
6 -ZETA(I-1,J-1,bi,bj)-ZETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
207 |
LSR |
6 +(ETA(I,J,bi,bj)+ETA(I,J-1,bi,bj)-ETA(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
208 |
LSR |
6 -ETA(I-1,J,bi,bj))) |
./pkg/seaice/lsr.F |
209 |
LSR |
6 *TNGICE(I,J,bi,bj)*VICEC(I,J,bi,bj)*DELXR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
210 |
LSR |
6 *RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
211 |
LSR |
6 -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
212 |
LSR |
6 *TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
213 |
LSR |
6 *(VICEC(I+1,J,bi,bj)-VICEC(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
214 |
LSR |
6 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
216 |
LSR |
7 -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
217 |
LSR |
7 *(VICEC(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
218 |
LSR |
7 -VICEC(I-1,J,bi,bj))*DELXR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
219 |
LSR |
7 *RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
220 |
LSR |
UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
221 |
LSR |
& *DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
222 |
LSR |
& -ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
223 |
LSR |
& *TNGICE(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
224 |
LSR |
& +ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
225 |
LSR |
& *TWO*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
226 |
LSR |
UVRT2(I,J,bi,bj)=(ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
227 |
LSR |
& *DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
228 |
LSR |
& +ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
229 |
LSR |
& *TNGICE(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
230 |
LSR |
& -ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
231 |
LSR |
& *TWO*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
255 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
259 |
LSR |
UICE(I,J,3,bi,bj)=UICE(I,J,1,bi,bj) |
./pkg/seaice/lsr.F |
266 |
LSR |
AA2=((ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
267 |
LSR |
& *RECIP_CSTICE(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
268 |
LSR |
& +(ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
269 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
270 |
LSR |
AA3=AA2*DELX2(I,J,bi,bj)*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
272 |
LSR |
AA1=((ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
273 |
LSR |
& *RECIP_CSTICE(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
274 |
LSR |
& +(ETA(I,J,bi,bj)+ZETA(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
275 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
276 |
LSR |
AA3=AA1*DELX2(I,J,bi,bj)*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
280 |
LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
./pkg/seaice/lsr.F |
281 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,1,bi,bj) |
./pkg/seaice/lsr.F |
282 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,1,bi,bj) |
./pkg/seaice/lsr.F |
283 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
287 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
./pkg/seaice/lsr.F |
289 |
LSR |
URT(1)=URT(1)/BU(1,J,bi,bj) |
./pkg/seaice/lsr.F |
292 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
./pkg/seaice/lsr.F |
293 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
./pkg/seaice/lsr.F |
294 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
./pkg/seaice/lsr.F |
302 |
LSR |
UICE(I,J,1,bi,bj)=UICE(I,J,3,bi,bj) |
./pkg/seaice/lsr.F |
303 |
LSR |
& +WFAU*(URT(I)-UICE(I,J,3,bi,bj)) |
./pkg/seaice/lsr.F |
313 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
317 |
LSR |
UERR(I,J,bi,bj)=(UICE(I,J,1,bi,bj)-UICE(I,J,3,bi,bj)) |
./pkg/seaice/lsr.F |
318 |
LSR |
& *UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
319 |
LSR |
S1=MAX(ABS(UERR(I,J,bi,bj)),S1) |
./pkg/seaice/lsr.F |
354 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
358 |
LSR |
AA1=ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
359 |
LSR |
& +ZETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
360 |
LSR |
AA2=ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
361 |
LSR |
& +ZETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
362 |
LSR |
AA3=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)+ETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
363 |
LSR |
& *RECIP_CSUICE(I,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
364 |
LSR |
AA4=(ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
365 |
LSR |
& *RECIP_CSUICE(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
366 |
LSR |
AA5=((ZETA(I-1,J,bi,bj)-ETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
367 |
LSR |
& +(ZETA(I,J,bi,bj)-ETA(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
368 |
LSR |
& -(ZETA(I-1,J-1,bi,bj)-ETA(I-1,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
369 |
LSR |
& -(ZETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
370 |
LSR |
& -ETA(I,J-1,bi,bj)))*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
371 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
373 |
LSR |
AV(I,J,bi,bj)=(-AA2*DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
374 |
LSR |
& -(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
375 |
LSR |
& *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
376 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
377 |
LSR |
& *UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
378 |
LSR |
BV(I,J,bi,bj)=((AA1+AA2)*DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
379 |
LSR |
& +(AA3+AA4)*DELX2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
380 |
LSR |
& +AA5*DELYR(I,J,bi,bj)+AA6*RADIUS2 |
./pkg/seaice/lsr.F |
381 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
382 |
LSR |
& *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
383 |
LSR |
CV(I,J,bi,bj)=(-AA1*DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
384 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
385 |
LSR |
& *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
386 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
387 |
LSR |
& *UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
392 |
LSR |
AV(I,1,bi,bj)=ZERO |
./pkg/seaice/lsr.F |
393 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
./pkg/seaice/lsr.F |
394 |
LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
./pkg/seaice/lsr.F |
399 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
./pkg/seaice/lsr.F |
400 |
LSR |
2 +FORCEY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
401 |
LSR |
3 +(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
402 |
LSR |
3 *(ZETA(I-1,J,bi,bj)+ZETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
403 |
LSR |
3 -ZETA(I-1,J-1,bi,bj)-ZETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
404 |
LSR |
3 *RECIP_CSUICE(I,J,bi,bj)+HALF*ZETAMEAN(I,J,bi,bj) |
./pkg/seaice/lsr.F |
405 |
LSR |
3 *((UICEC(I+1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
406 |
LSR |
3 -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
407 |
LSR |
3 -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
408 |
LSR |
3 *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
410 |
LSR |
4 -(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
411 |
LSR |
4 *(ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
412 |
LSR |
4 -ETA(I-1,J-1,bi,bj)-ETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj) |
./pkg/seaice/lsr.F |
413 |
LSR |
4 *RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
414 |
LSR |
4 +HALF*ETAMEAN(I,J,bi,bj)*((UICEC(I+1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
415 |
LSR |
4 -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
416 |
LSR |
4 -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj)) |
./pkg/seaice/lsr.F |
417 |
LSR |
4 *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
419 |
LSR |
5 +HALF*(ETA(I,J,bi,bj)*(UICEC(I+1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
420 |
LSR |
5 +UICEC(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
421 |
LSR |
5 -UICEC(I+1,J,bi,bj)-UICEC(I,J,bi,bj))+ETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
422 |
LSR |
5 *(UICEC(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
423 |
LSR |
5 +UICEC(I,J,bi,bj)-UICEC(I+1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
424 |
LSR |
5 -UICEC(I,J-1,bi,bj))+ETA(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
425 |
LSR |
5 *(UICEC(I,J,bi,bj)+UICEC(I-1,J,bi,bj)-UICEC(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
426 |
LSR |
5 -UICEC(I-1,J+1,bi,bj)) |
./pkg/seaice/lsr.F |
427 |
LSR |
5 +ETA(I-1,J-1,bi,bj)*(UICEC(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
428 |
LSR |
5 +UICEC(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
429 |
LSR |
5 -UICEC(I,J,bi,bj)-UICEC(I-1,J,bi,bj))) |
./pkg/seaice/lsr.F |
42 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
./pkg/seaice/lsr.F |
430 |
LSR |
5 *DELXY(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
432 |
LSR |
6 +(ETA(I,J,bi,bj)+ETA(I,J-1,bi,bj)-ETA(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
433 |
LSR |
6 -ETA(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
434 |
LSR |
6 *TNGICE(I,J,bi,bj)*UICEC(I,J,bi,bj) |
./pkg/seaice/lsr.F |
435 |
LSR |
6 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
436 |
LSR |
6 +ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
437 |
LSR |
6 *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
438 |
LSR |
6 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
440 |
LSR |
7 +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
441 |
LSR |
7 *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
./pkg/seaice/lsr.F |
442 |
LSR |
7 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
443 |
LSR |
UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
444 |
LSR |
& +ETA(I-1,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
445 |
LSR |
& *DELX2(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
446 |
LSR |
UVRT2(I,J,bi,bj)=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
447 |
LSR |
& +ETA(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
448 |
LSR |
& *DELX2(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
474 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
478 |
LSR |
VICE(I,J,3,bi,bj)=VICE(I,J,1,bi,bj) |
./pkg/seaice/lsr.F |
485 |
LSR |
AA2=ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj) |
./pkg/seaice/lsr.F |
486 |
LSR |
& +ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
487 |
LSR |
AA3=(AA2*DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
488 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
489 |
LSR |
& *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
490 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
491 |
LSR |
& *DELYR(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
492 |
LSR |
& *VICE(I,J-1,1,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
494 |
LSR |
AA1=ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
495 |
LSR |
& +ZETA(I,J,bi,bj) |
./pkg/seaice/lsr.F |
496 |
LSR |
AA3=(AA1*DELY2(I,J,bi,bj) |
./pkg/seaice/lsr.F |
497 |
LSR |
& -(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
498 |
LSR |
& *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj) |
./pkg/seaice/lsr.F |
499 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
./pkg/seaice/lsr.F |
500 |
LSR |
& *DELYR(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
501 |
LSR |
& *VICE(I,J+1,1,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
506 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,1,bi,bj) |
./pkg/seaice/lsr.F |
507 |
LSR |
& +UVRT2(I,J,bi,bj)*VICE(I+1,J,1,bi,bj) |
./pkg/seaice/lsr.F |
508 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
512 |
LSR |
CVV(J)=CV(I,J,bi,bj) |
./pkg/seaice/lsr.F |
514 |
LSR |
VRT(1)=VRT(1)/BV(I,1,bi,bj) |
./pkg/seaice/lsr.F |
517 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
./pkg/seaice/lsr.F |
518 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
./pkg/seaice/lsr.F |
519 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
./pkg/seaice/lsr.F |
527 |
LSR |
VICE(I,J,1,bi,bj)=VICE(I,J,3,bi,bj) |
./pkg/seaice/lsr.F |
528 |
LSR |
& +WFAV*(VRT(J)-VICE(I,J,3,bi,bj)) |
./pkg/seaice/lsr.F |
537 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
541 |
LSR |
UERR(I,J,bi,bj)=(VICE(I,J,1,bi,bj)-VICE(I,J,3,bi,bj)) |
./pkg/seaice/lsr.F |
542 |
LSR |
& *UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
543 |
LSR |
S2=MAX(ABS(UERR(I,J,bi,bj)),S2) |
./pkg/seaice/lsr.F |
580 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
583 |
LSR |
UICE(I,J,1,bi,bj)=UICE(I,J,1,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/lsr.F |
584 |
LSR |
VICE(I,J,1,bi,bj)=VICE(I,J,1,bi,bj)*UVM(I,J,bi,bj) |
./pkg/seaice/seaice_init.F |
100 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) = 1./CSTICE(I,J,bi,bj) |
./pkg/seaice/seaice_init.F |
102 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) =0. _d 0 |
./pkg/seaice/seaice_init.F |
104 |
SEAICE_INIT |
IF ( CSUICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN |
./pkg/seaice/seaice_init.F |
105 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) = 1./CSUICE(I,J,bi,bj) |
./pkg/seaice/seaice_init.F |
107 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) =0. _d 0 |
./pkg/seaice/seaice_init.F |
110 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yC(I,J,bi,bj)*deg2rad) |
./pkg/seaice/seaice_init.F |
111 |
SEAICE_INIT |
TNGTICE(i,j,bi,bj)=SINEICE(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
112 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yG(I,J,bi,bj)*deg2rad) |
./pkg/seaice/seaice_init.F |
113 |
SEAICE_INIT |
TNGICE(i,j,bi,bj) =SINEICE(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
114 |
SEAICE_INIT |
DXTICE(i,j,bi,bj)=dxF(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
115 |
SEAICE_INIT |
DXUICE(i,j,bi,bj)=dxV(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
116 |
SEAICE_INIT |
DYTICE(i,j,bi,bj)=dyF(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
117 |
SEAICE_INIT |
DYUICE(i,j,bi,bj)=dyU(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
122 |
SEAICE_INIT |
HEFFM(i,j,bi,bj)=ONE |
./pkg/seaice/seaice_init.F |
123 |
SEAICE_INIT |
IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
128 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
129 |
SEAICE_INIT |
mask_uice=HEFFM(I,J, bi,bj)+HEFFM(I-1,J-1,bi,bj) |
./pkg/seaice/seaice_init.F |
130 |
SEAICE_INIT |
& +HEFFM(I,J-1,bi,bj)+HEFFM(I-1,J, bi,bj) |
./pkg/seaice/seaice_init.F |
131 |
SEAICE_INIT |
IF(mask_uice.GT.3.5) UVM(I,J,bi,bj)=ONE |
./pkg/seaice/seaice_init.F |
141 |
SEAICE_INIT |
CSTICE(i,j,bi,bj) = ONE |
./pkg/seaice/seaice_init.F |
142 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) = ONE |
./pkg/seaice/seaice_init.F |
144 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) = ONE |
./pkg/seaice/seaice_init.F |
145 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) = ONE |
./pkg/seaice/seaice_init.F |
147 |
SEAICE_INIT |
TNGTICE(i,j,bi,bj)= ZERO |
./pkg/seaice/seaice_init.F |
148 |
SEAICE_INIT |
TNGICE(i,j,bi,bj) = ZERO |
./pkg/seaice/seaice_init.F |
149 |
SEAICE_INIT |
DXTICE(i,j,bi,bj) = dxF(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
150 |
SEAICE_INIT |
DXUICE(i,j,bi,bj) = dxV(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
153 |
SEAICE_INIT |
myTile = W2_myTileList(bi) |
./pkg/seaice/seaice_init.F |
160 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
166 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
171 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
177 |
SEAICE_INIT |
IF(DXTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
178 |
SEAICE_INIT |
& DXTICE(i,j,bi,bj)=DXTICE(1,j,bi,bj) |
./pkg/seaice/seaice_init.F |
179 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
180 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(1,j,bi,bj) |
./pkg/seaice/seaice_init.F |
183 |
SEAICE_INIT |
IF(DXTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
184 |
SEAICE_INIT |
& DXTICE(i,j,bi,bj)=DXTICE(sNx,j,bi,bj) |
./pkg/seaice/seaice_init.F |
185 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
186 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(sNx,j,bi,bj) |
./pkg/seaice/seaice_init.F |
191 |
SEAICE_INIT |
IF(DXTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
192 |
SEAICE_INIT |
& DXTICE(i,j,bi,bj)=DXTICE(i,1,bi,bj) |
./pkg/seaice/seaice_init.F |
193 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
194 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(i,1,bi,bj) |
./pkg/seaice/seaice_init.F |
199 |
SEAICE_INIT |
IF(DXTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
200 |
SEAICE_INIT |
& DXTICE(i,j,bi,bj)=DXTICE(i,sNy,bi,bj) |
./pkg/seaice/seaice_init.F |
201 |
SEAICE_INIT |
IF(DYTICE(i,j,bi,bj).EQ.0) |
./pkg/seaice/seaice_init.F |
202 |
SEAICE_INIT |
& DYTICE(i,j,bi,bj)=DYTICE(i,sNy,bi,bj) |
./pkg/seaice/seaice_init.F |
210 |
SEAICE_INIT |
TICE(I,J,bi,bj)=273.0 _d 0 |
./pkg/seaice/seaice_init.F |
213 |
SEAICE_INIT |
TICES(I,J,k,bi,bj)=273.0 _d 0 |
./pkg/seaice/seaice_init.F |
216 |
SEAICE_INIT |
UICEC(I,J,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
217 |
SEAICE_INIT |
VICEC(I,J,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
218 |
SEAICE_INIT |
AMASS(I,J,bi,bj)=1000.0 _d 0 |
./pkg/seaice/seaice_init.F |
226 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = 1 |
./pkg/seaice/seaice_init.F |
228 |
SEAICE_INIT |
IF (klowc(i,j,bi,bj) .LT. 2) THEN |
./pkg/seaice/seaice_init.F |
229 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = 1 |
./pkg/seaice/seaice_init.F |
231 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = 2 |
./pkg/seaice/seaice_init.F |
232 |
SEAICE_INIT |
DO WHILE ( abs(rC(KGEO(I,J,bi,bj))) .LT. 50.0 .AND. |
./pkg/seaice/seaice_init.F |
233 |
SEAICE_INIT |
& KGEO(I,J,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
./pkg/seaice/seaice_init.F |
234 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = KGEO(I,J,bi,bj) + 1 |
./pkg/seaice/seaice_init.F |
282 |
SEAICE_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
285 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=0.2*HEFFM(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
286 |
SEAICE_INIT |
YNEG(I,J,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
287 |
SEAICE_INIT |
TMIX(I,J,bi,bj)=TICE(I,J,bi,bj) |
./pkg/seaice/seaice_init.F |
289 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
./pkg/seaice/seaice_init.F |
290 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
291 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
305 |
SEAICE_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
309 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
./pkg/seaice/seaice_init.F |
318 |
SEAICE_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
322 |
SEAICE_INIT |
IF(HEFF(I,J,k,bi,bj).GT.ZERO) AREA(I,J,k,bi,bj)=ONE |
./pkg/seaice/seaice_init.F |
333 |
SEAICE_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
336 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11) |
./pkg/seaice/seaice_init.F |
337 |
SEAICE_INIT |
ETA(I,J,bi,bj)=ZETA(I,J,bi,bj)/4.0 _d 0 |
./pkg/seaice/seaice_init.F |
37 |
SEAICE_INIT |
INTEGER i, j, k, bi, bj |
./pkg/seaice/seaice_init.F |
44 |
SEAICE_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
45 |
SEAICE_INIT |
CALL TIMEAVE_RESET(FUtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
46 |
SEAICE_INIT |
CALL TIMEAVE_RESET(FVtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
47 |
SEAICE_INIT |
CALL TIMEAVE_RESET(EmPmRtave,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
48 |
SEAICE_INIT |
CALL TIMEAVE_RESET(QNETtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
49 |
SEAICE_INIT |
CALL TIMEAVE_RESET(QSWtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
50 |
SEAICE_INIT |
CALL TIMEAVE_RESET(UICEtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
51 |
SEAICE_INIT |
CALL TIMEAVE_RESET(VICEtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
52 |
SEAICE_INIT |
CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
53 |
SEAICE_INIT |
CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid) |
./pkg/seaice/seaice_init.F |
55 |
SEAICE_INIT |
SEAICE_TimeAve(k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
65 |
SEAICE_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
70 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
71 |
SEAICE_INIT |
AREA(I,J,k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
72 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
73 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
80 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
81 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=ZERO |
./pkg/seaice/seaice_init.F |
91 |
SEAICE_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init.F |
94 |
SEAICE_INIT |
CSTICE(i,j,bi,bj) =cos(yC(I,J,bi,bj)*deg2rad) |
./pkg/seaice/seaice_init.F |
95 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) =cos(yG(I,J,bi,bj)*deg2rad) |
./pkg/seaice/seaice_init.F |
99 |
SEAICE_INIT |
IF ( CSTICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN |
./pkg/seaice/ostres.F |
100 |
OSTRES |
fv(I,J,bi,bj)=HALF |
./pkg/seaice/ostres.F |
101 |
OSTRES |
& *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
112 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/ostres.F |
115 |
OSTRES |
WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj)* |
./pkg/seaice/ostres.F |
116 |
OSTRES |
& (UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
117 |
OSTRES |
WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj)* |
./pkg/seaice/ostres.F |
118 |
OSTRES |
& (UICEC(I,J,bi,bj)-GWATX(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
119 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fu(I,J,bi,bj)+ |
./pkg/seaice/ostres.F |
120 |
OSTRES |
& HALF*AREA(I,J,1,bi,bj)* |
./pkg/seaice/ostres.F |
121 |
OSTRES |
& (WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
122 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fv(I,J,bi,bj)+ |
./pkg/seaice/ostres.F |
123 |
OSTRES |
& HALF*AREA(I,J,1,bi,bj)* |
./pkg/seaice/ostres.F |
124 |
OSTRES |
& (WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
33 |
OSTRES |
INTEGER i, j, bi, bj |
./pkg/seaice/ostres.F |
53 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/ostres.F |
56 |
OSTRES |
WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj) |
./pkg/seaice/ostres.F |
57 |
OSTRES |
& *(COSWAT*(GWATX(I,J,bi,bj)-UICE(I,J,1,bi,bj)) |
./pkg/seaice/ostres.F |
58 |
OSTRES |
& -SINWAT*(GWATY(I,J,bi,bj)-VICEC(I,J,bi,bj))) |
./pkg/seaice/ostres.F |
59 |
OSTRES |
WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj) |
./pkg/seaice/ostres.F |
60 |
OSTRES |
& *(SINWAT*(GWATX(I,J,bi,bj)-UICEC(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
61 |
OSTRES |
& +COSWAT*(GWATY(I,J,bi,bj)-VICE(I,J,1,bi,bj))) |
./pkg/seaice/ostres.F |
62 |
OSTRES |
WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-( COR_ICE(I,J,bi,bj) |
./pkg/seaice/ostres.F |
63 |
OSTRES |
& *GWATY(I,J,bi,bj)-COR_ICE(I,J,bi,bj)*VICEC(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
64 |
OSTRES |
WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(-COR_ICE(I,J,bi,bj) |
./pkg/seaice/ostres.F |
65 |
OSTRES |
& *GWATX(I,J,bi,bj)+COR_ICE(I,J,bi,bj)*UICEC(I,J,bi,bj)) |
./pkg/seaice/ostres.F |
66 |
OSTRES |
WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-(UICE(I,J,1,bi,bj) |
./pkg/seaice/ostres.F |
67 |
OSTRES |
& -UICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
./pkg/seaice/ostres.F |
68 |
OSTRES |
WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(VICE(I,J,1,bi,bj) |
./pkg/seaice/ostres.F |
69 |
OSTRES |
& -VICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
./pkg/seaice/ostres.F |
75 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/ostres.F |
78 |
OSTRES |
WINDX(I,J,bi,bj)=-WINDX(I,J,bi,bj) |
./pkg/seaice/ostres.F |
79 |
OSTRES |
WINDY(I,J,bi,bj)=-WINDY(I,J,bi,bj) |
./pkg/seaice/ostres.F |
95 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/ostres.F |
98 |
OSTRES |
fu(I,J,bi,bj)=HALF |
./pkg/seaice/ostres.F |
99 |
OSTRES |
& *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
./pkg/seaice/seaice_get_forcing.F |
416 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
419 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = bWghtWind * uwind0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
420 |
SEAICE_GET_FORCING |
& aWghtWind * uwind1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
421 |
SEAICE_GET_FORCING |
vwind(i,j,bi,bj) = bWghtWind * vwind0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
422 |
SEAICE_GET_FORCING |
& aWghtWind * vwind1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
429 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
432 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = aWghtWind * uwind0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
433 |
SEAICE_GET_FORCING |
& bWghtWind * uwind1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
434 |
SEAICE_GET_FORCING |
vwind(i,j,bi,bj) = aWghtWind * vwind0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
435 |
SEAICE_GET_FORCING |
& bWghtWind * vwind1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
445 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
448 |
SEAICE_GET_FORCING |
atemp(i,j,bi,bj) = bWghtFlux * atemp0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
449 |
SEAICE_GET_FORCING |
& aWghtFlux * atemp1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
450 |
SEAICE_GET_FORCING |
aqh(i,j,bi,bj) = bWghtFlux * aqh0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
451 |
SEAICE_GET_FORCING |
& aWghtFlux * aqh1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
452 |
SEAICE_GET_FORCING |
lwdown(i,j,bi,bj) = bWghtFlux * lwdown0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
453 |
SEAICE_GET_FORCING |
& aWghtFlux * lwdown1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
454 |
SEAICE_GET_FORCING |
swdown(i,j,bi,bj) = bWghtFlux * swdown0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
455 |
SEAICE_GET_FORCING |
& aWghtFlux * swdown1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
456 |
SEAICE_GET_FORCING |
precip(i,j,bi,bj) = bWghtFlux * precip0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
457 |
SEAICE_GET_FORCING |
& aWghtFlux * precip1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
458 |
SEAICE_GET_FORCING |
evap(i,j,bi,bj) = bWghtFlux * evap0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
459 |
SEAICE_GET_FORCING |
& aWghtFlux * evap1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
460 |
SEAICE_GET_FORCING |
runoff(i,j,bi,bj) = bWghtFlux * runoff0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
461 |
SEAICE_GET_FORCING |
& aWghtFlux * runoff1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
468 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
46 |
SEAICE_GET_FORCING |
INTEGER bi,bj,i,j,iRec,iEnd |
./pkg/seaice/seaice_get_forcing.F |
471 |
SEAICE_GET_FORCING |
atemp(i,j,bi,bj) = aWghtFlux * atemp0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
472 |
SEAICE_GET_FORCING |
& bWghtFlux * atemp1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
473 |
SEAICE_GET_FORCING |
aqh(i,j,bi,bj) = aWghtFlux * aqh0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
474 |
SEAICE_GET_FORCING |
& bWghtFlux * aqh1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
475 |
SEAICE_GET_FORCING |
lwdown(i,j,bi,bj) = aWghtFlux * lwdown0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
476 |
SEAICE_GET_FORCING |
& bWghtFlux * lwdown1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
477 |
SEAICE_GET_FORCING |
swdown(i,j,bi,bj) = aWghtFlux * swdown0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
478 |
SEAICE_GET_FORCING |
& bWghtFlux * swdown1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
479 |
SEAICE_GET_FORCING |
precip(i,j,bi,bj) = aWghtFlux * precip0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
480 |
SEAICE_GET_FORCING |
& bWghtFlux * precip1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
481 |
SEAICE_GET_FORCING |
evap(i,j,bi,bj) = aWghtFlux * evap0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
482 |
SEAICE_GET_FORCING |
& bWghtFlux * evap1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
483 |
SEAICE_GET_FORCING |
runoff(i,j,bi,bj) = aWghtFlux * runoff0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
484 |
SEAICE_GET_FORCING |
& bWghtFlux * runoff1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
494 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
497 |
SEAICE_GET_FORCING |
SSS(i,j,bi,bj) = bWghtSSS * SSSsi0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
498 |
SEAICE_GET_FORCING |
& aWghtSSS * SSSsi1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
505 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
508 |
SEAICE_GET_FORCING |
SSS(i,j,bi,bj) = aWghtSSS * SSSsi0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
509 |
SEAICE_GET_FORCING |
& bWghtSSS * SSSsi1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
519 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
522 |
SEAICE_GET_FORCING |
SST(i,j,bi,bj) = bWghtSST * SSTsi0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
523 |
SEAICE_GET_FORCING |
& aWghtSST * SSTsi1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
530 |
SEAICE_GET_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
533 |
SEAICE_GET_FORCING |
SST(i,j,bi,bj) = aWghtSST * SSTsi0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
534 |
SEAICE_GET_FORCING |
& bWghtSST * SSTsi1(i,j,bi,bj) |
./pkg/seaice/seaice_get_forcing.F |
563 |
INIT_ARRAY_RS |
INTEGER i,j,bi,bj |
./pkg/seaice/seaice_get_forcing.F |
566 |
INIT_ARRAY_RS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_get_forcing.F |
569 |
INIT_ARRAY_RS |
arr(i,j,bi,bj) = initValue |
./model/src/freeze_surface.F |
41 |
FREEZE_SURFACE |
INTEGER bi,bj,i,j,k |
./model/src/freeze_surface.F |
55 |
FREEZE_SURFACE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/freeze_surface.F |
58 |
FREEZE_SURFACE |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
./model/src/freeze_surface.F |
59 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = |
./model/src/freeze_surface.F |
60 |
FREEZE_SURFACE |
& ( Tfreezing - theta(i,j,k,bi,bj) ) |
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
./model/src/freeze_surface.F |
62 |
FREEZE_SURFACE |
theta(i,j,k,bi,bj) = Tfreezing |
./model/src/freeze_surface.F |
64 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/growth.F |
100 |
GROWTH |
AR(I,J,bi,bj)=MIN(AREA(I,J,2,bi,bj), |
./pkg/seaice/growth.F |
101 |
GROWTH |
& HEFF(I,J,2,bi,bj)*1.0 _d +04) |
./pkg/seaice/growth.F |
122 |
GROWTH |
YNEG(I,J,bi,bj)=(theta(I,J,1,bi,bj)-TBC)*dRf(1)/72.0764 _d 0 |
./pkg/seaice/growth.F |
124 |
GROWTH |
YNEG(I,J,bi,bj)= 0. |
./pkg/seaice/growth.F |
126 |
GROWTH |
GHEFF(I,J)=HEFF(I,J,1,bi,bj) |
./pkg/seaice/growth.F |
127 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
./pkg/seaice/growth.F |
128 |
GROWTH |
YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj) |
./pkg/seaice/growth.F |
129 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)-YNEG(I,J,bi,bj) |
./pkg/seaice/growth.F |
131 |
GROWTH |
YNEG(I,J,bi,bj)=YNEG(I,J,bi,bj)*recip_dRf(1)*72.0764 _d 0 |
./pkg/seaice/growth.F |
158 |
GROWTH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/growth.F |
161 |
GROWTH |
act1 = bi - myBxLo(myThid) |
./pkg/seaice/growth.F |
189 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FICE(I,J,bi,bj) |
./pkg/seaice/growth.F |
190 |
GROWTH |
GAREA(I,J)=HSNOW(I,J,bi,bj)*QS |
./pkg/seaice/growth.F |
192 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)-GHEFF(I,J)/QS |
./pkg/seaice/growth.F |
195 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj) |
./pkg/seaice/growth.F |
196 |
GROWTH |
& -(GHEFF(I,J)/QS)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
197 |
GROWTH |
FICE(I,J,bi,bj)=ZERO |
./pkg/seaice/growth.F |
199 |
GROWTH |
FICE(I,J,bi,bj)=-(GHEFF(I,J)-GAREA(I,J))/SEAICE_deltaTtherm |
./pkg/seaice/growth.F |
200 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj) |
./pkg/seaice/growth.F |
201 |
GROWTH |
& -HSNOW(I,J,bi,bj)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
202 |
GROWTH |
HSNOW(I,J,bi,bj)=0.0 |
./pkg/seaice/growth.F |
211 |
GROWTH |
FHEFF(I,J,bi,bj)=FICE(I,J,bi,bj)*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
212 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*FO(I,J,bi,bj) |
./pkg/seaice/growth.F |
220 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FHEFF(I,J,bi,bj)*Q0 |
./pkg/seaice/growth.F |
221 |
GROWTH |
GAREA(I,J)=SEAICE_deltaTtherm*FO(I,J,bi,bj)*Q0 |
./pkg/seaice/growth.F |
222 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
./pkg/seaice/growth.F |
224 |
GROWTH |
HCORR(I,J,bi,bj)=MIN(ZERO,GHEFF(I,J)) |
./pkg/seaice/growth.F |
229 |
GROWTH |
GAREA(I,J)=TWO*(ONE-AREA(I,J,2,bi,bj))*GAREA(I,J)/HO |
./pkg/seaice/growth.F |
230 |
GROWTH |
& +HALF*HCORR(I,J,bi,bj)*AREA(I,J,2,bi,bj) |
./pkg/seaice/growth.F |
231 |
GROWTH |
& /(HEFF(I,J,1,bi,bj)+.00001 _d 0) |
./pkg/seaice/growth.F |
232 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)+GAREA(I,J) |
./pkg/seaice/growth.F |
240 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
241 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
./pkg/seaice/growth.F |
242 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)+GHEFF(I,J) |
./pkg/seaice/growth.F |
243 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)+GHEFF(I,J) |
./pkg/seaice/growth.F |
245 |
GROWTH |
QNETI(I,J,bi,bj)=(GHEFF(I,J)-SEAICE_deltaTtherm* |
./pkg/seaice/growth.F |
246 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj))/Q0/SEAICE_deltaTtherm |
./pkg/seaice/growth.F |
253 |
GROWTH |
QNET(I,J,bi,bj)=QNETI(I,J,bi,bj)*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
254 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj) |
./pkg/seaice/growth.F |
255 |
GROWTH |
QSW(I,J,bi,bj)=QSWI(I,J,bi,bj)*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
256 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QSWO(I,J,bi,bj) |
./pkg/seaice/growth.F |
261 |
GROWTH |
QNET(I,J,bi,bj)=QNET(I,J,bi,bj) |
./pkg/seaice/growth.F |
262 |
GROWTH |
& +YNEG(I,J,bi,bj)/SEAICE_deltaTtherm*maskC(I,J,1,bi,bj) |
./pkg/seaice/growth.F |
264 |
GROWTH |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
./pkg/seaice/growth.F |
271 |
GROWTH |
IF(FICE(I,J,bi,bj).GT.ZERO) THEN |
./pkg/seaice/growth.F |
273 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+SEAICE_deltaTtherm* |
./pkg/seaice/growth.F |
274 |
GROWTH |
& PRECIP(I,J,bi,bj)*AREA(I,J,2,bi,bj)*SDF |
./pkg/seaice/growth.F |
277 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj) |
./pkg/seaice/growth.F |
278 |
GROWTH |
& -PRECIP(I,J,bi,bj)*AREA(I,J,2,bi,bj)* |
./pkg/seaice/growth.F |
282 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj) |
./pkg/seaice/growth.F |
283 |
GROWTH |
& -PRECIP(I,J,bi,bj)*(ONE-AREA(I,J,2,bi,bj)) |
./pkg/seaice/growth.F |
286 |
GROWTH |
EmPmR(I,J,bi,bj)= maskC(I,J,1,bi,bj)*( |
./pkg/seaice/growth.F |
287 |
GROWTH |
& EVAP(I,J,bi,bj)-RUNOFF(I,J,bi,bj) |
./pkg/seaice/growth.F |
288 |
GROWTH |
& +SEAICE_SALT(I,J,bi,bj)*0.92 _d 0/SEAICE_deltaTtherm |
./pkg/seaice/growth.F |
305 |
GROWTH |
GHEFF(I,J)=SQRT(UICE(I,J,1,bi,bj)**2+VICE(I,J,1,bi,bj)**2) |
./pkg/seaice/growth.F |
306 |
GROWTH |
GAREA(I,J)=HEFF(I,J,1,bi,bj) |
./pkg/seaice/growth.F |
307 |
GROWTH |
print*,'I J QNET:',I, J, QNET(i,j,bi,bj), QSW(I,J,bi,bj) |
./pkg/seaice/growth.F |
314 |
GROWTH |
if(HEFF(i,j,1,bi,bj).gt.1.) then |
./pkg/seaice/growth.F |
316 |
GROWTH |
& HEFF(i,j,1,bi,bj),theta(I,J,1,bi,bj),yneg(I,J,bi,bj) |
./pkg/seaice/growth.F |
318 |
GROWTH |
& QSW(I,J,bi,bj),QNETI(I,J,bi,bj)*AR(I,J,bi,bj) |
./pkg/seaice/growth.F |
319 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj), QNET(I,J,bi,bj) |
./pkg/seaice/growth.F |
331 |
GROWTH |
AREA(I,J,1,bi,bj)=MIN(AREA(I,J,1,bi,bj) |
./pkg/seaice/growth.F |
332 |
GROWTH |
& ,HEFF(I,J,1,bi,bj)/.0001 _d 0) |
./pkg/seaice/growth.F |
343 |
GROWTH |
AREA(I,J,1,bi,bj)=MIN(ONE,AREA(I,J,1,bi,bj)) |
./pkg/seaice/growth.F |
352 |
GROWTH |
AREA(I,J,1,bi,bj)=MAX(ZERO,AREA(I,J,1,bi,bj)) |
./pkg/seaice/growth.F |
353 |
GROWTH |
HSNOW(I,J,bi,bj)=MAX(ZERO,HSNOW(I,J,bi,bj)) |
./pkg/seaice/growth.F |
355 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/growth.F |
356 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/growth.F |
360 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/growth.F |
40 |
GROWTH |
INTEGER i, j, bi, bj |
./pkg/seaice/growth.F |
62 |
GROWTH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/growth.F |
66 |
GROWTH |
act1 = bi - myBxLo(myThid) |
./pkg/seaice/growth.F |
89 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=ZERO |
./pkg/gmredi/gmredi_calc_wflow.F |
11 |
GMREDI_CALC_WFLOW |
I bi, bj, k, myThid) |
./pkg/gmredi/gmredi_calc_wflow.F |
31 |
GMREDI_CALC_WFLOW |
INTEGER bi, bj, k, myThid |
./pkg/gmredi/gmredi_calc_wflow.F |
48 |
GMREDI_CALC_WFLOW |
& +( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_wflow.F |
49 |
GMREDI_CALC_WFLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_wflow.F |
50 |
GMREDI_CALC_WFLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
./pkg/gmredi/gmredi_calc_wflow.F |
51 |
GMREDI_CALC_WFLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
./pkg/gmredi/gmredi_calc_wflow.F |
52 |
GMREDI_CALC_WFLOW |
& )*maskC(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_slope_psi.F |
12 |
GMREDI_SLOPE_PSI |
I bi,bj, myThid ) |
./pkg/gmredi/gmredi_slope_psi.F |
51 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
./pkg/gmredi/gmredi_slope_psi.F |
71 |
GMREDI_SLOPE_PSI |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_init.F |
38 |
GMREDI_INIT |
INTEGER i,j,k,bi,bj |
./pkg/gmredi/gmredi_init.F |
41 |
GMREDI_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gmredi/gmredi_init.F |
47 |
GMREDI_INIT |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
48 |
GMREDI_INIT |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
49 |
GMREDI_INIT |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
51 |
GMREDI_INIT |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
52 |
GMREDI_INIT |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
55 |
GMREDI_INIT |
Kux(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
56 |
GMREDI_INIT |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
59 |
GMREDI_INIT |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
60 |
GMREDI_INIT |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
63 |
GMREDI_INIT |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_init.F |
71 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
72 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
73 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
75 |
GMREDI_INIT |
GM_TimeAve(k,bi,bj)=0. _d 0 |
./pkg/gmredi/gmredi_init.F |
78 |
GMREDI_INIT |
CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
81 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
82 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_xtransport.F |
102 |
GMREDI_XTRANSPORT |
& *Kux(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_xtransport.F |
106 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
110 |
GMREDI_XTRANSPORT |
& *_recip_dxC(i,j,bi,bj) |
./pkg/gmredi/gmredi_xtransport.F |
111 |
GMREDI_XTRANSPORT |
& *(Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
125 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
./pkg/gmredi/gmredi_xtransport.F |
126 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
127 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
./pkg/gmredi/gmredi_xtransport.F |
128 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
131 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
./pkg/gmredi/gmredi_xtransport.F |
132 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
133 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
./pkg/gmredi/gmredi_xtransport.F |
134 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
147 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j) |
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
./pkg/gmredi/gmredi_xtransport.F |
161 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
./pkg/gmredi/gmredi_xtransport.F |
162 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_xtransport.F |
172 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj)) |
./pkg/gmredi/gmredi_xtransport.F |
40 |
GMREDI_XTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
./pkg/gmredi/gmredi_xtransport.F |
64 |
GMREDI_XTRANSPORT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_xtransport.F |
7 |
GMREDI_XTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
./model/src/external_forcing.F |
109 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
139 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
./model/src/external_forcing.F |
162 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
168 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
178 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
179 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
./model/src/external_forcing.F |
180 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
187 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
194 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
237 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
./model/src/external_forcing.F |
267 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
273 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
281 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
282 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
./model/src/external_forcing.F |
283 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
304 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
./model/src/external_forcing.F |
305 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
./model/src/external_forcing.F |
306 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
./model/src/external_forcing.F |
308 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
317 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
330 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
361 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
./model/src/external_forcing.F |
384 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
390 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
398 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
399 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
./model/src/external_forcing.F |
400 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
408 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
./model/src/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
70 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
./model/src/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
./model/src/external_forcing.F |
89 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./model/src/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
./pkg/gmredi/gmredi_output.F |
122 |
GMREDI_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gmredi/gmredi_output.F |
123 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
124 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
125 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
128 |
GMREDI_OUTPUT |
& CALL TIMEAVE_RESET(Visbeck_K_T,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
132 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
133 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
137 |
GMREDI_OUTPUT |
GM_TimeAve(k,bi,bj)=0. |
./pkg/gmredi/gmredi_output.F |
46 |
GMREDI_OUTPUT |
INTEGER bi, bj, K |
./pkg/gmredi/gmredi_output.F |
78 |
GMREDI_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gmredi/gmredi_output.F |
80 |
GMREDI_OUTPUT |
& bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
82 |
GMREDI_OUTPUT |
& bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
84 |
GMREDI_OUTPUT |
& bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
88 |
GMREDI_OUTPUT |
& bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
93 |
GMREDI_OUTPUT |
& bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
95 |
GMREDI_OUTPUT |
& bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_uvflow.F |
11 |
GMREDI_CALC_UVFLOW |
I bi, bj, k, myThid) |
./pkg/gmredi/gmredi_calc_uvflow.F |
32 |
GMREDI_CALC_UVFLOW |
INTEGER bi, bj, k, myThid |
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
./pkg/gmredi/gmredi_calc_uvflow.F |
56 |
GMREDI_CALC_UVFLOW |
& -GM_PsiX(i,j,k,bi,bj) ) |
./pkg/gmredi/gmredi_calc_uvflow.F |
57 |
GMREDI_CALC_UVFLOW |
& *maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_uvflow.F |
59 |
GMREDI_CALC_UVFLOW |
& + dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
./pkg/gmredi/gmredi_calc_uvflow.F |
60 |
GMREDI_CALC_UVFLOW |
& -GM_PsiY(i,j,k,bi,bj) ) |
./pkg/gmredi/gmredi_calc_uvflow.F |
61 |
GMREDI_CALC_UVFLOW |
& *maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
101 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
102 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
103 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
./pkg/gmredi/gmredi_rtransport.F |
104 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
105 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
106 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k,bi,bj)-Tracer(i,j,k,bi,bj))) |
./pkg/gmredi/gmredi_rtransport.F |
107 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
108 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
109 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1,bi,bj)-Tracer(i,j-1,k-1,bi,bj)) |
./pkg/gmredi/gmredi_rtransport.F |
110 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
111 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
112 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj))) |
./pkg/gmredi/gmredi_rtransport.F |
128 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
129 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
./pkg/gmredi/gmredi_rtransport.F |
139 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
140 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
141 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
142 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
153 |
GMREDI_RTRANSPORT |
& *(Tracer(i,j,k,bi,bj)+Tracer(i,j,k-1,bi,bj)) |
./pkg/gmredi/gmredi_rtransport.F |
40 |
GMREDI_RTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
./pkg/gmredi/gmredi_rtransport.F |
60 |
GMREDI_RTRANSPORT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_rtransport.F |
7 |
GMREDI_RTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
./pkg/gmredi/gmredi_rtransport.F |
86 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
87 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
88 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k,bi,bj)-Tracer(i,j,k,bi,bj)) |
./pkg/gmredi/gmredi_rtransport.F |
89 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
90 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
91 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj))) |
./pkg/gmredi/gmredi_rtransport.F |
92 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
93 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
94 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj)) |
./pkg/gmredi/gmredi_rtransport.F |
95 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
96 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
./pkg/gmredi/gmredi_rtransport.F |
97 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1,bi,bj)-Tracer(i-1,j,k-1,bi,bj))) |
./pkg/gmredi/gmredi_calc_tensor.F |
108 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_tensor.F |
123 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_tensor.F |
158 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
159 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
160 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
162 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
163 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
166 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
167 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
170 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
171 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
182 |
GMREDI_CALC_TENSOR |
& *maskC(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
185 |
GMREDI_CALC_TENSOR |
& *maskC(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
203 |
GMREDI_CALC_TENSOR |
I bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
209 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
210 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
211 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
228 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
./pkg/gmredi/gmredi_calc_tensor.F |
229 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
./pkg/gmredi/gmredi_calc_tensor.F |
230 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
./pkg/gmredi/gmredi_calc_tensor.F |
251 |
GMREDI_CALC_TENSOR |
IF (K.eq.2) VisbeckK(i,j,bi,bj)=0. |
./pkg/gmredi/gmredi_calc_tensor.F |
255 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj)=VisbeckK(i,j,bi,bj)+deltaH |
./pkg/gmredi/gmredi_calc_tensor.F |
276 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj)= |
./pkg/gmredi/gmredi_calc_tensor.F |
277 |
GMREDI_CALC_TENSOR |
& MIN(VisbeckK(i,j,bi,bj),GM_Visbeck_maxval_K) |
./pkg/gmredi/gmredi_calc_tensor.F |
312 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
./pkg/gmredi/gmredi_calc_tensor.F |
314 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
315 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( GM_isopycK |
./pkg/gmredi/gmredi_calc_tensor.F |
318 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
320 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
330 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
333 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
336 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
354 |
GMREDI_CALC_TENSOR |
I bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
368 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = |
./pkg/gmredi/gmredi_calc_tensor.F |
371 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_tensor.F |
37 |
GMREDI_CALC_TENSOR |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
./pkg/gmredi/gmredi_calc_tensor.F |
384 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz ) |
./pkg/gmredi/gmredi_calc_tensor.F |
398 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
./pkg/gmredi/gmredi_calc_tensor.F |
401 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
./pkg/gmredi/gmredi_calc_tensor.F |
414 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
416 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
419 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
436 |
GMREDI_CALC_TENSOR |
I bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
449 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = |
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
./pkg/gmredi/gmredi_calc_tensor.F |
465 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz ) |
./pkg/gmredi/gmredi_calc_tensor.F |
479 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = |
./pkg/gmredi/gmredi_calc_tensor.F |
482 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
./pkg/gmredi/gmredi_calc_tensor.F |
499 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
./pkg/gmredi/gmredi_calc_tensor.F |
511 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
513 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
515 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
519 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
525 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
527 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
531 |
GMREDI_CALC_TENSOR |
GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock |
./pkg/gmredi/gmredi_calc_tensor.F |
542 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
546 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
551 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
552 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
556 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
557 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
560 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, iMin, iMax, jMin, jMax, |
./pkg/gmredi/gmredi_calc_tensor.F |
594 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
./pkg/gmredi/gmredi_calc_tensor.F |
605 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
./pkg/gmredi/gmredi_calc_tensor.F |
606 |
GMREDI_CALC_TENSOR_DUMMY |
Kwy(i,j,k,bi,bj) = 0.0 |
./pkg/gmredi/gmredi_calc_tensor.F |
607 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
./pkg/gmredi/gmredi_calc_tensor.F |
68 |
GMREDI_CALC_TENSOR |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
83 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
8 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
./pkg/gmredi/gmredi_calc_tensor.F |
96 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
./pkg/gmredi/gmredi_calc_tensor.F |
97 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
./pkg/gmredi/gmredi_slope_limit.F |
13 |
GMREDI_SLOPE_LIMIT |
I bi,bj, myThid ) |
./pkg/gmredi/gmredi_slope_limit.F |
54 |
GMREDI_SLOPE_LIMIT |
INTEGER bi,bj,K,myThid |
./pkg/gmredi/gmredi_slope_limit.F |
73 |
GMREDI_SLOPE_LIMIT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_ytransport.F |
102 |
GMREDI_YTRANSPORT |
& *Kvy(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_ytransport.F |
106 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
110 |
GMREDI_YTRANSPORT |
& *_recip_dyC(i,j,bi,bj) |
./pkg/gmredi/gmredi_ytransport.F |
111 |
GMREDI_YTRANSPORT |
& *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
126 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
./pkg/gmredi/gmredi_ytransport.F |
127 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
128 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
./pkg/gmredi/gmredi_ytransport.F |
129 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
132 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
./pkg/gmredi/gmredi_ytransport.F |
133 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
134 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
./pkg/gmredi/gmredi_ytransport.F |
135 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
146 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j) |
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
./pkg/gmredi/gmredi_ytransport.F |
161 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
./pkg/gmredi/gmredi_ytransport.F |
162 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_ytransport.F |
172 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
40 |
GMREDI_YTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
./pkg/gmredi/gmredi_ytransport.F |
64 |
GMREDI_YTRANSPORT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_ytransport.F |
7 |
GMREDI_YTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
./pkg/gmredi/gmredi_calc_diff.F |
36 |
GMREDI_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
./pkg/gmredi/gmredi_calc_diff.F |
52 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_diff.F |
61 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
./pkg/gmredi/gmredi_calc_diff.F |
7 |
GMREDI_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_psi_b.F |
105 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_psi_b.F |
115 |
GMREDI_CALC_PSI_B |
I bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_psi_b.F |
127 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
./pkg/gmredi/gmredi_calc_psi_b.F |
130 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_psi_b.F |
132 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_psi_b.F |
137 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
./pkg/gmredi/gmredi_calc_psi_b.F |
140 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_psi_b.F |
142 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_psi_b.F |
39 |
GMREDI_CALC_PSI_B |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
./pkg/gmredi/gmredi_calc_psi_b.F |
58 |
GMREDI_CALC_PSI_B |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_calc_psi_b.F |
8 |
GMREDI_CALC_PSI_B |
I bi, bj, iMin, iMax, jMin, jMax, |
./pkg/gmredi/gmredi_calc_psi_b.F |
95 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_psi_b.F |
97 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
./pkg/gchem/gchem_calc_tendency.F |
104 |
GCHEM_CALC_TENDENCY |
CALL CFC11_FORCING( Ptracer (1-Olx,1-Oly,1,bi,bj,1), |
./pkg/gchem/gchem_calc_tendency.F |
105 |
GCHEM_CALC_TENDENCY |
& gchemTendency(1-Olx,1-Oly,1,bi,bj,1), |
./pkg/gchem/gchem_calc_tendency.F |
106 |
GCHEM_CALC_TENDENCY |
& bi, bj, imin, imax, jmin, jmax, |
./pkg/gchem/gchem_calc_tendency.F |
108 |
GCHEM_CALC_TENDENCY |
CALL CFC12_FORCING( Ptracer (1-Olx,1-Oly,1,bi,bj,2), |
./pkg/gchem/gchem_calc_tendency.F |
109 |
GCHEM_CALC_TENDENCY |
& gchemTendency(1-Olx,1-Oly,1,bi,bj,2), |
./pkg/gchem/gchem_calc_tendency.F |
110 |
GCHEM_CALC_TENDENCY |
& bi, bj, imin, imax, jmin, jmax, |
./pkg/gchem/gchem_calc_tendency.F |
51 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
./pkg/gchem/gchem_calc_tendency.F |
62 |
GCHEM_CALC_TENDENCY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/gchem/gchem_calc_tendency.F |
66 |
GCHEM_CALC_TENDENCY |
gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0 |
./pkg/gchem/gchem_calc_tendency.F |
81 |
GCHEM_CALC_TENDENCY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/gchem/gchem_forcing_sep.F |
100 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,2), |
./pkg/gchem/gchem_forcing_sep.F |
101 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,3), |
./pkg/gchem/gchem_forcing_sep.F |
102 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,4), |
./pkg/gchem/gchem_forcing_sep.F |
103 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,5), |
./pkg/gchem/gchem_forcing_sep.F |
104 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
./pkg/gchem/gchem_forcing_sep.F |
41 |
GCHEM_FORCING_SEP |
INTEGER bi,bj,imin,imax,jmin,jmax |
./pkg/gchem/gchem_forcing_sep.F |
79 |
GCHEM_FORCING_SEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/gchem/gchem_forcing_sep.F |
90 |
GCHEM_FORCING_SEP |
call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1), |
./pkg/gchem/gchem_forcing_sep.F |
91 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,2), |
./pkg/gchem/gchem_forcing_sep.F |
92 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,3), |
./pkg/gchem/gchem_forcing_sep.F |
93 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,4), |
./pkg/gchem/gchem_forcing_sep.F |
94 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,5), |
./pkg/gchem/gchem_forcing_sep.F |
95 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,6), |
./pkg/gchem/gchem_forcing_sep.F |
96 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
./pkg/gchem/gchem_forcing_sep.F |
99 |
GCHEM_FORCING_SEP |
call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1), |
./model/src/calc_gt.F |
110 |
CALC_GT |
I iMin,iMax,jMin,jMax,bi,bj,k, |
./model/src/calc_gt.F |
118 |
CALC_GT |
I bi, bj, k, |
./model/src/calc_gt.F |
11 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
./model/src/calc_gt.F |
123 |
CALC_GT |
I bi, bj, k, |
./model/src/calc_gt.F |
132 |
CALC_GT |
I iMin,iMax,jMin,jMax,bi,bj,k, |
./model/src/calc_gt.F |
138 |
CALC_GT |
I bi, bj, k, |
./model/src/calc_gt.F |
144 |
CALC_GT |
I bi, bj, k, |
./model/src/calc_gt.F |
148 |
CALC_GT |
I bi, bj, k, |
./model/src/calc_gt.F |
153 |
CALC_GT |
I bi, bj, k, |
./model/src/calc_gt.F |
79 |
CALC_GT |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
./model/src/calc_gt.F |
98 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
./pkg/gchem/gchem_add_tendency.F |
10 |
GCHEM_ADD_TENDENCY |
SUBROUTINE GCHEM_ADD_TENDENCY(bi,bj,iMin,iMax,jMin,jMax,k, |
./pkg/gchem/gchem_add_tendency.F |
42 |
GCHEM_ADD_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
./pkg/gchem/gchem_add_tendency.F |
59 |
GCHEM_ADD_TENDENCY |
gPtr(I,J,K,bi,bj,iTracer) = gPtr(I,J,K,bi,bj,iTracer) |
./pkg/gchem/gchem_add_tendency.F |
60 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(I,J,K,bi,bj,iTracer) |
./pkg/pp81/pp81_calc_diff.F |
37 |
PP81_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
./pkg/pp81/pp81_calc_diff.F |
54 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
./pkg/pp81/pp81_calc_diff.F |
69 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,kArg,bi,bj) |
./pkg/pp81/pp81_calc_diff.F |
71 |
PP81_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
./pkg/pp81/pp81_calc_diff.F |
7 |
PP81_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
./pkg/pp81/pp81_calc_visc.F |
30 |
PP81_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
./pkg/pp81/pp81_calc_visc.F |
46 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) ) |
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) * |
./pkg/pp81/pp81_calc_visc.F |
54 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) ) |
./pkg/pp81/pp81_calc_visc.F |
6 |
PP81_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
./model/src/convective_adjustment.F |
119 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,iMin,iMax,jMin,jMax,K-1,K+deltaK, |
./model/src/convective_adjustment.F |
11 |
CONVECTIVE_ADJUSTMENT |
I bi, bj, iMin, iMax, jMin, jMax, |
./model/src/convective_adjustment.F |
130 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,iMin,iMax,jMin,jMax,K,K+deltaK, |
./model/src/convective_adjustment.F |
147 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,K,rhoKm1,rhoK, |
./model/src/convective_adjustment.F |
153 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
./model/src/convective_adjustment.F |
159 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
./model/src/convective_adjustment.F |
167 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB,myThid) |
./model/src/convective_adjustment.F |
179 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTclock, bi, bj, myThid) |
./model/src/convective_adjustment.F |
44 |
CONVECTIVE_ADJUSTMENT |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
./model/src/convective_adjustment.F |
83 |
CONVECTIVE_ADJUSTMENT |
act1 = bi - myBxLo(myThid) |
./pkg/pp81/pp81_do_diags.F |
119 |
PP81_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_do_diags.F |
120 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPviscArtave, Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
121 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPdiffKrtave,Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
123 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=0. |
./pkg/pp81/pp81_do_diags.F |
138 |
PP81_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_do_diags.F |
140 |
PP81_DO_DIAGS |
& PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
142 |
PP81_DO_DIAGS |
& PPdiffKrtave,PPdiffKr,Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
145 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=pp_TimeAve(k,bi,bj)+DDTT |
./pkg/pp81/pp81_do_diags.F |
157 |
PP81_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_do_diags.F |
159 |
PP81_DO_DIAGS |
& Nr, bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
161 |
PP81_DO_DIAGS |
& Nr, bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
189 |
PP81_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_do_diags.F |
190 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPviscArtave, Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
191 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPdiffKrtave,Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
193 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=0. |
./pkg/pp81/pp81_do_diags.F |
201 |
PP81_DO_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_do_diags.F |
203 |
PP81_DO_DIAGS |
& PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
205 |
PP81_DO_DIAGS |
& PPdiffKrtave,PPdiffKr,Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
208 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=pp_TimeAve(k,bi,bj)+DDTT |
./pkg/pp81/pp81_do_diags.F |
66 |
PP81_DO_DIAGS |
INTEGER bi, bj, K |
./pkg/pp81/pp81_calc.F |
101 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
./pkg/pp81/pp81_calc.F |
102 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
./pkg/pp81/pp81_calc.F |
111 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
./pkg/pp81/pp81_calc.F |
112 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
./pkg/pp81/pp81_calc.F |
113 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
./pkg/pp81/pp81_calc.F |
11 |
PP81_CALC |
I bi, bj, myTime, myThid ) |
./pkg/pp81/pp81_calc.F |
50 |
PP81_CALC |
INTEGER bi, bj |
./pkg/pp81/pp81_calc.F |
72 |
PP81_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
./pkg/pp81/pp81_ri_number.F |
101 |
PP81_RI_NUMBER |
I bi, bj, iMin, iMax, jMin, jMax, K, K, |
./pkg/pp81/pp81_ri_number.F |
110 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
./pkg/pp81/pp81_ri_number.F |
113 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
./pkg/pp81/pp81_ri_number.F |
114 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
./pkg/pp81/pp81_ri_number.F |
11 |
PP81_RI_NUMBER |
I bi, bj, K, iMin, iMax, jMin, jMax, |
./pkg/pp81/pp81_ri_number.F |
49 |
PP81_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
./pkg/pp81/pp81_ri_number.F |
96 |
PP81_RI_NUMBER |
I bi, bj, iMin, iMax, jMin, jMax, Km1, K, |
./pkg/pp81/pp81_init.F |
31 |
PP81_INIT |
INTEGER i, j, k, bi, bj |
./pkg/pp81/pp81_init.F |
38 |
PP81_INIT |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_init.F |
42 |
PP81_INIT |
PPviscAr (i,j,k,bi,bj) = viscAr |
./pkg/pp81/pp81_init.F |
43 |
PP81_INIT |
PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k) |
./pkg/aim_compon_interf/atm_export_evmpr.F |
38 |
ATM_EXPORT_EVMPR |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_evmpr.F |
44 |
ATM_EXPORT_EVMPR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_evmpr.F |
45 |
ATM_EXPORT_EVMPR |
IF ( ABS(EvMPrTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_evmpr.F |
46 |
ATM_EXPORT_EVMPR |
& .AND. EvMPrTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_evmpr.F |
47 |
ATM_EXPORT_EVMPR |
recipAvT = 1. _d 0/EvMPrTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_evmpr.F |
50 |
ATM_EXPORT_EVMPR |
EvMPrFlux(I,J,bi,bj) = EvMPrFlux(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_evmpr.F |
54 |
ATM_EXPORT_EVMPR |
& bi,bj,1.-EvMPrTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_evmpr.F |
65 |
ATM_EXPORT_EVMPR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_evmpr.F |
66 |
ATM_EXPORT_EVMPR |
EvMPrTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_evmpr.F |
69 |
ATM_EXPORT_EVMPR |
EvMPrFlux(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_taux.F |
38 |
ATM_EXPORT_TAUX |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_taux.F |
44 |
ATM_EXPORT_TAUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_taux.F |
45 |
ATM_EXPORT_TAUX |
IF ( ABS(tauXTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_taux.F |
46 |
ATM_EXPORT_TAUX |
& .AND. tauXTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_taux.F |
47 |
ATM_EXPORT_TAUX |
recipAvT = 1. _d 0/tauXTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_taux.F |
50 |
ATM_EXPORT_TAUX |
tauX(I,J,bi,bj) = tauX(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_taux.F |
54 |
ATM_EXPORT_TAUX |
& bi,bj,1.-tauXTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_taux.F |
65 |
ATM_EXPORT_TAUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_taux.F |
66 |
ATM_EXPORT_TAUX |
tauXTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_taux.F |
69 |
ATM_EXPORT_TAUX |
tauX(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_saltfx.F |
38 |
ATM_EXPORT_SALTFX |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_saltfx.F |
44 |
ATM_EXPORT_SALTFX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_saltfx.F |
45 |
ATM_EXPORT_SALTFX |
IF ( ABS(saltFxTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_saltfx.F |
46 |
ATM_EXPORT_SALTFX |
& .AND. saltFxTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_saltfx.F |
47 |
ATM_EXPORT_SALTFX |
recipAvT = 1. _d 0/saltFxTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_saltfx.F |
50 |
ATM_EXPORT_SALTFX |
iceSaltFlx(I,J,bi,bj) = iceSaltFlx(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_saltfx.F |
54 |
ATM_EXPORT_SALTFX |
& bi,bj,1.-saltFxTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_saltfx.F |
65 |
ATM_EXPORT_SALTFX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_saltfx.F |
66 |
ATM_EXPORT_SALTFX |
saltFxTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_saltfx.F |
69 |
ATM_EXPORT_SALTFX |
iceSaltFlx(I,J,bi,bj) = 0. |
./model/src/calc_common_factors.F |
104 |
CALC_COMMON_FACTORS |
uTrans(i,j) = uVel(i,j,k,bi,bj)*xA(i,j) |
./model/src/calc_common_factors.F |
105 |
CALC_COMMON_FACTORS |
vTrans(i,j) = vVel(i,j,k,bi,bj)*yA(i,j) |
./model/src/calc_common_factors.F |
10 |
CALC_COMMON_FACTORS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
./model/src/calc_common_factors.F |
113 |
CALC_COMMON_FACTORS |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)*maskUp(i,j) |
./model/src/calc_common_factors.F |
48 |
CALC_COMMON_FACTORS |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
./model/src/calc_common_factors.F |
85 |
CALC_COMMON_FACTORS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
./model/src/calc_common_factors.F |
93 |
CALC_COMMON_FACTORS |
xA(i,j) = _dyG(i,j,bi,bj) |
./model/src/calc_common_factors.F |
94 |
CALC_COMMON_FACTORS |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
./model/src/calc_common_factors.F |
95 |
CALC_COMMON_FACTORS |
yA(i,j) = _dxG(i,j,bi,bj) |
./model/src/calc_common_factors.F |
96 |
CALC_COMMON_FACTORS |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
./pkg/aim_compon_interf/atm_export_atmslp.F |
38 |
ATM_EXPORT_ATMSLP |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_atmslp.F |
44 |
ATM_EXPORT_ATMSLP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_atmslp.F |
45 |
ATM_EXPORT_ATMSLP |
IF ( ABS(atmSLPrTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_atmslp.F |
46 |
ATM_EXPORT_ATMSLP |
& .AND. atmSLPrTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_atmslp.F |
47 |
ATM_EXPORT_ATMSLP |
recipAvT = 1. _d 0/atmSLPrTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_atmslp.F |
50 |
ATM_EXPORT_ATMSLP |
atmSLPr(I,J,bi,bj) = atmSLPr(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_atmslp.F |
54 |
ATM_EXPORT_ATMSLP |
& bi,bj,1.-atmSLPrTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_atmslp.F |
65 |
ATM_EXPORT_ATMSLP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_atmslp.F |
66 |
ATM_EXPORT_ATMSLP |
atmSLPrTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_atmslp.F |
69 |
ATM_EXPORT_ATMSLP |
atmSLPr(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_exch_configs.F |
43 |
CPL_EXCH_CONFIGS |
INTEGER I,J,K,bi,bj |
./pkg/aim_compon_interf/cpl_exch_configs.F |
79 |
CPL_EXCH_CONFIGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
82 |
CPL_EXCH_CONFIGS |
IF ( ocMxlD(I,J,bi,bj) .NE. seaSurface_ocn .AND. |
./pkg/aim_compon_interf/cpl_exch_configs.F |
83 |
CPL_EXCH_CONFIGS |
& Ro_surf(I,J,bi,bj) .NE. groundLevel_atm ) THEN |
./pkg/aim_compon_interf/cpl_exch_configs.F |
86 |
CPL_EXCH_CONFIGS |
biDiff = bi |
./pkg/aim_compon_interf/cpl_exch_configs.F |
93 |
CPL_EXCH_CONFIGS |
& 'H (atmosphere) ==',Ro_surf(I,J,bi,bj) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
96 |
CPL_EXCH_CONFIGS |
& 'H (ocean) ==',ocMxlD(I,J,bi,bj) |
./pkg/aim_compon_interf/atm_store_seaice.F |
40 |
ATM_STORE_SEAICE |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_seaice.F |
55 |
ATM_STORE_SEAICE |
seaIceTime(bi,bj) = seaIceTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_seaice.F |
58 |
ATM_STORE_SEAICE |
seaIceTime(bi,bj) = cplTimeFraction |
./pkg/aim_compon_interf/atm_store_seaice.F |
62 |
ATM_STORE_SEAICE |
seaIceMass(i,j,bi,bj) = |
./pkg/aim_compon_interf/atm_store_seaice.F |
63 |
ATM_STORE_SEAICE |
& ( snowHeight(i,j,bi,bj)*rhos |
./pkg/aim_compon_interf/atm_store_seaice.F |
64 |
ATM_STORE_SEAICE |
& + iceHeight(i,j,bi,bj)*rhoi |
./pkg/aim_compon_interf/atm_store_seaice.F |
65 |
ATM_STORE_SEAICE |
& )*iceMask(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_seaice.F |
8 |
ATM_STORE_SEAICE |
SUBROUTINE ATM_STORE_SEAICE( bi,bj, |
./pkg/aim_compon_interf/cpl_register.F |
34 |
CPL_REGISTER |
INTEGER bi,bj,J |
./pkg/aim_compon_interf/cpl_register.F |
43 |
CPL_REGISTER |
DO bi=1,nSx |
./pkg/aim_compon_interf/cpl_register.F |
45 |
CPL_REGISTER |
iG0 = myXGlobalLo+(bi-1)*sNx |
./pkg/aim_compon_interf/cpl_register.F |
46 |
CPL_REGISTER |
IREG(1,bi,bj)=sNx |
./pkg/aim_compon_interf/cpl_register.F |
47 |
CPL_REGISTER |
IREG(2,bi,bj)=sNy |
./pkg/aim_compon_interf/cpl_register.F |
48 |
CPL_REGISTER |
IREG(3,bi,bj)=iG0 |
./pkg/aim_compon_interf/cpl_register.F |
49 |
CPL_REGISTER |
IREG(4,bi,bj)=jG0 |
./pkg/aim_compon_interf/atm_apply_import.F |
105 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
./pkg/aim_compon_interf/atm_apply_import.F |
106 |
ATM_APPLY_IMPORT |
v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_apply_import.F |
120 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
./pkg/aim_compon_interf/atm_apply_import.F |
124 |
ATM_APPLY_IMPORT |
aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
./pkg/aim_compon_interf/atm_apply_import.F |
125 |
ATM_APPLY_IMPORT |
ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN |
./pkg/aim_compon_interf/atm_apply_import.F |
128 |
ATM_APPLY_IMPORT |
aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
./pkg/aim_compon_interf/atm_apply_import.F |
13 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_compon_interf/atm_apply_import.F |
54 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
./pkg/aim_compon_interf/atm_apply_import.F |
72 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
./pkg/aim_compon_interf/atm_apply_import.F |
73 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_apply_import.F |
83 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
./pkg/aim_compon_interf/atm_apply_import.F |
84 |
ATM_APPLY_IMPORT |
tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_apply_import.F |
94 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
./pkg/aim_compon_interf/atm_apply_import.F |
95 |
ATM_APPLY_IMPORT |
sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
36 |
ATM_STORE_QSHORTWAVE |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
52 |
ATM_STORE_QSHORTWAVE |
qShortWaveTime(bi,bj) = qShortWaveTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
55 |
ATM_STORE_QSHORTWAVE |
qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
56 |
ATM_STORE_QSHORTWAVE |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
7 |
ATM_STORE_QSHORTWAVE |
SUBROUTINE ATM_STORE_QSHORTWAVE(bi,bj, |
./pkg/aim_compon_interf/atm_export_seaice.F |
38 |
ATM_EXPORT_SEAICE |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_seaice.F |
44 |
ATM_EXPORT_SEAICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_seaice.F |
45 |
ATM_EXPORT_SEAICE |
IF ( ABS(seaIceTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_seaice.F |
46 |
ATM_EXPORT_SEAICE |
& .AND. seaIceTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_seaice.F |
47 |
ATM_EXPORT_SEAICE |
recipAvT = 1. _d 0/seaIceTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_seaice.F |
50 |
ATM_EXPORT_SEAICE |
seaIceMass(I,J,bi,bj) = seaIceMass(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_seaice.F |
54 |
ATM_EXPORT_SEAICE |
& bi,bj,1.-seaIceTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_seaice.F |
65 |
ATM_EXPORT_SEAICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_seaice.F |
66 |
ATM_EXPORT_SEAICE |
seaIceTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_seaice.F |
69 |
ATM_EXPORT_SEAICE |
seaIceMass(I,J,bi,bj) = 0. |
./model/src/calc_viscosity.F |
11 |
CALC_VISCOSITY |
I bi,bj,iMin,iMax,jMin,jMax,K, |
./model/src/calc_viscosity.F |
37 |
CALC_VISCOSITY |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
./model/src/calc_viscosity.F |
62 |
CALC_VISCOSITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,K, |
./model/src/calc_viscosity.F |
69 |
CALC_VISCOSITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,K, |
./model/src/calc_viscosity.F |
76 |
CALC_VISCOSITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,K, |
./model/src/calc_viscosity.F |
83 |
CALC_VISCOSITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,K, |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
38 |
ATM_EXPORT_QSHORTWAVE |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
44 |
ATM_EXPORT_QSHORTWAVE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
45 |
ATM_EXPORT_QSHORTWAVE |
IF ( ABS(qShortWaveTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
46 |
ATM_EXPORT_QSHORTWAVE |
& .AND. qShortWaveTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
47 |
ATM_EXPORT_QSHORTWAVE |
recipAvT = 1. _d 0/qShortWaveTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
50 |
ATM_EXPORT_QSHORTWAVE |
qShortWave(I,J,bi,bj) = qShortWave(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
54 |
ATM_EXPORT_QSHORTWAVE |
& bi,bj,1.-qShortWaveTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
65 |
ATM_EXPORT_QSHORTWAVE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
66 |
ATM_EXPORT_QSHORTWAVE |
qShortWaveTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_qshortwave.F |
69 |
ATM_EXPORT_QSHORTWAVE |
qShortWave(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_store_roenfx.F |
45 |
ATM_STORE_ROENFX |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_roenfx.F |
60 |
ATM_STORE_ROENFX |
ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_roenfx.F |
63 |
ATM_STORE_ROENFX |
RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_roenfx.F |
64 |
ATM_STORE_ROENFX |
& + land_enRnOf(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_roenfx.F |
8 |
ATM_STORE_ROENFX |
SUBROUTINE ATM_STORE_ROENFX( bi,bj, |
./pkg/aim_compon_interf/atm_store_runoff.F |
45 |
ATM_STORE_RUNOFF |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_runoff.F |
61 |
ATM_STORE_RUNOFF |
RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_runoff.F |
64 |
ATM_STORE_RUNOFF |
RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj) |
./pkg/aim_compon_interf/atm_store_runoff.F |
65 |
ATM_STORE_RUNOFF |
& + land_runOff(I,J,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_runoff.F |
8 |
ATM_STORE_RUNOFF |
SUBROUTINE ATM_STORE_RUNOFF( bi,bj, |
./pkg/aim_compon_interf/atm_export_roenfx.F |
38 |
ATM_EXPORT_ROENFX |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_roenfx.F |
44 |
ATM_EXPORT_ROENFX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_roenfx.F |
45 |
ATM_EXPORT_ROENFX |
IF ( ABS(ROEnFxTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_roenfx.F |
46 |
ATM_EXPORT_ROENFX |
& .AND. ROEnFxTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_roenfx.F |
47 |
ATM_EXPORT_ROENFX |
recipAvT = 1. _d 0/ROEnFxTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_roenfx.F |
50 |
ATM_EXPORT_ROENFX |
RunOffEnFx(I,J,bi,bj) = RunOffEnFx(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_roenfx.F |
54 |
ATM_EXPORT_ROENFX |
& bi,bj,1.-ROEnFxTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_roenfx.F |
65 |
ATM_EXPORT_ROENFX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_roenfx.F |
66 |
ATM_EXPORT_ROENFX |
ROEnFxTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_roenfx.F |
69 |
ATM_EXPORT_ROENFX |
RunOffEnFx(I,J,bi,bj) = 0. |
./model/src/adams_bashforth2.F |
10 |
ADAMS_BASHFORTH2 |
I bi, bj, k, |
./model/src/adams_bashforth2.F |
35 |
ADAMS_BASHFORTH2 |
INTEGER bi,bj,k |
./model/src/adams_bashforth2.F |
63 |
ADAMS_BASHFORTH2 |
gTrtmp = ab15*gTracer(i,j,k,bi,bj) |
./model/src/adams_bashforth2.F |
64 |
ADAMS_BASHFORTH2 |
& + ab05*gTrNm1(i,j,k,bi,bj) |
./model/src/adams_bashforth2.F |
65 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
./model/src/adams_bashforth2.F |
66 |
ADAMS_BASHFORTH2 |
gTracer(i,j,k,bi,bj) = gTrtmp |
./pkg/aim_compon_interf/atm_store_saltfx.F |
36 |
ATM_STORE_SALTFX |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_saltfx.F |
51 |
ATM_STORE_SALTFX |
saltFxTime(bi,bj) = saltFxTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_saltfx.F |
54 |
ATM_STORE_SALTFX |
iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_saltfx.F |
55 |
ATM_STORE_SALTFX |
& + saltFlux(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_saltfx.F |
7 |
ATM_STORE_SALTFX |
SUBROUTINE ATM_STORE_SALTFX( bi,bj, |
./pkg/aim_compon_interf/cpl_ini_vars.F |
37 |
CPL_INI_VARS |
INTEGER I,J,bi,bj |
./pkg/aim_compon_interf/cpl_ini_vars.F |
40 |
CPL_INI_VARS |
DO bi=myBxLo(myThid),myByLo(myThid) |
./pkg/aim_compon_interf/cpl_ini_vars.F |
44 |
CPL_INI_VARS |
atmSLPr( I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
HeatFlux( I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
46 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
tauX( I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
tauY( I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
EvMPrFlux( I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
RunOffFlux(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
56 |
CPL_INI_VARS |
RunOffEnFx(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
57 |
CPL_INI_VARS |
iceSaltFlx(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
58 |
CPL_INI_VARS |
seaIceMass(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
SSTocn (I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
62 |
CPL_INI_VARS |
SSSocn (I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
63 |
CPL_INI_VARS |
vSqocn (I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
66 |
CPL_INI_VARS |
atmSLPrTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
HeatFluxTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
qShortwaveTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
tauXTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
tauYTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
76 |
CPL_INI_VARS |
EvMPrTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
77 |
CPL_INI_VARS |
RunOffTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
78 |
CPL_INI_VARS |
ROEnFxTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
79 |
CPL_INI_VARS |
saltFxTime(bi,bj) = 0. |
./pkg/aim_compon_interf/cpl_ini_vars.F |
80 |
CPL_INI_VARS |
seaIceTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_heatflux.F |
38 |
ATM_EXPORT_HEATFLUX |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_heatflux.F |
44 |
ATM_EXPORT_HEATFLUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_heatflux.F |
45 |
ATM_EXPORT_HEATFLUX |
IF ( ABS(HeatFluxTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_heatflux.F |
46 |
ATM_EXPORT_HEATFLUX |
& .AND. HeatFluxTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_heatflux.F |
47 |
ATM_EXPORT_HEATFLUX |
recipAvT = 1. _d 0/HeatFluxTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_heatflux.F |
50 |
ATM_EXPORT_HEATFLUX |
HeatFlux(I,J,bi,bj) = HeatFlux(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_heatflux.F |
54 |
ATM_EXPORT_HEATFLUX |
& bi,bj,1.-HeatFluxTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_heatflux.F |
65 |
ATM_EXPORT_HEATFLUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_heatflux.F |
66 |
ATM_EXPORT_HEATFLUX |
HeatFluxTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_heatflux.F |
69 |
ATM_EXPORT_HEATFLUX |
HeatFlux(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_tauy.F |
38 |
ATM_EXPORT_TAUY |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_tauy.F |
44 |
ATM_EXPORT_TAUY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_tauy.F |
45 |
ATM_EXPORT_TAUY |
IF ( ABS(tauYTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_tauy.F |
46 |
ATM_EXPORT_TAUY |
& .AND. tauYTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_tauy.F |
47 |
ATM_EXPORT_TAUY |
recipAvT = 1. _d 0/tauYTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_tauy.F |
50 |
ATM_EXPORT_TAUY |
tauY(I,J,bi,bj) = tauY(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_tauy.F |
54 |
ATM_EXPORT_TAUY |
& bi,bj,1.-tauYTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_tauy.F |
65 |
ATM_EXPORT_TAUY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_tauy.F |
66 |
ATM_EXPORT_TAUY |
tauYTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_tauy.F |
69 |
ATM_EXPORT_TAUY |
tauY(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_store_atmslp.F |
36 |
ATM_STORE_ATMSLP |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_atmslp.F |
51 |
ATM_STORE_ATMSLP |
atmSLPrTime(bi,bj) = atmSLPrTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_atmslp.F |
54 |
ATM_STORE_ATMSLP |
atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_atmslp.F |
55 |
ATM_STORE_ATMSLP |
& + etaN(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_atmslp.F |
7 |
ATM_STORE_ATMSLP |
SUBROUTINE ATM_STORE_ATMSLP( bi,bj, |
./pkg/aim_compon_interf/atm_store_tauy.F |
42 |
ATM_STORE_TAUY |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_tauy.F |
60 |
ATM_STORE_TAUY |
tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_tauy.F |
67 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_store_tauy.F |
69 |
ATM_STORE_TAUY |
& ( aim_drag(i,j-1,bi,bj) |
./pkg/aim_compon_interf/atm_store_tauy.F |
70 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
./pkg/aim_compon_interf/atm_store_tauy.F |
71 |
ATM_STORE_TAUY |
& + aim_drag(i, j ,bi,bj) |
./pkg/aim_compon_interf/atm_store_tauy.F |
72 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
./pkg/aim_compon_interf/atm_store_tauy.F |
73 |
ATM_STORE_TAUY |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
./pkg/aim_compon_interf/atm_store_tauy.F |
74 |
ATM_STORE_TAUY |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_tauy.F |
7 |
ATM_STORE_TAUY |
SUBROUTINE ATM_STORE_TAUY( bi,bj, |
./pkg/aim_compon_interf/atm_store_tauy.F |
86 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_store_tauy.F |
88 |
ATM_STORE_TAUY |
& ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
./pkg/aim_compon_interf/atm_store_tauy.F |
89 |
ATM_STORE_TAUY |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
./pkg/aim_compon_interf/atm_store_tauy.F |
90 |
ATM_STORE_TAUY |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
32 |
ATM_IMPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
36 |
ATM_IMPORT_OCNCONFIG |
DO bi=myBxLo(myThid),myByLo(myThid) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
39 |
ATM_IMPORT_OCNCONFIG |
ocMxlD (i,j,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_store_taux.F |
42 |
ATM_STORE_TAUX |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_taux.F |
60 |
ATM_STORE_TAUX |
tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_taux.F |
67 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_store_taux.F |
69 |
ATM_STORE_TAUX |
& ( aim_drag(i-1,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_taux.F |
70 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
./pkg/aim_compon_interf/atm_store_taux.F |
71 |
ATM_STORE_TAUX |
& + aim_drag( i ,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_taux.F |
72 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
./pkg/aim_compon_interf/atm_store_taux.F |
73 |
ATM_STORE_TAUX |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
./pkg/aim_compon_interf/atm_store_taux.F |
74 |
ATM_STORE_TAUX |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_taux.F |
7 |
ATM_STORE_TAUX |
SUBROUTINE ATM_STORE_TAUX( bi,bj, |
./pkg/aim_compon_interf/atm_store_taux.F |
86 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_store_taux.F |
88 |
ATM_STORE_TAUX |
& ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
./pkg/aim_compon_interf/atm_store_taux.F |
89 |
ATM_STORE_TAUX |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
./pkg/aim_compon_interf/atm_store_taux.F |
90 |
ATM_STORE_TAUX |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
./model/src/quasihydrostaticterms.F |
29 |
QUASIHYDROSTATICTERMS |
INTEGER bi,bj,k |
./model/src/quasihydrostaticterms.F |
44 |
QUASIHYDROSTATICTERMS |
& fCoriCos(i,j,bi,bj)* |
./model/src/quasihydrostaticterms.F |
45 |
QUASIHYDROSTATICTERMS |
& 0.5*( uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj) ) |
./model/src/quasihydrostaticterms.F |
55 |
QUASIHYDROSTATICTERMS |
& 0.5*( uVel(i,j,k,bi,bj)**2+uVel(i+1,j,k,bi,bj)**2 ) |
./model/src/quasihydrostaticterms.F |
56 |
QUASIHYDROSTATICTERMS |
& +0.5*( vVel(i,j,k,bi,bj)**2+vVel(i,j+1,k,bi,bj)**2 ) |
./model/src/quasihydrostaticterms.F |
7 |
QUASIHYDROSTATICTERMS |
I bi,bj,k, |
./pkg/aim_compon_interf/atm_store_heatflux.F |
36 |
ATM_STORE_HEATFLUX |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_heatflux.F |
62 |
ATM_STORE_HEATFLUX |
HeatFluxTime(bi,bj) = HeatFluxTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_heatflux.F |
65 |
ATM_STORE_HEATFLUX |
HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_heatflux.F |
66 |
ATM_STORE_HEATFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_heatflux.F |
7 |
ATM_STORE_HEATFLUX |
SUBROUTINE ATM_STORE_HEATFLUX( bi,bj, |
./pkg/aim_compon_interf/atm_store_my_data.F |
31 |
ATM_STORE_MY_DATA |
INTEGER bi,bj |
./pkg/aim_compon_interf/atm_store_my_data.F |
41 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
42 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
43 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
51 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
53 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
54 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
57 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
58 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
7 |
ATM_STORE_MY_DATA |
SUBROUTINE ATM_STORE_MY_DATA( bi,bj, |
./pkg/aim_compon_interf/atm_export_runoff.F |
38 |
ATM_EXPORT_RUNOFF |
INTEGER bi |
./pkg/aim_compon_interf/atm_export_runoff.F |
44 |
ATM_EXPORT_RUNOFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_runoff.F |
45 |
ATM_EXPORT_RUNOFF |
IF ( ABS(RunOffTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
./pkg/aim_compon_interf/atm_export_runoff.F |
46 |
ATM_EXPORT_RUNOFF |
& .AND. RunOffTime(bi,bj) .NE. 0. ) THEN |
./pkg/aim_compon_interf/atm_export_runoff.F |
47 |
ATM_EXPORT_RUNOFF |
recipAvT = 1. _d 0/RunOffTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_runoff.F |
50 |
ATM_EXPORT_RUNOFF |
RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj)*recipAvT |
./pkg/aim_compon_interf/atm_export_runoff.F |
54 |
ATM_EXPORT_RUNOFF |
& bi,bj,1.-RunOffTime(bi,bj) |
./pkg/aim_compon_interf/atm_export_runoff.F |
65 |
ATM_EXPORT_RUNOFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_runoff.F |
66 |
ATM_EXPORT_RUNOFF |
RunOffTime(bi,bj) = 0. |
./pkg/aim_compon_interf/atm_export_runoff.F |
69 |
ATM_EXPORT_RUNOFF |
RunOffFlux(I,J,bi,bj) = 0. |
./pkg/aim_compon_interf/atm_store_evmpr.F |
36 |
ATM_STORE_EVMPR |
INTEGER bi, bj |
./pkg/aim_compon_interf/atm_store_evmpr.F |
54 |
ATM_STORE_EVMPR |
EvMPrTime(bi,bj) = EvMPrTime(bi,bj) + cplTimeFraction |
./pkg/aim_compon_interf/atm_store_evmpr.F |
57 |
ATM_STORE_EVMPR |
EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj) |
./pkg/aim_compon_interf/atm_store_evmpr.F |
58 |
ATM_STORE_EVMPR |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_evmpr.F |
7 |
ATM_STORE_EVMPR |
SUBROUTINE ATM_STORE_EVMPR( bi,bj, |
./pkg/monitor/mon_ke.F |
31 |
MON_KE |
INTEGER bi,bj,I,J,K |
./pkg/monitor/mon_ke.F |
44 |
MON_KE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_ke.F |
52 |
MON_KE |
volTile=volTile+rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
./pkg/monitor/mon_ke.F |
66 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*hFacW( i ,j,k,bi,bj) |
./pkg/monitor/mon_ke.F |
68 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
./pkg/monitor/mon_ke.F |
69 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*hFacW(i+1,j,k,bi,bj) |
./pkg/monitor/mon_ke.F |
70 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
./pkg/monitor/mon_ke.F |
71 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*hFacS(i, j ,k,bi,bj) |
./pkg/monitor/mon_ke.F |
72 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
./pkg/monitor/mon_ke.F |
73 |
MON_KE |
& *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*hFacS(i,j+1,k,bi,bj) |
./pkg/monitor/mon_ke.F |
76 |
MON_KE |
tmpVal= tmpVal*recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
./pkg/monitor/mon_ke.F |
90 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
./pkg/monitor/mon_ke.F |
91 |
MON_KE |
& *etaN(i,j,bi,bj)*etaN(i,j,bi,bj) |
./pkg/monitor/mon_ke.F |
95 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*maskH(i,j,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
118 |
MON_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rl.F |
123 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
125 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
./pkg/monitor/mon_stats_rl.F |
126 |
MON_STATS_RL |
tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
./pkg/monitor/mon_stats_rl.F |
127 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
35 |
MON_STATS_RL |
INTEGER bi,bj,I,J,K |
./pkg/monitor/mon_stats_rl.F |
54 |
MON_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rl.F |
62 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
63 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN |
./pkg/monitor/mon_stats_rl.F |
68 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
./pkg/monitor/mon_stats_rl.F |
72 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
73 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
74 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
75 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
78 |
MON_STATS_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
./pkg/monitor/mon_stats_rl.F |
79 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_latbnd_rl.F |
49 |
MON_STATS_LATBND_RL |
INTEGER bi,bj,i,j,k,n |
./pkg/monitor/mon_stats_latbnd_rl.F |
75 |
MON_STATS_LATBND_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
80 |
MON_STATS_LATBND_RL |
n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) ) |
./pkg/monitor/mon_stats_latbnd_rl.F |
81 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
./pkg/monitor/mon_stats_latbnd_rl.F |
82 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN |
./pkg/monitor/mon_stats_latbnd_rl.F |
87 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0.) THEN |
./pkg/monitor/mon_stats_latbnd_rl.F |
90 |
MON_STATS_LATBND_RL |
tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k) |
./pkg/monitor/mon_stats_latbnd_rl.F |
91 |
MON_STATS_LATBND_RL |
& *arrMask(i,j,km,bi,bj) |
./pkg/monitor/mon_advcflw.F |
33 |
MON_ADVCFLW |
INTEGER bi,bj,I,J,K |
./pkg/monitor/mon_advcflw.F |
39 |
MON_ADVCFLW |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
./model/src/ini_vel.F |
35 |
INI_VEL |
INTEGER bi,bj,i,j,k |
./model/src/ini_vel.F |
46 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_vel.F |
50 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
./model/src/ini_vel.F |
51 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
./model/src/ini_vel.F |
78 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_vel.F |
82 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
./model/src/ini_vel.F |
83 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./pkg/monitor/mon_stats_rs.F |
32 |
MON_STATS_RS |
INTEGER bi,bj,I,J,K |
./pkg/monitor/mon_stats_rs.F |
48 |
MON_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rs.F |
54 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rs.F |
93 |
MON_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rs.F |
98 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_advcflw2.F |
35 |
MON_ADVCFLW2 |
INTEGER bi,bj,I,J,K |
./pkg/monitor/mon_advcflw2.F |
41 |
MON_ADVCFLW2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
./pkg/monitor/mon_advcflw2.F |
46 |
MON_ADVCFLW2 |
& *max( rDrF(K)*rHfac(I,J,K,bi,bj), |
./pkg/monitor/mon_advcflw2.F |
47 |
MON_ADVCFLW2 |
& rDrF(K-1)*rHfac(I,J,K-1,bi,bj) ) |
./pkg/monitor/mon_vort3.F |
103 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
104 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
105 |
MON_VORT3 |
& )*recip_rAw(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
106 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
107 |
MON_VORT3 |
& +etaFld( i , j )*rA( i , j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
108 |
MON_VORT3 |
& )*recip_rAw(i, j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
109 |
MON_VORT3 |
& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
110 |
MON_VORT3 |
& +etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
111 |
MON_VORT3 |
& )*recip_rAs(i-1,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
112 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
113 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
114 |
MON_VORT3 |
& )*recip_rAs( i ,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
120 |
MON_VORT3 |
& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
121 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
122 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
123 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
126 |
MON_VORT3 |
vort3(i,j) = recip_rAz(i,j,bi,bj)*( |
./pkg/monitor/mon_vort3.F |
127 |
MON_VORT3 |
& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
128 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
129 |
MON_VORT3 |
& -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
130 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
154 |
MON_VORT3 |
iG = bi+(myXGlobalLo-1)/sNx |
./pkg/monitor/mon_vort3.F |
156 |
MON_VORT3 |
myTile = W2_myTileList(bi) |
./pkg/monitor/mon_vort3.F |
178 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
./pkg/monitor/mon_vort3.F |
179 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
180 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
181 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
183 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
184 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
185 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
193 |
MON_VORT3 |
& +recip_rAz(I,J,bi,bj)/AZcorner*( |
./pkg/monitor/mon_vort3.F |
194 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
195 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
196 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
198 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
199 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
200 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
208 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
./pkg/monitor/mon_vort3.F |
209 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
210 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
211 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
213 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
214 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
215 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
223 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
./pkg/monitor/mon_vort3.F |
224 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
225 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
226 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
228 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
229 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
230 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
237 |
MON_VORT3 |
IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN |
./pkg/monitor/mon_vort3.F |
243 |
MON_VORT3 |
& + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
246 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
254 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
256 |
MON_VORT3 |
IF (yG(1,1,bi,bj).EQ.-90.) THEN |
./pkg/monitor/mon_vort3.F |
261 |
MON_VORT3 |
& - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
264 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) |
./pkg/monitor/mon_vort3.F |
272 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
282 |
MON_VORT3 |
tmpAre = rAz(i,j,bi,bj)*drF(k) |
./pkg/monitor/mon_vort3.F |
283 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
./pkg/monitor/mon_vort3.F |
289 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
35 |
MON_VORT3 |
INTEGER bi,bj,i,j,k |
./pkg/monitor/mon_vort3.F |
63 |
MON_VORT3 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_vort3.F |
76 |
MON_VORT3 |
etaFld(i,j) = etaH(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
77 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
./pkg/monitor/mon_surfcor.F |
101 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
102 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
./pkg/monitor/mon_surfcor.F |
103 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
./pkg/monitor/mon_surfcor.F |
122 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
./pkg/monitor/mon_surfcor.F |
123 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
./pkg/monitor/mon_surfcor.F |
124 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
./pkg/monitor/mon_surfcor.F |
143 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
./pkg/monitor/mon_surfcor.F |
144 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
./pkg/monitor/mon_surfcor.F |
147 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
./pkg/monitor/mon_surfcor.F |
53 |
MON_SURFCOR |
INTEGER i,j,k,ks,bi,bj |
./pkg/monitor/mon_surfcor.F |
69 |
MON_SURFCOR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_surfcor.F |
78 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
./pkg/monitor/mon_surfcor.F |
80 |
MON_SURFCOR |
areaTile = areaTile + rA(i,j,bi,bj) |
./pkg/monitor/mon_surfcor.F |
82 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
99 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
./model/src/ini_salt.F |
45 |
INI_SALT |
INTEGER bi, bj |
./model/src/ini_salt.F |
52 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_salt.F |
56 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
./model/src/ini_salt.F |
73 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_salt.F |
77 |
INI_SALT |
IF (maskC(I,J,K,bi,bj).EQ.0.) salt(I,J,K,bi,bj) = 0. |
./model/src/ini_salt.F |
83 |
INI_SALT |
IF ( maskC(I,J,K,bi,bj).NE.0. |
./model/src/ini_salt.F |
84 |
INI_SALT |
& .AND. salt(I,J,K,bi,bj).EQ.0. ) THEN |