| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
27 |
STREAMICE_GET_FP_ERR_OAD |
_RL err_max |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
41 |
STREAMICE_GET_FP_ERR_OAD |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
67 |
STREAMICE_GET_FP_ERR_OAD |
IF (err_tempv .ge. err_max) err_max = err_tempv |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
73 |
STREAMICE_GET_FP_ERR_OAD |
CALL GLOBAL_MAX_R8 (err_max, myThid) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
9 |
STREAMICE_GET_FP_ERR_OAD |
SUBROUTINE STREAMICE_GET_FP_ERR_OAD ( err_max, myThid ) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
116 |
STREAMICE_GET_VEL_FP_ERR |
err_max = err_sum ** (1./streamice_err_norm) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
27 |
STREAMICE_GET_VEL_FP_ERR |
_RL err_max |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
42 |
STREAMICE_GET_VEL_FP_ERR |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
75 |
STREAMICE_GET_VEL_FP_ERR |
IF (err_tempv .ge. err_max) err_max = err_tempv |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
81 |
STREAMICE_GET_VEL_FP_ERR |
CALL GLOBAL_MAX_R8 (err_max, myThid) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
9 |
STREAMICE_GET_VEL_FP_ERR |
SUBROUTINE STREAMICE_GET_VEL_FP_ERR ( err_max, myThid ) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
106 |
STREAMICE_GET_VEL_RESID_ERR |
IF (err_tempv .ge. err_max) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
107 |
STREAMICE_GET_VEL_RESID_ERR |
err_max = err_tempv |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
114 |
STREAMICE_GET_VEL_RESID_ERR |
CALL GLOBAL_MAX_R8 (err_max, myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
144 |
STREAMICE_GET_VEL_RESID_ERR |
err_max = err_sum ** (1./streamice_err_norm) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
26 |
STREAMICE_GET_VEL_RESID_ERR |
_RL err_max |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
45 |
STREAMICE_GET_VEL_RESID_ERR |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
9 |
STREAMICE_GET_VEL_RESID_ERR |
SUBROUTINE STREAMICE_GET_VEL_RESID_ERR ( err_max, myThid ) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
101 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
IF (err_tempv .ge. err_max) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
102 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_max = err_tempv |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
111 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
CALL GLOBAL_MAX_R8 (err_max, myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
13 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
SUBROUTINE STREAMICE_GET_VEL_RESID_ERR_OAD ( err_max, myThid ) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
30 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
_RL err_max |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
49 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_vel_phistage.F |
104 |
STREAMICE_VEL_PHISTAGE |
WRITE(msgBuf,'(A,E15.7)') 'err/err_init', err_max/err_init |
|
./pkg/streamice/streamice_vel_phistage.F |
108 |
STREAMICE_VEL_PHISTAGE |
IF (err_max .LE. streamice_nonlin_tol * err_init) THEN |
|
./pkg/streamice/streamice_vel_phistage.F |
112 |
STREAMICE_VEL_PHISTAGE |
IF (err_maxerr_last_change*1.e-2 .and. STREAMICE_lower_cg_to |
|
./pkg/streamice/streamice_vel_phistage.F |
115 |
STREAMICE_VEL_PHISTAGE |
err_last_change = err_max |
|
./pkg/streamice/streamice_vel_phistage.F |
65 |
STREAMICE_VEL_PHISTAGE |
_RL err_max |
|
./pkg/streamice/streamice_vel_phistage.F |
92 |
STREAMICE_VEL_PHISTAGE |
+,CG_ITERS,err_max) |
|
./pkg/streamice/streamice_vel_solve.F |
149 |
STREAMICE_VEL_SOLVE |
err_max = err_init |
|
./pkg/streamice/streamice_vel_solve.F |
273 |
STREAMICE_VEL_SOLVE |
CALL STREAMICE_GET_VEL_RESID_ERR ( err_max, myThid ) |
|
./pkg/streamice/streamice_vel_solve.F |
276 |
STREAMICE_VEL_SOLVE |
& err_max/err_init |
|
./pkg/streamice/streamice_vel_solve.F |
280 |
STREAMICE_VEL_SOLVE |
IF (err_max .LE. streamice_nonlin_tol * err_init) THEN |
|
./pkg/streamice/streamice_vel_solve.F |
315 |
STREAMICE_VEL_SOLVE |
IF (err_maxerr_lastchange*1.e-2 .and. |
|
./pkg/streamice/streamice_vel_solve.F |
318 |
STREAMICE_VEL_SOLVE |
err_lastchange = err_max |
|
./pkg/streamice/streamice_vel_solve.F |
55 |
STREAMICE_VEL_SOLVE |
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp |
|
./pkg/streamice/streamice_vel_solve.F |
88 |
STREAMICE_VEL_SOLVE |
err_max = 0. |