| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
100 |
STREAMICE_ADV_FLUX_FL_X |
IF (uface .gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
112 |
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 |
138 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
142 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
149 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
153 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (uface .lt. 0. _d 0) THEN ! uface <= 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
166 |
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 |
191 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
195 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
202 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
47 |
STREAMICE_ADV_FLUX_FL_X |
_RL uface, phi, cfl, Cr, rdenom, d0, d1, psi |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
85 |
STREAMICE_ADV_FLUX_FL_X |
uface = UADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
86 |
STREAMICE_ADV_FLUX_FL_X |
cfl = ABS(uface) * time_step * recip_dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
90 |
STREAMICE_ADV_FLUX_FL_X |
& uface.gt.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
92 |
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 |
95 |
STREAMICE_ADV_FLUX_FL_X |
& uface.le.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
97 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |