Symbol Description Uses
exch2_isWedge 1 if West is at domain edge, 0 if not. 34


File Line number Procedure Code
./pkg/generic_advdiff/gad_advection.F 231 GAD_ADVECTION 
       W_edge = exch2_isWedge(myTile).EQ.1
./pkg/generic_advdiff/gad_som_advect.F 226 GAD_SOM_ADVECT 
       W_edge = exch2_isWedge(myTile).EQ.1
./pkg/mnc/mnc_cw_model_attr.F 114 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 216 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 181 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 54 NO PROCEDURE 
       INTEGER exch2_isWedge(NTILES)
./pkg/exch2/W2_EXCH2_TOPOLOGY.h 73 NO PROCEDURE 
     &        exch2_isWedge, exch2_isNedge,
./pkg/exch2/w2_e2setup.F 101 W2_E2SETUP_2 
       exch2_isWedge(2)=1
./pkg/exch2/w2_e2setup.F 173 W2_E2SETUP_3 
       exch2_isWedge(3)=1
./pkg/exch2/w2_e2setup.F 245 W2_E2SETUP_4 
       exch2_isWedge(4)=1
./pkg/exch2/w2_e2setup.F 29 W2_E2SETUP_1 
       exch2_isWedge(1)=1
./pkg/exch2/w2_e2setup.F 317 W2_E2SETUP_5 
       exch2_isWedge(5)=1
./pkg/exch2/w2_e2setup.F 389 W2_E2SETUP_6 
       exch2_isWedge(6)=1