| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_exch2.F |
101 |
FLT_EXCH2 |
wSide=exch2_isWedge(nT).AND.facet_link(W2_WEST,myFace).EQ.0. |
|
./pkg/generic_advdiff/gad_advection.F |
232 |
GAD_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
227 |
GAD_SOM_ADVECT |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mnc/mnc_cw_model_attr.F |
115 |
MNC_CW_SET_GATTR |
& 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid) |
|
./pkg/mom_common/mom_calc_hfacz.F |
246 |
MOM_CALC_HFACZ |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_common/mom_calc_hfacz.F |
252 |
MOM_CALC_HFACZ |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
87 |
MOM_CALC_RELVORT3 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
93 |
MOM_CALC_RELVORT3 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
79 |
MOM_VI_U_CORIOLIS_C4 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
85 |
MOM_VI_U_CORIOLIS_C4 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
79 |
MOM_VI_V_CORIOLIS_C4 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
85 |
MOM_VI_V_CORIOLIS_C4 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
167 |
MON_VORT3 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/monitor/mon_vort3.F |
173 |
MON_VORT3 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/seaice/seaice_advection.F |
202 |
SEAICE_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/seaice/seaice_init_varia.F |
242 |
SEAICE_INIT_VARIA |
ELSEIF ( exch2_isWedge(myTile) .EQ. 1 ) THEN |
|
./pkg/shap_filt/shap_filt_computvort.F |
86 |
SHAP_FILT_COMPUTVORT |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_computvort.F |
92 |
SHAP_FILT_COMPUTVORT |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
100 |
SHAP_FILT_RELVORT3 |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
94 |
SHAP_FILT_RELVORT3 |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/thsice/thsice_advection.F |
185 |
THSICE_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
78 |
FILL_CS_CORNER_AG_RL |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
84 |
FILL_CS_CORNER_AG_RL |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
78 |
FILL_CS_CORNER_TR_RL |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
84 |
FILL_CS_CORNER_TR_RL |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
75 |
FILL_CS_CORNER_UV_RS |
southWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
81 |
FILL_CS_CORNER_UV_RS |
northWestCorner = exch2_isWedge(myTile).EQ.1 |
|
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
109 |
NO PROCEDURE |
& exch2_isWedge, exch2_isNedge, |
|
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
86 |
NO PROCEDURE |
INTEGER exch2_isWedge( W2_maxNbTiles ) |
|
./pkg/exch2/exch2_get_uv_bounds.F |
210 |
EXCH2_GET_UV_BOUNDS |
IF ( exch2_isWedge(tgTile).EQ.1 ) THEN |
|
./pkg/exch2/w2_eeboot.F |
60 |
W2_EEBOOT |
exch2_isWedge(I) = 0 |
|
./pkg/exch2/w2_print_e2setup.F |
116 |
W2_PRINT_E2SETUP |
IF ( ip(4).EQ.0 .AND. exch2_isWedge(is).EQ.1 |
|
./pkg/exch2/w2_print_e2setup.F |
210 |
W2_PRINT_E2SETUP |
& ' , E=', exch2_isEedge(is), ' , W=', exch2_isWedge(is) |
|
./pkg/exch2/w2_set_tile2tiles.F |
110 |
W2_SET_TILE2TILES |
IF ( .NOT.internConnect ) exch2_isWedge(is) = 1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
228 |
W2_SET_TILE2TILES |
& ' , E=', exch2_isEedge(is), ' , W=', exch2_isWedge(is) |