| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
106 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = TRAC(i-1,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
130 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
134 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
141 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
145 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (uface .lt. 0. _d 0) THEN ! uface <= 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
158 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = TRAC(i+1,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
183 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
187 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
194 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
43 |
STREAMICE_ADV_FLUX_FL_X |
_RL uface, phi, cfl, Cr, rdenom, d0, d1, psi |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
80 |
STREAMICE_ADV_FLUX_FL_X |
uface = UADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
81 |
STREAMICE_ADV_FLUX_FL_X |
cfl = ABS(uface) * time_step * recip_dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
84 |
STREAMICE_ADV_FLUX_FL_X |
& uface.gt.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
86 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
89 |
STREAMICE_ADV_FLUX_FL_X |
& uface.le.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
91 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
94 |
STREAMICE_ADV_FLUX_FL_X |
IF (uface .gt. 0. _d 0) THEN |