File |
Line number |
Procedure |
Code |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
35 |
ADSTRMICE_H_INV |
_RL rhoi, rhow, i_r, delta |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
87 |
ADSTRMICE_H_INV |
rhow = streamice_density_ocean_avg |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
88 |
ADSTRMICE_H_INV |
i_r = rhow/rhoi |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
89 |
ADSTRMICE_H_INV |
delta=1-rhoi/rhow |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
115 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
OD = -1.0 * rlo - streamice_density_firn/rhow * |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
118 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
OD = -1.0 * rlo - rhoi/rhow * |
./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 |
138 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-streamice_density_firn/rhow)*h_streamice(i,j,bi,bj) |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
141 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*h_streamice(i,j,bi,bj) + |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
142 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& rhoi/rhow*streamice_firn_correction |
./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 |
31 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
_RL OD, rhoi, rhow, delta, r, h, hf, i_r, rlo |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
43 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
rhow = streamice_density_ocean_avg |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
44 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
r=rhoi/rhow |