File |
Line number |
Procedure |
Code |
./pkg/streamice/streamice_adv_flux_fl_y.F |
109 |
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 |
133 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
137 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
144 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * stencil(0) |
./pkg/streamice/streamice_adv_flux_fl_y.F |
148 |
STREAMICE_ADV_FLUX_FL_Y |
ELSE IF (vface .lt. 0.0) THEN ! vface <= 0 |
./pkg/streamice/streamice_adv_flux_fl_y.F |
161 |
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 |
185 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
189 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
196 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = vface * stencil(0) |
./pkg/streamice/streamice_adv_flux_fl_y.F |
43 |
STREAMICE_ADV_FLUX_FL_Y |
_RL vface, phi, cfl, Cr, rdenom, d0, d1, psi |
./pkg/streamice/streamice_adv_flux_fl_y.F |
79 |
STREAMICE_ADV_FLUX_FL_Y |
vface = VADV(i,j,bi,bj) |
./pkg/streamice/streamice_adv_flux_fl_y.F |
80 |
STREAMICE_ADV_FLUX_FL_Y |
cfl = ABS(vface) * time_step * recip_dyC(i,j,bi,bj) |
./pkg/streamice/streamice_adv_flux_fl_y.F |
86 |
STREAMICE_ADV_FLUX_FL_Y |
& vface.gt.0 .and. |
./pkg/streamice/streamice_adv_flux_fl_y.F |
88 |
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 |
91 |
STREAMICE_ADV_FLUX_FL_Y |
& vface.le.0 .and. |
./pkg/streamice/streamice_adv_flux_fl_y.F |
93 |
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 |
97 |
STREAMICE_ADV_FLUX_FL_Y |
IF (vface .gt. 0. _d 0) THEN |