| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/STREAMICE.h |
393 |
NO PROCEDURE |
& surf_el_streamice, |
|
./pkg/streamice/STREAMICE.h |
483 |
NO PROCEDURE |
_RL surf_el_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
77 |
ADSTRMICE_H_INV |
I surf_el_streamice, |
|
./pkg/streamice/streamice_cost_surf_accum.F |
93 |
STREAMICE_COST_SURF_ACCUM |
& surf_el_streamice(i,j,bi,bj))**2 / Nx / Ny + |
|
./pkg/streamice/streamice_diagnostics_state.F |
115 |
STREAMICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev', |
|
./pkg/streamice/streamice_diagnostics_state.F |
65 |
STREAMICE_DIAGNOSTICS_STATE |
& surf_el_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_driving_stress.F |
121 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
122 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
271 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j-1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
272 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
422 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
423 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
569 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i-1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
570 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
105 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
106 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
126 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i-1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
127 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i-2,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
140 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j-1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
141 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j-2,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
74 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
75 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
82 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
83 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
97 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
98 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j-1,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 |
60 |
STREAMICE_INIT_VARIA |
surf_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
120 |
STREAMICE_TIMESTEP |
& ("surf_el_init","",surf_el_streamice,0,myThid) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
137 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
140 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
146 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
157 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = Rlo |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
169 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
_EXCH_XY_RL(surf_el_streamice, myThid ) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
75 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
84 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& surf_el_streamice(i,j,bi,bj) - h |