| File |
Line number |
Procedure |
Code |
|
./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 |
71 |
STREAMICE_ADV_FLUX_FL_X |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
72 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gj .ge. 1) .and. (Gj .le. Ny)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
113 |
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 |
166 |
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 |
47 |
STREAMICE_ADV_FLUX_FL_Y |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
73 |
STREAMICE_ADV_FLUX_FL_Y |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_adv_front.F |
118 |
STREAMICE_ADV_FRONT |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_adv_front.F |
119 |
STREAMICE_ADV_FRONT |
IF ((Gj .ge. 1) .and. (Gj .le. Ny)) THEN |
|
./pkg/streamice/streamice_adv_front.F |
42 |
STREAMICE_ADV_FRONT |
INTEGER Gi, Gj |
|
./pkg/streamice/streamice_advect_2dtracer.F |
124 |
STREAMICE_ADVECT_2DTRACER |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_2dtracer.F |
125 |
STREAMICE_ADVECT_2DTRACER |
IF (((Gj .ge. 1) .and. (Gj .le. Ny)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
178 |
STREAMICE_ADVECT_2DTRACER |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_2dtracer.F |
37 |
STREAMICE_ADVECT_2DTRACER |
INTEGER myThid, myIter, Gi, Gj |
|
./pkg/streamice/streamice_advect_thickness.F |
213 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_thickness.F |
214 |
STREAMICE_ADVECT_THICKNESS |
IF (((Gj .ge. 1) .and. (Gj .le. Ny)) |
|
./pkg/streamice/streamice_advect_thickness.F |
258 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_thickness.F |
259 |
STREAMICE_ADVECT_THICKNESS |
IF (((Gj .ge. 1) .and. (Gj .le. Ny)) |
|
./pkg/streamice/streamice_advect_thickness.F |
328 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./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 |
81 |
STREAMICE_CG_ACTION |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_driving_stress.F |
39 |
STREAMICE_DRIVING_STRESS |
& Gi, Gj |
|
./pkg/streamice/streamice_driving_stress.F |
74 |
STREAMICE_DRIVING_STRESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
205 |
STREAMICE_DRIVING_STRESS_PPM |
IF (Gj.eq.1.AND..NOT.STREAMICE_NS_periodic) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
233 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (Gj.eq.Ny.AND..NOT.STREAMICE_NS_periodic) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
39 |
STREAMICE_DRIVING_STRESS_PPM |
& Gi, Gj |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
74 |
STREAMICE_DRIVING_STRESS_PPM |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_init_fixed.F |
302 |
STREAMICE_INIT_FIXED |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_init_fixed.F |
35 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_fixed.F |
361 |
STREAMICE_INIT_FIXED |
IF (Gj.EQ.1 .AND. .NOT. STREAMICE_NS_periodic) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
387 |
STREAMICE_INIT_FIXED |
IF (Gj.EQ.Ny .AND. .NOT. STREAMICE_NS_periodic) THEN |
|
./pkg/streamice/streamice_init_varia.F |
204 |
STREAMICE_INIT_VARIA |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./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 |
259 |
STREAMICE_INIT_VARIA |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_init_varia.F |
261 |
STREAMICE_INIT_VARIA |
& (Gj.lt.Ny.OR.STREAMICE_NS_periodic)) THEN |
|
./pkg/streamice/streamice_init_varia.F |
39 |
STREAMICE_INIT_VARIA |
INTEGER i, j, k, bi, bj, Gi, Gj, r |