| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/STREAMICE.h |
391 |
NO PROCEDURE |
& float_frac_streamice, |
|
./pkg/streamice/STREAMICE.h |
482 |
NO PROCEDURE |
_RL float_frac_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
346 |
STREAMICE_ADVECT_THICKNESS |
MR = -1. * (1.-float_frac_streamice(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
354 |
STREAMICE_ADVECT_THICKNESS |
MR = (1.-float_frac_streamice(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_diagnostics_state.F |
113 |
STREAMICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float', |
|
./pkg/streamice/streamice_diagnostics_state.F |
125 |
STREAMICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float', |
|
./pkg/streamice/streamice_diagnostics_state.F |
62 |
STREAMICE_DIAGNOSTICS_STATE |
& float_frac_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_driving_stress.F |
133 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
196 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
281 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
345 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
432 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
494 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
580 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
642 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
250 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
287 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
401 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
438 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
345 |
STREAMICE_DRIVING_STRESS_PPM |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
93 |
STREAMICE_FORCED_BUTTRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
58 |
STREAMICE_INIT_VARIA |
float_frac_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
132 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
155 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
167 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
_EXCH_XY_RL(float_frac_streamice, myThid ) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
86 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta.F |
106 |
STREAMICE_VISC_BETA |
& float_frac_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
232 |
STREAMICE_VISC_BETA_HYBRID |
& float_frac_streamice(i,j,bi,bj) |