| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_varia.F |
149 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
|
./pkg/flt/flt_init_varia.F |
153 |
FLT_INIT_VARIA |
IF ( ix.GE.iLo .AND. ix.LT.iHi .AND. |
|
./pkg/flt/flt_init_varia.F |
160 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
234 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
|
./pkg/flt/flt_init_varia.F |
238 |
FLT_INIT_VARIA |
ix = tmp(3) |
|
./pkg/flt/flt_init_varia.F |
246 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
53 |
FLT_INIT_VARIA |
_RL ix, jy, kz |
|
./pkg/flt/flt_interp_linear.F |
107 |
FLT_TRILINEAR |
I ix, jy, kz, |
|
./pkg/flt/flt_interp_linear.F |
132 |
FLT_TRILINEAR |
_RL ix, jy, kz |
|
./pkg/flt/flt_interp_linear.F |
14 |
FLT_BILINEAR |
I ix, jy, |
|
./pkg/flt/flt_interp_linear.F |
152 |
FLT_TRILINEAR |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
153 |
FLT_TRILINEAR |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
155 |
FLT_TRILINEAR |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
156 |
FLT_TRILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
202 |
FLT_BILINEAR2D |
I ix, jy, |
|
./pkg/flt/flt_interp_linear.F |
224 |
FLT_BILINEAR2D |
_RL ix, jy |
|
./pkg/flt/flt_interp_linear.F |
244 |
FLT_BILINEAR2D |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
245 |
FLT_BILINEAR2D |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
247 |
FLT_BILINEAR2D |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
248 |
FLT_BILINEAR2D |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
33 |
FLT_BILINEAR |
_RL ix, jy |
|
./pkg/flt/flt_interp_linear.F |
61 |
FLT_BILINEAR |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
62 |
FLT_BILINEAR |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
64 |
FLT_BILINEAR |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
65 |
FLT_BILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_mapping.F |
115 |
FLT_MAP_IJLOCAL2XY |
_RL ix, jy |
|
./pkg/flt/flt_mapping.F |
131 |
FLT_MAP_IJLOCAL2XY |
i = NINT(ix) |
|
./pkg/flt/flt_mapping.F |
133 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
141 |
FLT_MAP_IJLOCAL2XY |
i = NINT(ix) |
|
./pkg/flt/flt_mapping.F |
143 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
15 |
FLT_MAP_XY2IJLOCAL |
O ix, jy, |
|
./pkg/flt/flt_mapping.F |
40 |
FLT_MAP_XY2IJLOCAL |
_RL ix, jy |
|
./pkg/flt/flt_mapping.F |
54 |
FLT_MAP_XY2IJLOCAL |
ix = -1. _d 0 |
|
./pkg/flt/flt_mapping.F |
59 |
FLT_MAP_XY2IJLOCAL |
IF ( ix.EQ.-1. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
63 |
FLT_MAP_XY2IJLOCAL |
ix = DFLOAT(i)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
90 |
FLT_MAP_IJLOCAL2XY |
I ix, jy, bi, bj, myThid ) |
|
./pkg/flt/flt_runga2.F |
113 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
114 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
120 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
142 |
FLT_RUNGA2 |
itx=ix+0.5*flt_deltaT*uu*scalex |
|
./pkg/flt/flt_runga2.F |
60 |
FLT_RUNGA2 |
_RL ix, jy, itx, jty |
|
./pkg/flt/flt_runga2.F |
93 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
95 |
FLT_RUNGA2 |
ic=NINT(ix) |
|
./pkg/flt/flt_runga4.F |
115 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
116 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
144 |
FLT_RUNGA4 |
itx1=ix+0.5*flt_deltaT*u1*scalex |
|
./pkg/flt/flt_runga4.F |
194 |
FLT_RUNGA4 |
itx2=ix+0.5*flt_deltaT*u2*scalex |
|
./pkg/flt/flt_runga4.F |
244 |
FLT_RUNGA4 |
itx3=ix+flt_deltaT*u3*scalex |
|
./pkg/flt/flt_runga4.F |
60 |
FLT_RUNGA4 |
_RL ix, jy, itx1, jty1, itx2, jty2, itx3, jty3 |
|
./pkg/flt/flt_runga4.F |
93 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
95 |
FLT_RUNGA4 |
ic=NINT(ix) |
|
./pkg/flt/flt_traj.F |
104 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
107 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_traj.F |
115 |
FLT_TRAJ |
tmp(6) = ix + i0x |
|
./pkg/flt/flt_traj.F |
137 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
139 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
49 |
FLT_TRAJ |
_RL ix, jy, i0x, j0y, xx, yy, zz |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
116 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_up.F |
124 |
FLT_UP |
tmp(6) = ix + i0x |
|
./pkg/flt/flt_up.F |
133 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
138 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
139 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
50 |
FLT_UP |
_RL ix, jy, i0x, j0y, xx, yy, zz |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
110 |
GAD_OSC_HAT_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
98 |
GAD_OSC_HAT_R |
SUBROUTINE GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
126 |
GAD_OSC_HAT_X |
integer ix |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
129 |
GAD_OSC_HAT_X |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
131 |
GAD_OSC_HAT_X |
CALL GAD_OSC_LOC_X(ix,mask,fbar,ohat) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
13 |
GAD_OSC_LOC_X |
SUBROUTINE GAD_OSC_LOC_X(ix,mask,fbar,ohat) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
21 |
GAD_OSC_LOC_X |
integer ix |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
30 |
GAD_OSC_LOC_X |
if (ix.gt. +1-OLx .and. |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
31 |
GAD_OSC_LOC_X |
& ix.lt.sNx+OLx) then |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
35 |
GAD_OSC_LOC_X |
floc(+0) = fbar(+0+ix) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
38 |
GAD_OSC_LOC_X |
& mask(ix-1)*(fbar(ix-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
40 |
GAD_OSC_LOC_X |
& mask(ix+1)*(fbar(ix+1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
44 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
47 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
53 |
GAD_OSC_LOC_X |
if (ix.eq. +1-OLx) then |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
57 |
GAD_OSC_LOC_X |
floc(+0) = fbar(+0+ix) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
60 |
GAD_OSC_LOC_X |
& mask(ix+1)*(fbar(ix+1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
62 |
GAD_OSC_LOC_X |
& mask(ix+2)*(fbar(ix+2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
66 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
69 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
75 |
GAD_OSC_LOC_X |
if (ix.eq.sNx+OLx) then |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
79 |
GAD_OSC_LOC_X |
floc(+0) = fbar(+0+ix) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
82 |
GAD_OSC_LOC_X |
& mask(ix-1)*(fbar(ix-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
84 |
GAD_OSC_LOC_X |
& mask(ix-2)*(fbar(ix-2)-floc(-1)) |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
88 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
91 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
106 |
GAD_OSC_HAT_Y |
SUBROUTINE GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
118 |
GAD_OSC_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
16 |
GAD_OSC_MUL_X |
integer ix,hh |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
36 |
GAD_OSC_MUL_X |
do ii = ix-hh, ix+hh |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
39 |
GAD_OSC_MUL_X |
dels = (ii - ix) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
6 |
GAD_OSC_MUL_X |
SUBROUTINE GAD_OSC_MUL_X(ix,hh,mask,ohat,scal) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
104 |
GAD_PPM_ADV_R |
& + abs(velR(ix,iy,ir)) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
111 |
GAD_PPM_ADV_R |
floc(ir) = fbar(ix,iy,ir) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
113 |
GAD_PPM_ADV_R |
& maskC(ix,iy,ir,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
126 |
GAD_PPM_ADV_R |
CALL GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
132 |
GAD_PPM_ADV_R |
CALL GAD_PPM_P3E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
137 |
GAD_PPM_ADV_R |
CALL GAD_PPM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
144 |
GAD_PPM_ADV_R |
CALL GAD_PPM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
153 |
GAD_PPM_ADV_R |
flux(ix,iy,ir) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
61 |
GAD_PPM_ADV_R |
integer ix,iy,ir |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
90 |
GAD_PPM_ADV_R |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
92 |
GAD_PPM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
98 |
GAD_PPM_ADV_R |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
104 |
GAD_PPM_ADV_X |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
106 |
GAD_PPM_ADV_X |
floc(ix) = fbar (ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
107 |
GAD_PPM_ADV_X |
mloc(ix) = |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
108 |
GAD_PPM_ADV_X |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
139 |
GAD_PPM_ADV_X |
do ix = 1-OLx+3, sNx+OLx-2 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
141 |
GAD_PPM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
60 |
GAD_PPM_ADV_X |
integer ix,iy |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
96 |
GAD_PPM_ADV_X |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
99 |
GAD_PPM_ADV_X |
& + abs(ufac(ix,iy)) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
106 |
GAD_PPM_ADV_Y |
floc(iy) = fbar (ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
108 |
GAD_PPM_ADV_Y |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
113 |
GAD_PPM_ADV_Y |
CALL GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
119 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_P3E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
124 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
131 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
141 |
GAD_PPM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
60 |
GAD_PPM_ADV_Y |
integer ix,iy |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
70 |
GAD_PPM_ADV_Y |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
72 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
73 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
74 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
75 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
76 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
77 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
78 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
93 |
GAD_PPM_ADV_Y |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
99 |
GAD_PPM_ADV_Y |
& + abs(vfac(ix,iy)) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
100 |
GAD_PPM_FLX_R |
wCFL = wvel(ix,iy,ir) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
122 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
31 |
GAD_PPM_FLX_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
69 |
GAD_PPM_FLX_R |
if (wvel(ix,iy,ir) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
6 |
GAD_PPM_FLX_R |
SUBROUTINE GAD_PPM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
71 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
75 |
GAD_PPM_FLX_R |
if (wvel(ix,iy,ir) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
78 |
GAD_PPM_FLX_R |
wCFL = wvel(ix,iy,ir) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
105 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
106 |
GAD_PPM_FLX_X |
& * recip_dxF(ix-0,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
109 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
122 |
GAD_PPM_FLX_X |
intF = ivec(1) * fhat(1,ix-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
123 |
GAD_PPM_FLX_X |
& + ivec(2) * fhat(2,ix-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
124 |
GAD_PPM_FLX_X |
& + ivec(3) * fhat(3,ix-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
131 |
GAD_PPM_FLX_X |
flux(ix,iy) = + ufac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
52 |
GAD_PPM_FLX_X |
integer ix |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
66 |
GAD_PPM_FLX_X |
do ix = 1-OLx+3, sNx+OLx-2 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
68 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
70 |
GAD_PPM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
74 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
78 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
79 |
GAD_PPM_FLX_X |
& * recip_dxF(ix-1,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
82 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
95 |
GAD_PPM_FLX_X |
intF = ivec(1) * fhat(1,ix-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
96 |
GAD_PPM_FLX_X |
& + ivec(2) * fhat(2,ix-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
97 |
GAD_PPM_FLX_X |
& + ivec(3) * fhat(3,ix-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
105 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
106 |
GAD_PPM_FLX_Y |
& * recip_dyF(ix,iy-0,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
109 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
131 |
GAD_PPM_FLX_Y |
flux(ix,iy) = + vfac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
32 |
GAD_PPM_FLX_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
68 |
GAD_PPM_FLX_Y |
if (vvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
6 |
GAD_PPM_FLX_Y |
SUBROUTINE GAD_PPM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
70 |
GAD_PPM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
74 |
GAD_PPM_FLX_Y |
if (vvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
78 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
79 |
GAD_PPM_FLX_Y |
& * recip_dyF(ix,iy-1,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
82 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
34 |
GAD_PPM_HAT_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
6 |
GAD_PPM_HAT_R |
SUBROUTINE GAD_PPM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
114 |
GAD_PPM_HAT_X |
CALL GAD_OSC_MUL_X(ix,+2,mask, |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
132 |
GAD_PPM_HAT_X |
fhat(ii,ix) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
57 |
GAD_PPM_HAT_X |
integer ii,ix |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
67 |
GAD_PPM_HAT_X |
do ix = 1-OLx+2, sNx+OLx-2 |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
70 |
GAD_PPM_HAT_X |
ff00 = fbar(ix+0) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
72 |
GAD_PPM_HAT_X |
& + mask(ix-1)*(fbar(ix-1)-ff00) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
74 |
GAD_PPM_HAT_X |
& + mask(ix+1)*(fbar(ix+1)-ff00) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
76 |
GAD_PPM_HAT_X |
fell = edge(ix-0) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
77 |
GAD_PPM_HAT_X |
ferr = edge(ix+1) |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
35 |
GAD_PPM_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
6 |
GAD_PPM_HAT_Y |
SUBROUTINE GAD_PPM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
21 |
GAD_PPM_P3E_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
6 |
GAD_PPM_P3E_R |
SUBROUTINE GAD_PPM_P3E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
28 |
GAD_PPM_P3E_X |
integer ix |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
33 |
GAD_PPM_P3E_X |
do ix = 1-OLx+2, sNx+OLx-1 |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
36 |
GAD_PPM_P3E_X |
mloc(-1) = mask(ix-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
37 |
GAD_PPM_P3E_X |
mloc(+0) = mask(ix+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
39 |
GAD_PPM_P3E_X |
floc(-1) = fbar(ix+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
40 |
GAD_PPM_P3E_X |
& + mloc(-1)*(fbar(ix-1)-fbar(ix+0)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
41 |
GAD_PPM_P3E_X |
floc(+0) = fbar(ix-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
42 |
GAD_PPM_P3E_X |
& + mloc(+0)*(fbar(ix+0)-fbar(ix-1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
44 |
GAD_PPM_P3E_X |
mloc(-2) = mask(ix-2) * mloc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
48 |
GAD_PPM_P3E_X |
& + mloc(-2)*(fbar(ix-2)-ftmp) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
50 |
GAD_PPM_P3E_X |
mloc(+1) = mask(ix+1) * mloc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
54 |
GAD_PPM_P3E_X |
& + mloc(+1)*(fbar(ix+1)-ftmp) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
57 |
GAD_PPM_P3E_X |
edge(ix) = |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
21 |
GAD_PPM_P3E_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
6 |
GAD_PPM_P3E_Y |
SUBROUTINE GAD_PPM_P3E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
104 |
GAD_PQM_ADV_R |
& + abs(wfac(ix,iy,ir)) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
106 |
GAD_PQM_ADV_R |
floc(ir) = fbar (ix,iy,ir) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
108 |
GAD_PQM_ADV_R |
& maskC(ix,iy,ir,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
123 |
GAD_PQM_ADV_R |
CALL GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
129 |
GAD_PQM_ADV_R |
CALL GAD_PQM_P5E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
134 |
GAD_PQM_ADV_R |
CALL GAD_PQM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
141 |
GAD_PQM_ADV_R |
CALL GAD_PQM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
150 |
GAD_PQM_ADV_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
61 |
GAD_PQM_ADV_R |
integer ix,iy,ir |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
90 |
GAD_PQM_ADV_R |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
92 |
GAD_PQM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
98 |
GAD_PQM_ADV_R |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
100 |
GAD_PQM_ADV_X |
& + abs(ufac(ix,iy)) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
102 |
GAD_PQM_ADV_X |
floc(ix) = fbar (ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
103 |
GAD_PQM_ADV_X |
mloc(ix) = |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
104 |
GAD_PQM_ADV_X |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
137 |
GAD_PQM_ADV_X |
do ix = 1-OLx+4, sNx+OLx-3 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
139 |
GAD_PQM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
60 |
GAD_PQM_ADV_X |
integer ix,iy |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
97 |
GAD_PQM_ADV_X |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
100 |
GAD_PQM_ADV_Y |
& + abs(vfac(ix,iy)) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
102 |
GAD_PQM_ADV_Y |
floc(iy) = fbar (ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
104 |
GAD_PQM_ADV_Y |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
111 |
GAD_PQM_ADV_Y |
CALL GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
117 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_P5E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
122 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
129 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
139 |
GAD_PQM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
60 |
GAD_PQM_ADV_Y |
integer ix,iy |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
71 |
GAD_PQM_ADV_Y |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
73 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
74 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
75 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
76 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
77 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
78 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
79 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
94 |
GAD_PQM_ADV_Y |
do ix = 1-OLx+0, sNx+OLx-0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
106 |
GAD_PQM_FLX_R |
wCFL = wvel(ix,iy,ir) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
134 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
31 |
GAD_PQM_FLX_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
69 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
6 |
GAD_PQM_FLX_R |
SUBROUTINE GAD_PQM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
71 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
75 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
78 |
GAD_PQM_FLX_R |
wCFL = wvel(ix,iy,ir) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
100 |
GAD_PQM_FLX_X |
& + ivec(2) * fhat(2,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
101 |
GAD_PQM_FLX_X |
& + ivec(3) * fhat(3,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
102 |
GAD_PQM_FLX_X |
& + ivec(4) * fhat(4,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
103 |
GAD_PQM_FLX_X |
& + ivec(5) * fhat(5,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
111 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
112 |
GAD_PQM_FLX_X |
& * recip_dxF(ix-0,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
115 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
132 |
GAD_PQM_FLX_X |
intF = ivec(1) * fhat(1,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
133 |
GAD_PQM_FLX_X |
& + ivec(2) * fhat(2,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
134 |
GAD_PQM_FLX_X |
& + ivec(3) * fhat(3,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
135 |
GAD_PQM_FLX_X |
& + ivec(4) * fhat(4,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
136 |
GAD_PQM_FLX_X |
& + ivec(5) * fhat(5,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
143 |
GAD_PQM_FLX_X |
flux(ix,iy) = + ufac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
52 |
GAD_PQM_FLX_X |
integer ix |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
66 |
GAD_PQM_FLX_X |
do ix = 1-OLx+4, sNx+OLx-3 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
68 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
70 |
GAD_PQM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
74 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
78 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
79 |
GAD_PQM_FLX_X |
& * recip_dxF(ix-1,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
82 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
99 |
GAD_PQM_FLX_X |
intF = ivec(1) * fhat(1,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
111 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
112 |
GAD_PQM_FLX_Y |
& * recip_dyF(ix,iy-0,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
115 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
143 |
GAD_PQM_FLX_Y |
flux(ix,iy) = + vfac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
32 |
GAD_PQM_FLX_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
68 |
GAD_PQM_FLX_Y |
if (vvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
6 |
GAD_PQM_FLX_Y |
SUBROUTINE GAD_PQM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
70 |
GAD_PQM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
74 |
GAD_PQM_FLX_Y |
if (vvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
78 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
79 |
GAD_PQM_FLX_Y |
& * recip_dyF(ix,iy-1,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
82 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
37 |
GAD_PQM_HAT_R |
integer ix,iy |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
6 |
GAD_PQM_HAT_R |
SUBROUTINE GAD_PQM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
135 |
GAD_PQM_HAT_X |
CALL GAD_OSC_MUL_X(ix,+2,mask, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
153 |
GAD_PQM_HAT_X |
fhat(ii,ix) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
159 |
GAD_PQM_HAT_X |
fhat(ii,ix) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
62 |
GAD_PQM_HAT_X |
integer ii,ix |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
75 |
GAD_PQM_HAT_X |
do ix = 1-OLx+3, sNx+OLx-3 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
77 |
GAD_PQM_HAT_X |
if (mask(ix) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
80 |
GAD_PQM_HAT_X |
xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
83 |
GAD_PQM_HAT_X |
ff00 = fbar(ix+0) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
85 |
GAD_PQM_HAT_X |
& + mask(ix-1)*(fbar(ix-1)-ff00) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
87 |
GAD_PQM_HAT_X |
& + mask(ix+1)*(fbar(ix+1)-ff00) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
89 |
GAD_PQM_HAT_X |
fell = edge(+1,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
90 |
GAD_PQM_HAT_X |
ferr = edge(+1,ix+1) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
92 |
GAD_PQM_HAT_X |
dell = edge(+2,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
93 |
GAD_PQM_HAT_X |
derr = edge(+2,ix+1) |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
37 |
GAD_PQM_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
6 |
GAD_PQM_HAT_Y |
SUBROUTINE GAD_PQM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
81 |
GAD_PQM_HAT_Y |
yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
21 |
GAD_PQM_P5E_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
6 |
GAD_PQM_P5E_R |
SUBROUTINE GAD_PQM_P5E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
29 |
GAD_PQM_P5E_X |
integer ix |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
34 |
GAD_PQM_P5E_X |
do ix = 1-OLx+3, sNx+OLx-2 |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
37 |
GAD_PQM_P5E_X |
mloc(-1) = mask(ix-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
38 |
GAD_PQM_P5E_X |
mloc(+0) = mask(ix+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
40 |
GAD_PQM_P5E_X |
floc(-1) = fbar(ix+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
41 |
GAD_PQM_P5E_X |
& + mloc(-1)*(fbar(ix-1)-fbar(ix+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
42 |
GAD_PQM_P5E_X |
floc(+0) = fbar(ix-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
43 |
GAD_PQM_P5E_X |
& + mloc(+0)*(fbar(ix+0)-fbar(ix-1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
45 |
GAD_PQM_P5E_X |
mloc(-2) = mask(ix-2) * mloc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
46 |
GAD_PQM_P5E_X |
mloc(-3) = mask(ix-3) * mloc(-2) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
50 |
GAD_PQM_P5E_X |
& + mloc(-2)*(fbar(ix-2)-ftmp) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
53 |
GAD_PQM_P5E_X |
& + mloc(-3)*(fbar(ix-3)-ftmp) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
55 |
GAD_PQM_P5E_X |
mloc(+1) = mask(ix+1) * mloc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
56 |
GAD_PQM_P5E_X |
mloc(+2) = mask(ix+2) * mloc(+1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
60 |
GAD_PQM_P5E_X |
& + mloc(+1)*(fbar(ix+1)-ftmp) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
63 |
GAD_PQM_P5E_X |
& + mloc(+2)*(fbar(ix+2)-ftmp) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
66 |
GAD_PQM_P5E_X |
edge(1,ix) = |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
71 |
GAD_PQM_P5E_X |
edge(2,ix) = ( |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
75 |
GAD_PQM_P5E_X |
& ) * recip_dxC(ix,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
21 |
GAD_PQM_P5E_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
6 |
GAD_PQM_P5E_Y |
SUBROUTINE GAD_PQM_P5E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
76 |
GAD_PQM_P5E_Y |
& ) * recip_dyC(ix,iy,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
184 |
DIAG_CALC_PSIVEL |
ix = 0 |
|
./pkg/diagnostics/diag_calc_psivel.F |
189 |
DIAG_CALC_PSIVEL |
ix = i |
|
./pkg/diagnostics/diag_calc_psivel.F |
194 |
DIAG_CALC_PSIVEL |
IF ( jx.NE.0 ) dPsiX (bi,bj) = psiVel(ix,jx,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
210 |
DIAG_CALC_PSIVEL |
& ' ; ix,jx=', ix,jx, ' ; iy,jy=', iy,jy |
|
./pkg/diagnostics/diag_calc_psivel.F |
73 |
DIAG_CALC_PSIVEL |
INTEGER is, js, ix, jx, iy, jy, ijCnt |
|
./pkg/diagnostics/diagstats_ascii_out.F |
40 |
DIAGSTATS_ASCII_OUT |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_ascii_out.F |
41 |
DIAGSTATS_ASCII_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_calc.F |
196 |
DIAGSTATS_CALC |
statArr(ix) = statArr(im) |
|
./pkg/diagnostics/diagstats_calc.F |
201 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld(i,j),statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
321 |
DIAGSTATS_CALC |
statArr(ix) = MAXVAL(tmpFld, MASK = arrMaskL0.) |
|
./pkg/diagnostics/diagstats_calc.F |
78 |
DIAGSTATS_CALC |
INTEGER im, ix |
|
./pkg/diagnostics/diagstats_calc.F |
93 |
DIAGSTATS_CALC |
ix = nStats |
|
./pkg/diagnostics/diagstats_global.F |
122 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(ix,k) |
|
./pkg/diagnostics/diagstats_global.F |
127 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = tmpMax |
|
./pkg/diagnostics/diagstats_global.F |
149 |
DIAGSTATS_GLOBAL |
qtmp1(ix,0) = MAX(qtmp1(ix,0),qtmp1(ix,k)) |
|
./pkg/diagnostics/diagstats_global.F |
47 |
DIAGSTATS_GLOBAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_global.F |
48 |
DIAGSTATS_GLOBAL |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_local.F |
235 |
DIAGSTATS_LOCAL |
statFld(ix,n) = statLoc(ix) |
|
./pkg/diagnostics/diagstats_local.F |
238 |
DIAGSTATS_LOCAL |
statFld(ix,n) = MAX( statFld(ix,n), statLoc(ix) ) |
|
./pkg/diagnostics/diagstats_local.F |
87 |
DIAGSTATS_LOCAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_local.F |
88 |
DIAGSTATS_LOCAL |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
53 |
DIAGSTATS_MNC_OUT |
INTEGER im, ix, iv, ist |
|
./pkg/diagnostics/diagstats_mnc_out.F |
54 |
DIAGSTATS_MNC_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |