| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
108 |
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 |
162 |
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 |
46 |
STREAMICE_ADV_FLUX_FL_X |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
82 |
STREAMICE_ADV_FLUX_FL_X |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
47 |
STREAMICE_ADV_FLUX_FL_Y |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
78 |
STREAMICE_ADV_FLUX_FL_Y |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
79 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gi .ge. 1) .and. (Gi .le. Nx)).or. |
|
./pkg/streamice/streamice_adv_front.F |
121 |
STREAMICE_ADV_FRONT |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_front.F |
152 |
STREAMICE_ADV_FRONT |
IF ((Gi .ge. 1) .and. (Gi .le. Nx) .and. |
|
./pkg/streamice/streamice_adv_front.F |
42 |
STREAMICE_ADV_FRONT |
INTEGER Gi, Gj |
|
./pkg/streamice/streamice_advect_2dtracer.F |
123 |
STREAMICE_ADVECT_2DTRACER |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_2dtracer.F |
177 |
STREAMICE_ADVECT_2DTRACER |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_2dtracer.F |
37 |
STREAMICE_ADVECT_2DTRACER |
INTEGER myThid, myIter, Gi, Gj |
|
./pkg/streamice/streamice_advect_thickness.F |
212 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
257 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
327 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
35 |
STREAMICE_ADVECT_THICKNESS |
INTEGER i, j, bi, bj, Gi, Gj |
|
./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 |
39 |
STREAMICE_DRIVING_STRESS |
& Gi, Gj |
|
./pkg/streamice/streamice_driving_stress.F |
73 |
STREAMICE_DRIVING_STRESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./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 |
301 |
STREAMICE_INIT_FIXED |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_fixed.F |
309 |
STREAMICE_INIT_FIXED |
IF (Gi.EQ.1 .AND. .NOT. STREAMICE_EW_periodic) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
335 |
STREAMICE_INIT_FIXED |
IF (Gi.EQ.Nx .AND. .NOT. STREAMICE_EW_periodic) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
35 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_varia.F |
203 |
STREAMICE_INIT_VARIA |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_varia.F |
206 |
STREAMICE_INIT_VARIA |
IF ((Gi.lt.Nx).and.(Gj.lt.Ny)) THEN |
|
./pkg/streamice/streamice_init_varia.F |
258 |
STREAMICE_INIT_VARIA |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_varia.F |
260 |
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 |