| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/STREAMICE.h |
310 |
NO PROCEDURE |
& surf_el_streamice, |
|
./pkg/streamice/STREAMICE.h |
386 |
NO PROCEDURE |
_RL surf_el_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
56 |
ADSTRMICE_H_INV |
I surf_el_streamice, |
|
./pkg/streamice/streamice_cost_surf_accum.F |
90 |
STREAMICE_COST_SURF_ACCUM |
& surf_el_streamice(i,j,bi,bj))**2 / Nx / Ny + |
|
./pkg/streamice/streamice_diagnostics_state.F |
68 |
STREAMICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev', |
|
./pkg/streamice/streamice_driving_stress.F |
159 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j-1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
160 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
232 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
233 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
302 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i-1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
303 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
89 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
90 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
116 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
117 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
148 |
STREAMICE_DRIVING_STRESS_PPM |
& (-2.*surf_el_streamice(i-1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
149 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
150 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
161 |
STREAMICE_DRIVING_STRESS_PPM |
& (-surf_el_streamice(i-1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
162 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
163 |
STREAMICE_DRIVING_STRESS_PPM |
& 2*surf_el_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
174 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
175 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
179 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
180 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
213 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j+1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
214 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dyC(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
241 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
242 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j-1,bi,bj))/dyC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
274 |
STREAMICE_DRIVING_STRESS_PPM |
& (-2.*surf_el_streamice(i,j-1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
275 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
276 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
287 |
STREAMICE_DRIVING_STRESS_PPM |
& (-surf_el_streamice(i,j-1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
288 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
289 |
STREAMICE_DRIVING_STRESS_PPM |
& 2*surf_el_streamice(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
300 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j+1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
301 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
305 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
306 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j-1,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
88 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
89 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
61 |
STREAMICE_INIT_VARIA |
surf_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_solo_timestep.F |
109 |
STREAMICE_SOLO_TIMESTEP |
& ("surf_el_init","",surf_el_streamice,0,myThid) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
111 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
119 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
122 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
135 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
_EXCH_XY_RL(surf_el_streamice, myThid ) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
64 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
73 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& surf_el_streamice(i,j,bi,bj) - h |