File |
Line number |
Procedure |
Code |
./pkg/streamice/streamice_advect_thickness.F |
177 |
STREAMICE_ADVECT_THICKNESS |
max_icfl = 1.e-20 |
./pkg/streamice/streamice_advect_thickness.F |
188 |
STREAMICE_ADVECT_THICKNESS |
if (loc_icfl.gt.max_icfl) then |
./pkg/streamice/streamice_advect_thickness.F |
189 |
STREAMICE_ADVECT_THICKNESS |
max_icfl = loc_icfl |
./pkg/streamice/streamice_advect_thickness.F |
197 |
STREAMICE_ADVECT_THICKNESS |
CALL GLOBAL_MAX_R8 (max_icfl, myThid) |
./pkg/streamice/streamice_advect_thickness.F |
209 |
STREAMICE_ADVECT_THICKNESS |
& streamice_cfl_factor / max_icfl, |
./pkg/streamice/streamice_advect_thickness.F |
42 |
STREAMICE_ADVECT_THICKNESS |
_RL thick_bd, uflux, vflux, max_icfl, loc_icfl |