| File |
Line number |
Procedure |
Code |
|
./model/src/ini_curvilinear_grid.F |
340 |
INI_CURVILINEAR_GRID |
myTile = W2_myTileList(bi) |
|
./model/src/ini_curvilinear_grid.F |
341 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,I4)') 'tile:',myTile |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
iG = exch2_myface(myTile) |
|
./model/src/ini_curvilinear_grid.F |
51 |
INI_CURVILINEAR_GRID |
INTEGER bi,bj, myTile, myiter |
|
./pkg/mom_common/mom_calc_relvort3.F |
100 |
MOM_CALC_RELVORT3 |
& exch2_isNedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_common/mom_calc_relvort3.F |
103 |
MOM_CALC_RELVORT3 |
IF ( exch2_isWedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_common/mom_calc_relvort3.F |
104 |
MOM_CALC_RELVORT3 |
& exch2_isNedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_common/mom_calc_relvort3.F |
41 |
MOM_CALC_RELVORT3 |
INTEGER myTile |
|
./pkg/mom_common/mom_calc_relvort3.F |
90 |
MOM_CALC_RELVORT3 |
myTile = W2_myTileList(bi) |
|
./pkg/mom_common/mom_calc_relvort3.F |
91 |
MOM_CALC_RELVORT3 |
IF ( exch2_isWedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_common/mom_calc_relvort3.F |
92 |
MOM_CALC_RELVORT3 |
& exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_common/mom_calc_relvort3.F |
95 |
MOM_CALC_RELVORT3 |
IF ( exch2_isEedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_common/mom_calc_relvort3.F |
96 |
MOM_CALC_RELVORT3 |
& exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_common/mom_calc_relvort3.F |
99 |
MOM_CALC_RELVORT3 |
IF ( exch2_isEedge(myTile) .EQ. 1 .AND. |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
58 |
FILL_CS_CORNER_UV_RS |
INTEGER myTile |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
72 |
FILL_CS_CORNER_UV_RS |
myTile = W2_myTileList(bi) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
73 |
FILL_CS_CORNER_UV_RS |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
74 |
FILL_CS_CORNER_UV_RS |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
75 |
FILL_CS_CORNER_UV_RS |
southEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
76 |
FILL_CS_CORNER_UV_RS |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
77 |
FILL_CS_CORNER_UV_RS |
northEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
78 |
FILL_CS_CORNER_UV_RS |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
79 |
FILL_CS_CORNER_UV_RS |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
80 |
FILL_CS_CORNER_UV_RS |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
57 |
FILL_CS_CORNER_TR_RL |
INTEGER myTile |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
67 |
FILL_CS_CORNER_TR_RL |
myTile = W2_myTileList(bi) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
68 |
FILL_CS_CORNER_TR_RL |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
69 |
FILL_CS_CORNER_TR_RL |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
70 |
FILL_CS_CORNER_TR_RL |
southEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
71 |
FILL_CS_CORNER_TR_RL |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
72 |
FILL_CS_CORNER_TR_RL |
northEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
73 |
FILL_CS_CORNER_TR_RL |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
74 |
FILL_CS_CORNER_TR_RL |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
75 |
FILL_CS_CORNER_TR_RL |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
153 |
SHAP_FILT_UV_S2 |
myTile = W2_myTileList(bi) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
154 |
SHAP_FILT_UV_S2 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
155 |
SHAP_FILT_UV_S2 |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
156 |
SHAP_FILT_UV_S2 |
southEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
157 |
SHAP_FILT_UV_S2 |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
158 |
SHAP_FILT_UV_S2 |
northEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
159 |
SHAP_FILT_UV_S2 |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
160 |
SHAP_FILT_UV_S2 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
161 |
SHAP_FILT_UV_S2 |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
76 |
SHAP_FILT_UV_S2 |
INTEGER myTile |
|
./pkg/shap_filt/shap_filt_relvort3.F |
100 |
SHAP_FILT_RELVORT3 |
IF ( exch2_isEedge(myTile) .EQ. 1 .AND. |
|
./pkg/shap_filt/shap_filt_relvort3.F |
101 |
SHAP_FILT_RELVORT3 |
& exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/shap_filt/shap_filt_relvort3.F |
104 |
SHAP_FILT_RELVORT3 |
IF ( exch2_isEedge(myTile) .EQ. 1 .AND. |
|
./pkg/shap_filt/shap_filt_relvort3.F |
105 |
SHAP_FILT_RELVORT3 |
& exch2_isNedge(myTile) .EQ. 1 ) THEN |
|
./pkg/shap_filt/shap_filt_relvort3.F |
108 |
SHAP_FILT_RELVORT3 |
IF ( exch2_isWedge(myTile) .EQ. 1 .AND. |
|
./pkg/shap_filt/shap_filt_relvort3.F |
109 |
SHAP_FILT_RELVORT3 |
& exch2_isNedge(myTile) .EQ. 1 ) THEN |
|
./pkg/shap_filt/shap_filt_relvort3.F |
44 |
SHAP_FILT_RELVORT3 |
INTEGER myTile |
|
./pkg/shap_filt/shap_filt_relvort3.F |
95 |
SHAP_FILT_RELVORT3 |
myTile = W2_myTileList(bi) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
96 |
SHAP_FILT_RELVORT3 |
IF ( exch2_isWedge(myTile) .EQ. 1 .AND. |
|
./pkg/shap_filt/shap_filt_relvort3.F |
97 |
SHAP_FILT_RELVORT3 |
& exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
141 |
GAD_ADVECTION |
INTEGER myTile, nCFace |
|
./pkg/generic_advdiff/gad_advection.F |
203 |
GAD_ADVECTION |
myTile = W2_myTileList(bi) |
|
./pkg/generic_advdiff/gad_advection.F |
204 |
GAD_ADVECTION |
nCFace = exch2_myFace(myTile) |
|
./pkg/generic_advdiff/gad_advection.F |
205 |
GAD_ADVECTION |
N_edge = exch2_isNedge(myTile).EQ.1 |
|
./pkg/generic_advdiff/gad_advection.F |
206 |
GAD_ADVECTION |
S_edge = exch2_isSedge(myTile).EQ.1 |
|
./pkg/generic_advdiff/gad_advection.F |
207 |
GAD_ADVECTION |
E_edge = exch2_isEedge(myTile).EQ.1 |
|
./pkg/generic_advdiff/gad_advection.F |
208 |
GAD_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
40 |
MOM_VI_DEL2UV |
INTEGER myTile |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
50 |
MOM_VI_DEL2UV |
myTile = W2_myTileList(bi) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
51 |
MOM_VI_DEL2UV |
IF ( exch2_isWedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
52 |
MOM_VI_DEL2UV |
& exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
55 |
MOM_VI_DEL2UV |
IF ( exch2_isEedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
56 |
MOM_VI_DEL2UV |
& exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
59 |
MOM_VI_DEL2UV |
IF ( exch2_isEedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
60 |
MOM_VI_DEL2UV |
& exch2_isNedge(myTile) .EQ. 1 ) THEN |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
63 |
MOM_VI_DEL2UV |
IF ( exch2_isWedge(myTile) .EQ. 1 .AND. |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
64 |
MOM_VI_DEL2UV |
& exch2_isNedge(myTile) .EQ. 1 ) THEN |
|
./pkg/seaice/seaice_init.F |
153 |
SEAICE_INIT |
myTile = W2_myTileList(bi) |
|
./pkg/seaice/seaice_init.F |
154 |
SEAICE_INIT |
IF ( exch2_myFace(myTile) .EQ. 1 .OR. |
|
./pkg/seaice/seaice_init.F |
155 |
SEAICE_INIT |
& exch2_myFace(myTile) .EQ. 2 .OR. |
|
./pkg/seaice/seaice_init.F |
156 |
SEAICE_INIT |
& exch2_myFace(myTile) .EQ. 4 .OR. |
|
./pkg/seaice/seaice_init.F |
157 |
SEAICE_INIT |
& exch2_myFace(myTile) .EQ. 5 ) THEN |
|
./pkg/seaice/seaice_init.F |
163 |
SEAICE_INIT |
ELSEIF ( exch2_isWedge(myTile) .EQ. 1 ) THEN |
|
./pkg/seaice/seaice_init.F |
168 |
SEAICE_INIT |
ELSEIF ( exch2_isSedge(myTile) .EQ. 1 ) THEN |
|
./pkg/seaice/seaice_init.F |
39 |
SEAICE_INIT |
INTEGER myIter, myTile |
|
./pkg/monitor/mon_vort3.F |
156 |
MON_VORT3 |
myTile = W2_myTileList(bi) |
|
./pkg/monitor/mon_vort3.F |
157 |
MON_VORT3 |
iG = exch2_myFace(myTile) |
|
./pkg/monitor/mon_vort3.F |
158 |
MON_VORT3 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
159 |
MON_VORT3 |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
160 |
MON_VORT3 |
southEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
161 |
MON_VORT3 |
& .AND. exch2_isSedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
162 |
MON_VORT3 |
northEastCorner = exch2_isEedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
163 |
MON_VORT3 |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
164 |
MON_VORT3 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
165 |
MON_VORT3 |
& .AND. exch2_isNedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
49 |
MON_VORT3 |
INTEGER myTile, iG |