| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
100 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
105 |
STREAMICE_ADV_FLUX_FL_Y |
IF (vface .gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
117 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = TRAC(i,j-1,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
142 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
146 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
153 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
157 |
STREAMICE_ADV_FLUX_FL_Y |
ELSE IF (vface .lt. 0.0) THEN ! vface <= 0 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
170 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = TRAC(i,j+1,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
194 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
198 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
205 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = vface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
48 |
STREAMICE_ADV_FLUX_FL_Y |
_RL vface, phi, cfl, Cr, rdenom, d0, d1, psi |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
86 |
STREAMICE_ADV_FLUX_FL_Y |
vface = VADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
87 |
STREAMICE_ADV_FLUX_FL_Y |
cfl = ABS(vface) * time_step * recip_dyC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
93 |
STREAMICE_ADV_FLUX_FL_Y |
& vface.gt.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
95 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
98 |
STREAMICE_ADV_FLUX_FL_Y |
& vface.le.0 .and. |