| File |
Line number |
Procedure |
Code |
|
./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 |
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 |
42 |
STREAMICE_ADV_FLUX_FL_X |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
78 |
STREAMICE_ADV_FLUX_FL_X |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
42 |
STREAMICE_ADV_FLUX_FL_Y |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
72 |
STREAMICE_ADV_FLUX_FL_Y |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
73 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gi .ge. 1) .and. (Gi .le. Nx)).or. |
|
./pkg/streamice/streamice_adv_front.F |
122 |
STREAMICE_ADV_FRONT |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_front.F |
153 |
STREAMICE_ADV_FRONT |
IF ((Gi .ge. 1) .and. (Gi .le. Nx) .and. |
|
./pkg/streamice/streamice_adv_front.F |
45 |
STREAMICE_ADV_FRONT |
INTEGER Gi, Gj |
|
./pkg/streamice/streamice_advect_2dtracer.F |
120 |
STREAMICE_ADVECT_2DTRACER |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_2dtracer.F |
169 |
STREAMICE_ADVECT_2DTRACER |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_2dtracer.F |
40 |
STREAMICE_ADVECT_2DTRACER |
INTEGER myThid, myIter, Gi, Gj |
|
./pkg/streamice/streamice_advect_thickness.F |
228 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
271 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
339 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
41 |
STREAMICE_ADVECT_THICKNESS |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_cg_functions.F |
65 |
STREAMICE_CG_ACTION |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj |
|
./pkg/streamice/streamice_cg_functions.F |
80 |
STREAMICE_CG_ACTION |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_driving_stress.F |
104 |
STREAMICE_DRIVING_STRESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_driving_stress.F |
39 |
STREAMICE_DRIVING_STRESS |
& Gi, Gj |
|
./pkg/streamice/streamice_driving_stress_fd.F |
39 |
STREAMICE_DRIVING_STRESS_FD |
& Gi, Gj |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
108 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (Gi.eq.Nx.AND..NOT.STREAMICE_EW_periodic) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
39 |
STREAMICE_DRIVING_STRESS_PPM |
& Gi, Gj |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
73 |
STREAMICE_DRIVING_STRESS_PPM |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
80 |
STREAMICE_DRIVING_STRESS_PPM |
IF (Gi.eq.1.AND..NOT.STREAMICE_EW_periodic) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
315 |
STREAMICE_INIT_FIXED |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_fixed.F |
323 |
STREAMICE_INIT_FIXED |
IF (Gi.EQ.1 .AND. .NOT. STREAMICE_EW_periodic) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
349 |
STREAMICE_INIT_FIXED |
IF (Gi.EQ.Nx .AND. .NOT. STREAMICE_EW_periodic) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
36 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_varia.F |
201 |
STREAMICE_INIT_VARIA |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_varia.F |
204 |
STREAMICE_INIT_VARIA |
IF ((Gi.lt.Nx).and.(Gj.lt.Ny)) THEN |
|
./pkg/streamice/streamice_init_varia.F |
255 |
STREAMICE_INIT_VARIA |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_varia.F |
257 |
STREAMICE_INIT_VARIA |
IF ((Gi.lt.Nx.OR.STREAMICE_EW_periodic).and. |
|
./pkg/streamice/streamice_init_varia.F |
39 |
STREAMICE_INIT_VARIA |
INTEGER i, j, k, bi, bj, Gi, Gj, r |