File |
Line number |
Procedure |
Code |
./pkg/shelfice/shelfice_step_icemass.F |
60 |
SHELFICE_STEP_ICEMASS |
& H_streamice(I,J,bi,bj) * streamice_density |
./pkg/streamice/STREAMICE.h |
386 |
NO PROCEDURE |
& H_streamice, |
./pkg/streamice/STREAMICE.h |
477 |
NO PROCEDURE |
_RL H_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/streamice/streamice_adv_front.F |
166 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i-1,j,bi,bj) |
./pkg/streamice/streamice_adv_front.F |
178 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i+1,j,bi,bj) |
./pkg/streamice/streamice_adv_front.F |
190 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j-1,bi,bj) |
./pkg/streamice/streamice_adv_front.F |
202 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j+1,bi,bj) |
./pkg/streamice/streamice_adv_front.F |
211 |
STREAMICE_ADV_FRONT |
partial_vol = H_streamice (i,j,bi,bj) * |
./pkg/streamice/streamice_adv_front.F |
217 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
./pkg/streamice/streamice_adv_front.F |
224 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
./pkg/streamice/streamice_adv_front.F |
266 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href + partial_vol * |
./pkg/streamice/streamice_adv_front.F |
269 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href |
./pkg/streamice/streamice_advect_thickness.F |
218 |
STREAMICE_ADVECT_THICKNESS |
I H_streamice , |
./pkg/streamice/streamice_advect_thickness.F |
234 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI (i,j,bi,bj) = H_streamice(i,j,bi,bj) - |
./pkg/streamice/streamice_advect_thickness.F |
299 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = |
./pkg/streamice/streamice_advect_thickness.F |
363 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice (i,j,bi,bj))) THEN |
./pkg/streamice/streamice_advect_thickness.F |
364 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = 0. _d 0 |
./pkg/streamice/streamice_advect_thickness.F |
368 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = |
./pkg/streamice/streamice_advect_thickness.F |
369 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice (i,j,bi,bj) + TMB * time_step_loc |
./pkg/streamice/streamice_advect_thickness.F |
378 |
STREAMICE_ADVECT_THICKNESS |
_EXCH_XY_RL(H_streamice,myThid) |
./pkg/streamice/streamice_advect_thickness.F |
74 |
STREAMICE_ADVECT_THICKNESS |
O H_streamice, |
./pkg/streamice/streamice_advect_thickness.F |
86 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_advect_thickness.F |
95 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_advect_thickness.F |
96 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_cost_surf_accum.F |
94 |
STREAMICE_COST_SURF_ACCUM |
& streamice_wgt_drift * (H_streamice(i,j,bi,bj)- |
./pkg/streamice/streamice_diagnostics_state.F |
109 |
STREAMICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick', |
./pkg/streamice/streamice_diagnostics_state.F |
58 |
STREAMICE_DIAGNOSTICS_STATE |
h_streamice_diag(i,j,bi,bj) = H_streamice(i,j,bi,bj)v |
./pkg/streamice/streamice_driving_stress.F |
119 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+ |
./pkg/streamice/streamice_driving_stress.F |
120 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)) * |
./pkg/streamice/streamice_driving_stress.F |
128 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j,bi,bj) + H_streamice(i,j,bi,bj)) |
./pkg/streamice/streamice_driving_stress.F |
148 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress.F |
162 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
167 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
186 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
211 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
./pkg/streamice/streamice_driving_stress.F |
225 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
230 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
249 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
269 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj)+ |
./pkg/streamice/streamice_driving_stress.F |
270 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj)) * |
./pkg/streamice/streamice_driving_stress.F |
277 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i,j-1,bi,bj)) |
./pkg/streamice/streamice_driving_stress.F |
296 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress.F |
310 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
315 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
334 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
360 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 - |
./pkg/streamice/streamice_driving_stress.F |
373 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
378 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
397 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
420 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+ |
./pkg/streamice/streamice_driving_stress.F |
421 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj))* |
./pkg/streamice/streamice_driving_stress.F |
428 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j-1,bi,bj) + H_streamice(i,j,bi,bj)) |
./pkg/streamice/streamice_driving_stress.F |
447 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 - |
./pkg/streamice/streamice_driving_stress.F |
460 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
465 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
484 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
509 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
./pkg/streamice/streamice_driving_stress.F |
523 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
528 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
547 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
567 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)+ |
./pkg/streamice/streamice_driving_stress.F |
568 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj))* |
./pkg/streamice/streamice_driving_stress.F |
575 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i-1,j,bi,bj)) |
./pkg/streamice/streamice_driving_stress.F |
595 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress.F |
608 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
613 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
631 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
657 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2 - |
./pkg/streamice/streamice_driving_stress.F |
670 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_driving_stress.F |
675 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress.F |
693 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress_fd.F |
174 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
180 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
190 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
196 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
206 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
212 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
222 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
228 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
255 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress_fd.F |
270 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress_fd.F |
292 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress_fd.F |
307 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress_fd.F |
325 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
331 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
341 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
347 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
357 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
363 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
373 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
379 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_fd.F |
406 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress_fd.F |
421 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress_fd.F |
443 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
./pkg/streamice/streamice_driving_stress_fd.F |
458 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_driving_stress_ppm.F |
103 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
131 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
152 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
165 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
194 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
228 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
257 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
278 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
291 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
320 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
348 |
STREAMICE_DRIVING_STRESS_PPM |
& (streamice_density * H_streamice (i,j,bi,bj) ** 2 - |
./pkg/streamice/streamice_driving_stress_ppm.F |
352 |
STREAMICE_DRIVING_STRESS_PPM |
& (streamice_density * H_streamice (i,j,bi,bj) ** 2 - |
./pkg/streamice/streamice_driving_stress_ppm.F |
358 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density * H_streamice(i,j,bi,bj) ** 2 |
./pkg/streamice/streamice_forced_buttress.F |
108 |
STREAMICE_FORCED_BUTTRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
./pkg/streamice/streamice_forced_buttress.F |
112 |
STREAMICE_FORCED_BUTTRESS |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_forced_buttress.F |
129 |
STREAMICE_FORCED_BUTTRESS |
& H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_forced_buttress.F |
96 |
STREAMICE_FORCED_BUTTRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
./pkg/streamice/streamice_init_varia.F |
214 |
STREAMICE_INIT_VARIA |
H_streamice (i,j,bi,bj) = shelf_min_draft |
./pkg/streamice/streamice_init_varia.F |
216 |
STREAMICE_INIT_VARIA |
H_streamice (i,j,bi,bj) = (shelf_min_draft + |
./pkg/streamice/streamice_init_varia.F |
229 |
STREAMICE_INIT_VARIA |
H_streamice(i,j,bi,bj) = 0.0 |
./pkg/streamice/streamice_init_varia.F |
249 |
STREAMICE_INIT_VARIA |
CALL READ_FLD_XY_RL( STREAMICEthickFile, ' ', H_streamice, |
./pkg/streamice/streamice_init_varia.F |
259 |
STREAMICE_INIT_VARIA |
IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN |
./pkg/streamice/streamice_init_varia.F |
293 |
STREAMICE_INIT_VARIA |
CALL READ_FLD_XY_RL( STREAMICEthickFile, ' ', H_streamice, |
./pkg/streamice/streamice_init_varia.F |
544 |
STREAMICE_INIT_VARIA |
_EXCH_XY_RL(H_streamice, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
143 |
STREAMICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'SI_thick', H_streamice, |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
124 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& H_streamice(i,j,bi,bj) * rhoi/rhow |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
147 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
158 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& + H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
67 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
h = H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_velmask_upd.F |
55 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RL( H_streamice, myThid ) |
./pkg/streamice/streamice_visc_beta.F |
100 |
STREAMICE_VISC_BETA |
& second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
169 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) * streamice_delsigma (m) * |
./pkg/streamice/streamice_visc_beta_hybrid.F |
186 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
190 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
201 |
STREAMICE_VISC_BETA_HYBRID |
& * H_streamice(i,j,bi,bj)**2 |
./pkg/streamice/streamice_visc_beta_hybrid.F |
218 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
223 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
236 |
STREAMICE_VISC_BETA_HYBRID |
& (1+fb*streamice_omega(i,j,bi,bj)/H_streamice(i,j,bi,bj)) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
243 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_write_pickup.F |
111 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, H_streamice, |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
& H_streamice(i,j,bi,bj) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
128 |
CTRL_MAP_INI_GENARR |
_EXCH_XY_RL( H_streamice, myThid ) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
H_streamice(i,j,bi,bj) = |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
& H_streamice(i,j,bi,bj) |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
128 |
CTRL_MAP_INI_GENARR |
_EXCH_XY_RL( H_streamice, myThid ) |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
H_streamice(i,j,bi,bj) = |