| File |
Line number |
Procedure |
Code |
|
./model/src/calc_grad_phi_surf.F |
10 |
CALC_GRAD_PHI_SURF |
I etaFld, |
|
./model/src/calc_grad_phi_surf.F |
37 |
CALC_GRAD_PHI_SURF |
_RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_grad_phi_surf.F |
52 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
53 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i-1,j,bi,bj)*etaFld(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_surf.F |
61 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
62 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i,j-1,bi,bj)*etaFld(i,j-1,bi,bj) ) |
|
./model/src/calc_r_star.F |
107 |
CALC_R_STAR |
& (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj) |
|
./model/src/calc_r_star.F |
122 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
135 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj) |
|
./model/src/calc_r_star.F |
136 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
13 |
CALC_R_STAR |
SUBROUTINE CALC_R_STAR( etaFld, |
|
./model/src/calc_r_star.F |
151 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
163 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
174 |
CALC_R_STAR |
I bi, bj, etaFld, |
|
./model/src/calc_r_star.F |
213 |
CALC_R_STAR |
& etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
220 |
CALC_R_STAR |
& etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
227 |
CALC_R_STAR |
& etaFld(i,j-1,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
38 |
CALC_R_STAR |
_RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_surf_dr.F |
103 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
10 |
CALC_SURF_DR |
SUBROUTINE CALC_SURF_DR( etaFld, |
|
./model/src/calc_surf_dr.F |
134 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
191 |
CALC_SURF_DR |
I bi, bj, etaFld, |
|
./model/src/calc_surf_dr.F |
36 |
CALC_SURF_DR |
_RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_surf_dr.F |
83 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
112 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
113 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
115 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
116 |
MON_VORT3 |
& +etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
118 |
MON_VORT3 |
& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
119 |
MON_VORT3 |
& +etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
121 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
122 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
258 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j-1) |
|
./pkg/monitor/mon_vort3.F |
276 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j) |
|
./pkg/monitor/mon_vort3.F |
51 |
MON_VORT3 |
_RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/monitor/mon_vort3.F |
85 |
MON_VORT3 |
etaFld(i,j) = etaH(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
10 |
OBCS_APPLY_ETA |
U etaFld, |
|
./pkg/obcs/obcs_apply_eta.F |
38 |
OBCS_APPLY_ETA |
_RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
67 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBSeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
79 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
89 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
112 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
129 |
OBCS_APPLY_R_STAR |
& + etaFld(i-1,j,bi,bj)/(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
12 |
OBCS_APPLY_R_STAR |
I bi, bj, etaFld, |
|
./pkg/obcs/obcs_apply_r_star.F |
42 |
OBCS_APPLY_R_STAR |
_RL etaFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_r_star.F |
76 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
93 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j-1,bi,bj)/(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
100 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j-1,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
121 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
12 |
OBCS_APPLY_SURF_DR |
I bi, bj, etaFld, |
|
./pkg/obcs/obcs_apply_surf_dr.F |
140 |
OBCS_APPLY_SURF_DR |
& + etaFld(i-1,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
44 |
OBCS_APPLY_SURF_DR |
_RL etaFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
81 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j,bi,bj)*recip_drF(ks) |