| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/STREAMICE.h |
345 |
NO PROCEDURE |
& STREAMICE_hmask, |
|
./pkg/streamice/STREAMICE.h |
356 |
NO PROCEDURE |
_RS STREAMICE_hmask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
102 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gi.eq.1).and.(STREAMICE_hmask(i-1,j,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
150 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
151 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
154 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gi.eq.Nx).and.(STREAMICE_hmask(i+1,j,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
74 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
75 |
STREAMICE_ADV_FLUX_FL_X |
& ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
76 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
85 |
STREAMICE_ADV_FLUX_FL_X |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
90 |
STREAMICE_ADV_FLUX_FL_X |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
98 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
99 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i-2,j,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
101 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
102 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j-2,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
105 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gj.eq.1).and.(STREAMICE_hmask(i,j-1,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
153 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
154 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
157 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gj.eq.Ny).and.(STREAMICE_hmask(i,j+1,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
75 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
76 |
STREAMICE_ADV_FLUX_FL_Y |
& ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
77 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
87 |
STREAMICE_ADV_FLUX_FL_Y |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
92 |
STREAMICE_ADV_FLUX_FL_Y |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
216 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_adv_front.F |
222 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_adv_front.F |
227 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_adv_front.F |
248 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free |
|
./pkg/streamice/streamice_adv_front.F |
259 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
125 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_2dtracer.F |
126 |
STREAMICE_ADVECT_2DTRACER |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
172 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_2dtracer.F |
173 |
STREAMICE_ADVECT_2DTRACER |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
105 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
110 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
117 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR. |
|
./pkg/streamice/streamice_advect_thickness.F |
118 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
135 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
140 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
149 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR. |
|
./pkg/streamice/streamice_advect_thickness.F |
150 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
233 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
276 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
298 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
341 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_thickness.F |
342 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
365 |
STREAMICE_ADVECT_THICKNESS |
STREAMICE_hmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
91 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
279 |
STREAMICE_CG_MAKE_A |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
734 |
STREAMICE_CG_ADIAG |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
83 |
STREAMICE_CG_ACTION |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
902 |
STREAMICE_CG_BOUND_VALS |
IF ((STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) .AND. |
|
./pkg/streamice/streamice_diagnostics_state.F |
131 |
STREAMICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL_RS(STREAMICE_hmask,'SI_hmask', |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
112 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
140 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0 .and. |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
141 |
STREAMICE_DRIVING_STRESS_PPM |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
172 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
177 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
209 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
237 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
266 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0 .and. |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
267 |
STREAMICE_DRIVING_STRESS_PPM |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
298 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
303 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
362 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
363 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2) ) THEN ! left face of the cell is at a stress boundary |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
377 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
378 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
387 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
388 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
397 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
398 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
76 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
84 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
155 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_varia.F |
210 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
226 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_varia.F |
228 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
233 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_varia.F |
261 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_varia.F |
264 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
303 |
STREAMICE_INIT_VARIA |
CALL READ_FLD_XY_RS( STREAMICEhMaskFile, ' ', STREAMICE_hmask, |
|
./pkg/streamice/streamice_init_varia.F |
545 |
STREAMICE_INIT_VARIA |
_EXCH_XY_RS(STREAMICE_hmask, myThid ) |
|
./pkg/streamice/streamice_init_varia.F |
598 |
STREAMICE_INIT_VARIA |
& STREAMICE_hmask, 0, myThid ) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
57 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
73 |
STREAMICE_INVERT_SURF_FORTHICK |
& ( STREAMICE_hmask(i,j,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_read_pickup.F |
137 |
STREAMICE_READ_PICKUP |
CALL READ_MFLDS_LEV_RS('SI_hmask', STREAMICE_hmask, |
|
./pkg/streamice/streamice_taub.F |
54 |
STREAMICE_TAUB |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
60 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
61 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
64 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
65 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
160 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i+1,j,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
161 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
168 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i-1,j,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
169 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
176 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i,j+1,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
177 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
184 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i,j-1,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
185 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
57 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RS( STREAMICE_hmask, myThid ) |
|
./pkg/streamice/streamice_velmask_upd.F |
76 |
STREAMICE_VELMASK_UPD |
IF (STREAMICE_hmask(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_visc_beta.F |
44 |
STREAMICE_VISC_BETA |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
64 |
STREAMICE_VISC_BETA_HYBRID |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_write_pickup.F |
93 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RS( fn, fp, 1, STREAMICE_hmask, |