Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 1200]         DRAG_KOCH_HILL
    Set   [drag_gs.f, 1212]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1215]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1218]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1230]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1233]            DRAG_KOCH_HILL

W    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [conv_rop.f, 65]          CONV_ROP0
    Declare   [conv_rop.f, 86]         CONV_ROP0
    Use   [conv_rop.f, 154]            CONV_ROP0
    Use   [conv_rop.f, 162]            CONV_ROP0

W    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [conv_rop.f, 188]         CONV_ROP1
    Declare   [conv_rop.f, 214]        CONV_ROP1
    Use   [conv_rop.f, 232]            CONV_ROP1

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 463]   Calc_mass_flux
    Declare   [check_mass_balance.f, 476]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 492]   Calc_mass_flux

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 513]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 532]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 596]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 597]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 599]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 604]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 605]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 607]   Calc_mass_flux_sp

W    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 518]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 625]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 627]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 629]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 635]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 639]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 647]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 653]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 656]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 661]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 676]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 679]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 698]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 700]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 703]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 705]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 715]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 716]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 742]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 743]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 792]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 793]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 796]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 798]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 801]       LAYOUT_DEM_MI_EW

W    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 124]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 232]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 234]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 236]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 242]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 246]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 254]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 260]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 263]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 268]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 283]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 286]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 305]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 307]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 310]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 312]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 322]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 323]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 349]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 350]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 399]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 400]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 403]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 405]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 408]       LAYOUT_DEM_MI_NS

W    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 912]    LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1015]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1017]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1019]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1023]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1027]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1035]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1038]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1052]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1055]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1074]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1076]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1079]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1081]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1091]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1092]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1118]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1119]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1168]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1169]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1172]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1174]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1177]      LAYOUT_DEM_MI_TB

W    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_mflux.f, 80]        CALC_MFLUX0
    Declare   [calc_mflux.f, 98]       CALC_MFLUX0
    Use   [calc_mflux.f, 141]          CALC_MFLUX0
    Use   [calc_mflux.f, 144]          CALC_MFLUX0

W    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_mflux.f, 163]       CALC_MFLUX_AM
    Declare   [calc_mflux.f, 185]      CALC_MFLUX_AM
    Use   [calc_mflux.f, 244]          CALC_MFLUX_AM
    Use   [calc_mflux.f, 249]          CALC_MFLUX_AM

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 100]    CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 152]   CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 153]       CG_SOURCE_W_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 500]       SOURCE_W_G_BC
    Set   [source_w_g.f, 833]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 845]   SOURCE_W_G_BC
    Use   [source_w_g.f, 847]          SOURCE_W_G_BC
    Set   [source_w_g.f, 852]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 864]   SOURCE_W_G_BC
    Use   [source_w_g.f, 866]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 870]   SOURCE_W_G_BC
    Use   [source_w_g.f, 871]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 875]   SOURCE_W_G_BC
    Use   [source_w_g.f, 876]          SOURCE_W_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 101]    CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 152]   CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 153]       CG_SOURCE_V_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 421]    CG_SOURCE_V_G_BC
    Use Argument   [CG_source_v_g.f, 475]   CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 476]       CG_SOURCE_V_G_BC
    Use Argument   [CG_source_v_g.f, 479]   CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 480]       CG_SOURCE_V_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 429]       SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 744]   SOURCE_V_G_BC
    Use   [source_v_g.f, 745]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 749]   SOURCE_V_G_BC
    Use   [source_v_g.f, 750]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 754]   SOURCE_V_G_BC
    Use   [source_v_g.f, 755]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 759]   SOURCE_V_G_BC
    Use   [source_v_g.f, 760]          SOURCE_V_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 100]    CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 152]   CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 153]       CG_SOURCE_U_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 422]    CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 474]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 475]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 478]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 479]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 482]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 483]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 486]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 487]       CG_SOURCE_U_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 440]       SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 757]   SOURCE_U_G_BC
    Use   [source_u_g.f, 758]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 762]   SOURCE_U_G_BC
    Use   [source_u_g.f, 763]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 767]   SOURCE_U_G_BC
    Use   [source_u_g.f, 768]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 772]   SOURCE_U_G_BC
    Use   [source_u_g.f, 773]          SOURCE_U_G_BC

W_F_Slip    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 959]       Wall_Function
    Declare   [source_u_g.f, 982]      Wall_Function
    Set   [source_u_g.f, 1000]         Wall_Function
    Set   [source_u_g.f, 1006]         Wall_Function

W_g    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [correct_0.f, 57]         CORRECT_0G
    Declare   [correct_0.f, 90]        CORRECT_0G
    Set   [correct_0.f, 115]           CORRECT_0G
    Use   [correct_0.f, 115]           CORRECT_0G
    Set   [correct_0.f, 124]           CORRECT_0G
    Use   [correct_0.f, 124]           CORRECT_0G

W_g_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 95]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 194]      K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 197]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 210]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 223]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 270]      K_Epsilon_PROP

W_g_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_g.f, 117]        CALC_MU_G
    Set   [calc_mu_g.f, 271]           CALC_MU_G
    Set   [calc_mu_g.f, 274]           CALC_MU_G
    Use   [calc_mu_g.f, 283]           CALC_MU_G

W_g_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 85]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 187]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 214]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 222]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 274]      K_Epsilon_PROP

W_g_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_g.f, 108]        CALC_MU_G
    Set   [calc_mu_g.f, 264]           CALC_MU_G
    Use   [calc_mu_g.f, 282]           CALC_MU_G

W_g_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 89]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 183]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 215]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 226]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 275]      K_Epsilon_PROP

W_g_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_g.f, 112]        CALC_MU_G
    Set   [calc_mu_g.f, 260]           CALC_MU_G
    Use   [calc_mu_g.f, 287]           CALC_MU_G

W_g_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 91]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 185]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 215]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 226]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 275]      K_Epsilon_PROP

W_g_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_g.f, 114]        CALC_MU_G
    Set   [calc_mu_g.f, 262]           CALC_MU_G
    Use   [calc_mu_g.f, 287]           CALC_MU_G

W_g_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 87]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 189]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 214]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 222]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 274]      K_Epsilon_PROP

W_g_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_g.f, 110]        CALC_MU_G
    Set   [calc_mu_g.f, 266]           CALC_MU_G
    Use   [calc_mu_g.f, 282]           CALC_MU_G

W_gtmp    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [solve_vel_star.f, 77]    SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 99]       SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 113]      SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 487]   SOLVE_VEL_STAR
    Use   [solve_vel_star.f, 517]      SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 543]      SOLVE_VEL_STAR

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_resid.f, 726]       CALC_RESID_U
    Declare   [calc_resid.f, 755]      CALC_RESID_U
    Use   [calc_resid.f, 836]          CALC_RESID_U

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_resid.f, 930]       CALC_RESID_V
    Declare   [calc_resid.f, 959]      CALC_RESID_V
    Use   [calc_resid.f, 1040]         CALC_RESID_V

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_resid.f, 1137]      CALC_RESID_W
    Declare   [calc_resid.f, 1166]     CALC_RESID_W
    Use   [calc_resid.f, 1235]         CALC_RESID_W
    Use   [calc_resid.f, 1236]         CALC_RESID_W
    Use   [calc_resid.f, 1236]         CALC_RESID_W
    Use   [calc_resid.f, 1237]         CALC_RESID_W
    Use   [calc_resid.f, 1237]         CALC_RESID_W
    Use   [calc_resid.f, 1241]         CALC_RESID_W
    Use   [calc_resid.f, 1241]         CALC_RESID_W
    Use   [calc_resid.f, 1246]         CALC_RESID_W

W_NODE    (Local Variable)  Declared as: LOGICAL
    Define   [get_master.f, 33]        GET_U_MASTER_CELLS
    Set   [get_master.f, 116]          GET_U_MASTER_CELLS
    Use   [get_master.f, 117]          GET_U_MASTER_CELLS

W_NODE    (Local Variable)  Declared as: LOGICAL
    Define   [get_master.f, 188]       GET_V_MASTER_CELLS
    Set   [get_master.f, 261]          GET_V_MASTER_CELLS
    Use   [get_master.f, 262]          GET_V_MASTER_CELLS

W_NODE    (Local Variable)  Declared as: LOGICAL
    Define   [get_master.f, 331]       GET_W_MASTER_CELLS
    Set   [get_master.f, 404]          GET_W_MASTER_CELLS
    Use   [get_master.f, 405]          GET_W_MASTER_CELLS
    Use   [get_master.f, 408]          GET_W_MASTER_CELLS

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 72]        CALC_TRD_G
    Set   [calc_trd_g.f, 226]          CALC_TRD_G
    Use   [calc_trd_g.f, 228]          CALC_TRD_G
    Use   [calc_trd_g.f, 247]          CALC_TRD_G
    Use   [calc_trd_g.f, 251]          CALC_TRD_G

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 349]       CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 548]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 550]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 577]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 583]          CG_CALC_VEL_G_GRAD

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 73]        CALC_TRD_S
    Set   [calc_trd_s.f, 222]          CALC_TRD_S
    Use   [calc_trd_s.f, 224]          CALC_TRD_S

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 340]       CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 543]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 545]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 572]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 578]          CG_CALC_VEL_S_GRAD

W_NODE_AT_BE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 291]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 515]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 538]             CALC_CG_TAU_U_G

W_NODE_AT_BE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 331]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 533]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 556]             CALC_CG_TAU_U_S

W_NODE_AT_BN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 488]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 510]             CALC_CG_TAU_V_S

W_NODE_AT_BN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 467]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 491]             CALC_CG_TAU_V_G

W_NODE_AT_BS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 490]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 510]             CALC_CG_TAU_V_S

W_NODE_AT_BS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 469]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 491]             CALC_CG_TAU_V_G

W_NODE_AT_BW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 291]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 517]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 538]             CALC_CG_TAU_U_G

W_NODE_AT_BW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 331]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 535]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 556]             CALC_CG_TAU_U_S

W_NODE_AT_NT    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 438]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 547]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 550]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 553]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 557]           GET_3D_ALPHA_V_CUT_CELL

W_NODE_AT_ST    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 438]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 548]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 550]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 553]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 557]           GET_3D_ALPHA_V_CUT_CELL

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 72]        CALC_TRD_G
    Set   [calc_trd_g.f, 225]          CALC_TRD_G
    Use   [calc_trd_g.f, 228]          CALC_TRD_G
    Use   [calc_trd_g.f, 247]          CALC_TRD_G
    Use   [calc_trd_g.f, 251]          CALC_TRD_G

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 349]       CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 547]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 550]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 577]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 583]          CG_CALC_VEL_G_GRAD

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 73]        CALC_TRD_S
    Set   [calc_trd_s.f, 221]          CALC_TRD_S
    Use   [calc_trd_s.f, 224]          CALC_TRD_S

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 340]       CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 542]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 545]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 572]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 578]          CG_CALC_VEL_S_GRAD

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 291]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 511]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 520]             CALC_CG_TAU_U_G

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 331]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 529]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 538]             CALC_CG_TAU_U_S

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 34]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 141]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 143]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 147]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 151]           GET_3D_ALPHA_U_CUT_CELL

W_NODE_AT_TN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 484]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 493]             CALC_CG_TAU_V_S

W_NODE_AT_TN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 463]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 472]             CALC_CG_TAU_V_G

W_NODE_AT_TS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 486]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 493]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 527]             CALC_CG_TAU_V_S

W_NODE_AT_TS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 465]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 472]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 510]             CALC_CG_TAU_V_G

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 291]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 513]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 520]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 557]             CALC_CG_TAU_U_G

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 331]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 531]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 538]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 574]             CALC_CG_TAU_U_S

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 34]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 140]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 143]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 147]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 151]           GET_3D_ALPHA_U_CUT_CELL

W_s    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [correct_0.f, 154]        CORRECT_0S
    Declare   [correct_0.f, 183]       CORRECT_0S
    Set   [correct_0.f, 209]           CORRECT_0S
    Use   [correct_0.f, 209]           CORRECT_0S
    Set   [correct_0.f, 219]           CORRECT_0S
    Use   [correct_0.f, 219]           CORRECT_0S

W_s_B    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 134]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 194]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 264]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 334]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 402]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 476]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 547]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 615]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 684]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 759]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 830]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 899]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 968]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_B    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1109]   SDDOTS
    Use   [calc_s_ddot_s.f, 1169]      SDDOTS

W_s_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2658]       init1_mu_s
    Set   [calc_mu_s.f, 2774]          init1_mu_s
    Set   [calc_mu_s.f, 2777]          init1_mu_s
    Use   [calc_mu_s.f, 2814]          init1_mu_s

W_s_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 138]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 200]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 203]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 270]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 273]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 339]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 342]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 407]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 410]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 481]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 484]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 552]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 555]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 621]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 624]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 690]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 693]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 764]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 767]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 835]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 838]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 904]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 907]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 973]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 976]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_C    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1113]   SDDOTS
    Use   [calc_s_ddot_s.f, 1163]      SDDOTS

W_s_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2649]       init1_mu_s
    Set   [calc_mu_s.f, 2765]          init1_mu_s
    Set   [calc_mu_s.f, 2803]          init1_mu_s
    Use   [calc_mu_s.f, 2813]          init1_mu_s

W_s_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 125]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 185]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 200]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 255]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 270]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 327]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 395]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 469]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 540]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 606]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 621]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 675]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 690]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 749]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 820]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 892]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 961]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_E    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1100]   SDDOTS
    Use   [calc_s_ddot_s.f, 1162]      SDDOTS

W_s_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2653]       init1_mu_s
    Set   [calc_mu_s.f, 2759]          init1_mu_s
    Set   [calc_mu_s.f, 2799]          init1_mu_s
    Use   [calc_mu_s.f, 2818]          init1_mu_s

W_s_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 119]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 179]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 207]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 249]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 277]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 323]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 346]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 391]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 414]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 465]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 488]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 536]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 559]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 600]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 628]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 669]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 697]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 745]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 771]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 816]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 842]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 885]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 911]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 954]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 980]   CALC_S_DDOT_S

W_s_N    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1016]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1094]   SDDOTS
    Use   [calc_s_ddot_s.f, 1166]      SDDOTS

W_s_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2655]       init1_mu_s
    Set   [calc_mu_s.f, 2762]          init1_mu_s
    Set   [calc_mu_s.f, 2801]          init1_mu_s
    Use   [calc_mu_s.f, 2818]          init1_mu_s

W_s_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 122]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 182]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 252]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 325]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 393]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 467]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 538]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 603]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 672]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 747]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 818]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 888]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 957]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_S    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1016]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1097]   SDDOTS
    Use   [calc_s_ddot_s.f, 1166]      SDDOTS

W_s_T    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 131]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 191]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 261]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 331]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 399]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 473]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 544]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 612]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 681]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 756]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 827]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 896]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 965]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_T    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1106]   SDDOTS
    Use   [calc_s_ddot_s.f, 1169]      SDDOTS

W_s_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2651]       init1_mu_s
    Set   [calc_mu_s.f, 2768]          init1_mu_s
    Set   [calc_mu_s.f, 2805]          init1_mu_s
    Use   [calc_mu_s.f, 2813]          init1_mu_s

W_s_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 128]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 188]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 200]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 258]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 270]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 329]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 397]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 471]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 542]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 609]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 621]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 678]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 690]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 752]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 823]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 894]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 963]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1103]   SDDOTS
    Use   [calc_s_ddot_s.f, 1162]      SDDOTS

W_stmp    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [solve_vel_star.f, 78]    SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 102]      SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 121]      SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 501]   SOLVE_VEL_STAR
    Use   [solve_vel_star.f, 525]      SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 546]      SOLVE_VEL_STAR

W_VEL    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_u_friction.f, 31]   CALC_Gw_Hw_Cw
    Declare   [calc_u_friction.f, 76]   CALC_Gw_Hw_Cw
    Use   [calc_u_friction.f, 304]     CALC_Gw_Hw_Cw

WALL    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [write_out3.f, 9]         WRITE_OUT3
    Declare   [write_out3.f, 16]       WRITE_OUT3
    Use Argument   [write_out3.f, 40]   WRITE_OUT3
    Use Argument   [write_out3.f, 41]   WRITE_OUT3

WALL    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [cfwallcontact.f, 9]      CFWALLCONTACT
    Declare   [cfwallcontact.f, 27]    CFWALLCONTACT
    Use   [cfwallcontact.f, 67]        CFWALLCONTACT
    Use   [cfwallcontact.f, 67]        CFWALLCONTACT
    Use   [cfwallcontact.f, 68]        CFWALLCONTACT
    Use   [cfwallcontact.f, 68]        CFWALLCONTACT
    Use   [cfwallcontact.f, 70]        CFWALLCONTACT
    Use   [cfwallcontact.f, 70]        CFWALLCONTACT
    Use   [cfwallcontact.f, 77]        CFWALLCONTACT
    Use   [cfwallcontact.f, 84]        CFWALLCONTACT
    Use   [cfwallcontact.f, 89]        CFWALLCONTACT
    Use   [cfwallcontact.f, 94]        CFWALLCONTACT
    Use   [cfwallcontact.f, 99]        CFWALLCONTACT
    Use   [cfwallcontact.f, 104]       CFWALLCONTACT

WALL_ELAP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 290]   FLUSH_NOTIFY_USER
    Set   [output_manager.f, 318]      FLUSH_NOTIFY_USER
    Use Argument   [output_manager.f, 319]   FLUSH_NOTIFY_USER
    Use   [output_manager.f, 320]      FLUSH_NOTIFY_USER

WALL_HAULT    (Local Variable)  Declared as: LOGICAL
    Define   [check_bqend.f, 28]       CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 39]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 43]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 72]          CHECK_BATCH_QUEUE_END

WALL_LEFT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 290]   FLUSH_NOTIFY_USER
    Set   [output_manager.f, 323]      FLUSH_NOTIFY_USER
    Use Argument   [output_manager.f, 325]   FLUSH_NOTIFY_USER
    Use   [output_manager.f, 328]      FLUSH_NOTIFY_USER

WALL_NORM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [pic_bc_routines.f, 332]   PIC_MI_BC
    Set   [pic_bc_routines.f, 375]     PIC_MI_BC
    Use Argument   [pic_bc_routines.f, 380]   PIC_MI_BC
    Use Argument   [pic_bc_routines.f, 419]   PIC_MI_BC

WALL_NORM    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [pic_bc_routines.f, 631]   PIC_REFLECT_PART
    Declare   [pic_bc_routines.f, 641]   PIC_REFLECT_PART
    Use Argument   [pic_bc_routines.f, 661]   PIC_REFLECT_PART
    Use   [pic_bc_routines.f, 666]     PIC_REFLECT_PART

WALL_NOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 290]   FLUSH_NOTIFY_USER
    Set   [output_manager.f, 316]      FLUSH_NOTIFY_USER
    Use   [output_manager.f, 318]      FLUSH_NOTIFY_USER
    Use   [output_manager.f, 323]      FLUSH_NOTIFY_USER

WALL_POS    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [cfwallposvel.f, 11]      CFWALLPOSVEL
    Declare   [cfwallposvel.f, 39]     CFWALLPOSVEL
    Set   [cfwallposvel.f, 53]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 63]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 64]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 65]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 77]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 78]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 79]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 91]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 92]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 93]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 105]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 106]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 107]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 119]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 120]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 121]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 133]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 134]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 135]        CFWALLPOSVEL

WALL_RADIUS_RATIO    (Variable)  Declared as: DOUBLE PRECISION
    Define   [deprecated.f, 68]        DEPRECATED_OR_UNKNOWN
    Contain   [deprecated.f, 96]       DEP_2014_1

WALL_START    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 66]    OUTPUT_MANAGER
    Set   [output_manager.f, 77]       OUTPUT_MANAGER
    Use   [output_manager.f, 161]      OUTPUT_MANAGER

WALL_START    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [diffuse_mean_fields.f, 55]   DIFFUSE_MEAN_FIELD
    Set   [diffuse_mean_fields.f, 63]   DIFFUSE_MEAN_FIELD
    Use   [diffuse_mean_fields.f, 98]   DIFFUSE_MEAN_FIELD

WALL_STOP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_bqend.f, 30]       CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 35]          CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 36]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 36]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 39]          CHECK_BATCH_QUEUE_END
    Use Argument   [check_bqend.f, 44]   CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 49]          CHECK_BATCH_QUEUE_END

WALL_VEL    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [cfwallposvel.f, 11]      CFWALLPOSVEL
    Declare   [cfwallposvel.f, 41]     CFWALLPOSVEL
    Set   [cfwallposvel.f, 52]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 67]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 68]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 69]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 81]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 82]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 83]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 95]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 96]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 97]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 109]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 110]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 111]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 123]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 124]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 125]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 137]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 138]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 139]        CFWALLPOSVEL

WALLCONTACT    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [cfwallcontact.f, 9]      CFWALLCONTACT
    Declare   [cfwallcontact.f, 32]    CFWALLCONTACT
    Set   [cfwallcontact.f, 59]        CFWALLCONTACT
    Set   [cfwallcontact.f, 81]        CFWALLCONTACT
    Set   [cfwallcontact.f, 86]        CFWALLCONTACT
    Set   [cfwallcontact.f, 91]        CFWALLCONTACT
    Set   [cfwallcontact.f, 96]        CFWALLCONTACT
    Set   [cfwallcontact.f, 101]       CFWALLCONTACT
    Set   [cfwallcontact.f, 106]       CFWALLCONTACT

WALLDTSPLIT    (Variable)  Declared as: LOGICAL
    Define   [deprecated.f, 66]        DEPRECATED_OR_UNKNOWN
    Contain   [deprecated.f, 96]       DEP_2014_1

WALLREFLECT    (Variable)  Declared as: LOGICAL
    Define   [deprecated.f, 66]        DEPRECATED_OR_UNKNOWN
    Contain   [deprecated.f, 90]       DEP_2014_1

WALLTIME_USED    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [mfix.f, 99]              MFIX
    Set   [mfix.f, 453]                MFIX
    Use Argument   [mfix.f, 454]       MFIX

Wb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 91]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 197]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 250]       CG_SOURCE_W_G

Wb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 73]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 186]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 231]       CG_SOURCE_W_S

wDIMN    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 260]   WRITE_DES_TECPLOT
    Set   [write_des_data.f, 263]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 312]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 312]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 316]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 316]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 339]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 343]      WRITE_DES_TECPLOT

WDIR    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 329]   PIC_MI_BC
    Set   [pic_bc_routines.f, 378]     PIC_MI_BC
    Set   [pic_bc_routines.f, 380]     PIC_MI_BC
    Use   [pic_bc_routines.f, 380]     PIC_MI_BC
    Use   [pic_bc_routines.f, 403]     PIC_MI_BC
    Use   [pic_bc_routines.f, 407]     PIC_MI_BC

We    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 91]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 190]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 245]       CG_SOURCE_W_G

We    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 73]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 181]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 226]       CG_SOURCE_W_S

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 78]      DRAG_GS_DES1
    Set   [drag_gs_des1.f, 120]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 122]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 124]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 125]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 126]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 128]        DRAG_GS_DES1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 248]     DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 296]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 298]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 300]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 301]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 302]        DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 326]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 329]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 331]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 333]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 335]        DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 339]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 342]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 344]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 346]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 349]        DRAG_GS_GAS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 50]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 104]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 107]   CALC_INTERP_WEIGHTS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_pg_grad.f, 58]      CALC_PG_GRAD
    Set   [calc_pg_grad.f, 104]        CALC_PG_GRAD
    Use   [calc_pg_grad.f, 105]        CALC_PG_GRAD

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 64]      DRAG_GS_DES0
    Use Argument   [drag_gs_des0.f, 154]   DRAG_GS_DES0

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 267]     DRAG_GS_GAS0
    Use Argument   [drag_gs_des0.f, 364]   DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 402]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 407]        DRAG_GS_GAS0

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [comp_mean_fields0.f, 83]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 165]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 185]   COMP_MEAN_FIELDS0

WEIGHT_I    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 51]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 69]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 70]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 71]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 71]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 71]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1

WEIGHT_J    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 52]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 74]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 75]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 76]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 76]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 76]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1

WEIGHT_K    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 53]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 81]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 82]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 83]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 83]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 83]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 86]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1

WEIGHTFACTOR    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [drag_gs_des0.f, 480]     DRAG_INTERPOLATION
    Declare   [drag_gs_des0.f, 493]    DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 518]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 519]        DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 531]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 532]        DRAG_INTERPOLATION

WEIGHTFACTOR    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [comp_mean_fields0.f, 454]   DRAG_WEIGHTFACTOR
    Declare   [comp_mean_fields0.f, 465]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 488]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 500]   DRAG_WEIGHTFACTOR

WenYu    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 598]          DRAG_GIDASPOW_BLEND
    Set   [drag_gs.f, 619]             DRAG_GIDASPOW_BLEND
    Use   [drag_gs.f, 625]             DRAG_GIDASPOW_BLEND

WEST_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 450]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 922]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 938]      RE_INDEX_ARRAYS

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_v_s.f, 621]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 720]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 788]        STORE_A_V_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_u_g.f, 617]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 717]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 784]        STORE_A_U_GDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 424]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 544]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 584]        CONV_DIF_PHI_DC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_u_s.f, 617]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 716]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 783]        STORE_A_U_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_w_g.f, 592]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 724]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 758]        STORE_A_W_GDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_w_s.f, 601]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 701]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 763]        STORE_A_W_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_v_g.f, 617]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 752]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 790]        STORE_A_V_GDC

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [conv_dif_phi.f, 21]      CONV_DIF_PHI
    Declare   [conv_dif_phi.f, 42]     CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 57]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 59]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 65]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 68]   CONV_DIF_PHI

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [conv_dif_phi.f, 214]     CONV_DIF_PHI0
    Declare   [conv_dif_phi.f, 241]    CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 319]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 330]        CONV_DIF_PHI0

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [conv_dif_phi.f, 611]     CONV_DIF_PHI1
    Declare   [conv_dif_phi.f, 645]    CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 671]        CONV_DIF_PHI1

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [conv_dif_phi.f, 358]     CONV_DIF_PHI_DC
    Declare   [conv_dif_phi.f, 399]    CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 448]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 514]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 566]        CONV_DIF_PHI_DC

wfactor_mus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2094]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2108]          subgrid_stress_igci
    Use Argument   [calc_mu_s.f, 2182]   subgrid_stress_igci
    Use   [calc_mu_s.f, 2190]          subgrid_stress_igci

wfactor_mus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2270]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2284]          subgrid_stress_MILIOLI
    Use Argument   [calc_mu_s.f, 2345]   subgrid_stress_MILIOLI
    Use   [calc_mu_s.f, 2355]          subgrid_stress_MILIOLI

wfactor_Ps    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2094]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2107]          subgrid_stress_igci
    Use Argument   [calc_mu_s.f, 2182]   subgrid_stress_igci
    Use   [calc_mu_s.f, 2186]          subgrid_stress_igci

wfactor_Ps    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2270]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2283]          subgrid_stress_MILIOLI
    Use Argument   [calc_mu_s.f, 2345]   subgrid_stress_MILIOLI
    Use   [calc_mu_s.f, 2351]          subgrid_stress_MILIOLI

Wg_Temp    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [radial_vel_correction.f, 27]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 52]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 59]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 64]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 100]   RADIAL_VEL_CORRECTION

Wg_Temp_GL    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [radial_vel_correction.f, 27]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 63]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 64]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 65]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 83]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 83]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 101]   RADIAL_VEL_CORRECTION

WgAvg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [radial_vel_correction.f, 36]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 83]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 84]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 85]   RADIAL_VEL_CORRECTION

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 67]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 274]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 279]       CG_SOURCE_W_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 106]       SOURCE_W_S
    Set   [source_w_s.f, 332]          SOURCE_W_S
    Use   [source_w_s.f, 350]          SOURCE_W_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_s.f, 65]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 267]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 268]       CG_SOURCE_V_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_s.f, 106]       SOURCE_V_S
    Set   [source_v_s.f, 348]          SOURCE_V_S
    Use Argument   [source_v_s.f, 351]   SOURCE_V_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_s.f, 68]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 279]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 280]       CG_SOURCE_U_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 104]       SOURCE_U_S
    Set   [source_u_s.f, 344]          SOURCE_U_S
    Use Argument   [source_u_s.f, 346]   SOURCE_U_S

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 67]           DRAG_GS
    Set   [drag_gs.f, 145]             DRAG_GS
    Use   [drag_gs.f, 152]             DRAG_GS
    Use Argument   [drag_gs.f, 253]    DRAG_GS
    Use   [drag_gs.f, 266]             DRAG_GS

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_time_march.f, 53]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 341]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 344]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 362]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 684]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 687]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 705]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 804]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 807]    QMOMK_TIME_MARCH

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 91]       CALC_GRBDRY
    Set   [calc_grbdry.f, 188]         CALC_GRBDRY
    Set   [calc_grbdry.f, 226]         CALC_GRBDRY
    Set   [calc_grbdry.f, 263]         CALC_GRBDRY
    Set   [calc_grbdry.f, 300]         CALC_GRBDRY
    Set   [calc_grbdry.f, 384]         CALC_GRBDRY
    Set   [calc_grbdry.f, 428]         CALC_GRBDRY
    Set   [calc_grbdry.f, 468]         CALC_GRBDRY
    Set   [calc_grbdry.f, 504]         CALC_GRBDRY
    Set   [calc_grbdry.f, 587]         CALC_GRBDRY
    Set   [calc_grbdry.f, 631]         CALC_GRBDRY
    Set   [calc_grbdry.f, 671]         CALC_GRBDRY
    Set   [calc_grbdry.f, 707]         CALC_GRBDRY
    Use   [calc_grbdry.f, 734]         CALC_GRBDRY

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1289]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1351]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1364]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1417]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1431]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1486]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1499]        CG_CALC_GRBDRY

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_gama.f, 49]         CALC_GAMA
    Set   [calc_gama.f, 95]            CALC_GAMA
    Use   [calc_gama.f, 103]           CALC_GAMA

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 101]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 203]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 343]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 379]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 395]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 414]      K_Epsilon_PROP

Wgc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_s.f, 65]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 268]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 269]       CG_SOURCE_V_S

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_ghd_granular_energy.f, 92]   SOURCE_GHD_GRANULAR_ENERGY
    Set   [source_ghd_granular_energy.f, 342]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 347]   SOURCE_GHD_GRANULAR_ENERGY

Wgc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_s.f, 68]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 280]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 281]       CG_SOURCE_U_S

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 350]         CALC_THETA_BC
    Set   [bc_theta.f, 436]            CALC_THETA_BC
    Set   [bc_theta.f, 481]            CALC_THETA_BC
    Set   [bc_theta.f, 526]            CALC_THETA_BC
    Set   [bc_theta.f, 571]            CALC_THETA_BC
    Set   [bc_theta.f, 618]            CALC_THETA_BC
    Set   [bc_theta.f, 663]            CALC_THETA_BC
    Use   [bc_theta.f, 682]            CALC_THETA_BC

WGC1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 92]       CALC_GRBDRY
    Set   [calc_grbdry.f, 182]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 188]   CALC_GRBDRY
    Set   [calc_grbdry.f, 220]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 226]   CALC_GRBDRY
    Set   [calc_grbdry.f, 462]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 468]   CALC_GRBDRY
    Set   [calc_grbdry.f, 498]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 504]   CALC_GRBDRY

WGC1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1282]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1345]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1351]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1411]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1417]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1480]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1486]   CG_CALC_GRBDRY

WGC2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 92]       CALC_GRBDRY
    Set   [calc_grbdry.f, 185]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 188]   CALC_GRBDRY
    Set   [calc_grbdry.f, 223]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 226]   CALC_GRBDRY
    Set   [calc_grbdry.f, 465]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 468]   CALC_GRBDRY
    Set   [calc_grbdry.f, 501]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 504]   CALC_GRBDRY

WGC2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1282]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1348]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1351]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1414]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1417]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1483]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1486]   CG_CALC_GRBDRY

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 66]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 263]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 277]       CG_SOURCE_W_S

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 105]       SOURCE_W_S
    Set   [source_w_s.f, 337]          SOURCE_W_S
    Use   [source_w_s.f, 350]          SOURCE_W_S

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 99]        SOURCE_U_G
    Set   [source_u_g.f, 331]          SOURCE_U_G
    Use   [source_u_g.f, 333]          SOURCE_U_G
    Use   [source_u_g.f, 335]          SOURCE_U_G

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 104]       SOURCE_U_S
    Set   [source_u_s.f, 346]          SOURCE_U_S
    Use   [source_u_s.f, 349]          SOURCE_U_S
    Use   [source_u_s.f, 353]          SOURCE_U_S

Wgn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 66]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 268]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 278]       CG_SOURCE_W_S

Wgn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 106]       SOURCE_W_S
    Set   [source_w_s.f, 342]          SOURCE_W_S
    Use   [source_w_s.f, 351]          SOURCE_W_S

Wgs    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 67]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 269]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 278]       CG_SOURCE_W_S

Wgs    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 106]       SOURCE_W_S
    Set   [source_w_s.f, 341]          SOURCE_W_S
    Use   [source_w_s.f, 351]          SOURCE_W_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 67]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 273]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 279]       CG_SOURCE_W_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 106]       SOURCE_W_S
    Set   [source_w_s.f, 333]          SOURCE_W_S
    Use   [source_w_s.f, 350]          SOURCE_W_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_s.f, 65]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 266]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 268]       CG_SOURCE_V_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_s.f, 106]       SOURCE_V_S
    Set   [source_v_s.f, 347]          SOURCE_V_S
    Use Argument   [source_v_s.f, 351]   SOURCE_V_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_s.f, 68]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 278]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 280]       CG_SOURCE_U_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 104]       SOURCE_U_S
    Set   [source_u_s.f, 345]          SOURCE_U_S
    Use Argument   [source_u_s.f, 346]   SOURCE_U_S

Wgw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 66]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 264]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 277]       CG_SOURCE_W_S

Wgw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 106]       SOURCE_W_S
    Set   [source_w_s.f, 338]          SOURCE_W_S
    Use   [source_w_s.f, 350]          SOURCE_W_S

WGX    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [set_ic.f, 53]            SET_IC
    Set   [set_ic.f, 79]               SET_IC
    Use   [set_ic.f, 134]              SET_IC
    Use   [set_ic.f, 134]              SET_IC

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [physical_prop.f, 165]    PHYSICAL_PROP_ROg
    Set   [physical_prop.f, 175]       PHYSICAL_PROP_ROg
    Use Argument   [physical_prop.f, 197]   PHYSICAL_PROP_ROg

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [physical_prop.f, 255]    PHYSICAL_PROP_ROs
    Set   [physical_prop.f, 269]       PHYSICAL_PROP_ROs
    Use Argument   [physical_prop.f, 290]   PHYSICAL_PROP_ROs

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [calc_vol_fr.f, 94]       CALC_VOL_FR
    Set   [calc_vol_fr.f, 99]          CALC_VOL_FR
    Use Argument   [calc_vol_fr.f, 208]   CALC_VOL_FR

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 67]        CALC_TRD_G
    Set   [calc_trd_g.f, 230]          CALC_TRD_G
    Use   [calc_trd_g.f, 242]          CALC_TRD_G

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 339]       CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 552]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 567]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 568]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 569]          CG_CALC_VEL_G_GRAD

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_s.f, 296]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 494]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 504]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 511]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 521]             CALC_CG_TAU_V_S

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 294]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 521]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 532]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 539]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 551]             CALC_CG_TAU_U_G

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 68]        CALC_TRD_S
    Set   [calc_trd_s.f, 226]          CALC_TRD_S
    Use   [calc_trd_s.f, 238]          CALC_TRD_S

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 327]       CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 547]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 562]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 563]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 564]          CG_CALC_VEL_S_GRAD

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 334]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 539]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 550]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 557]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 568]             CALC_CG_TAU_U_S

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_g.f, 247]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 473]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 485]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 492]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 504]             CALC_CG_TAU_V_G

WIDTH    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_geometry.f, 131]   CHECK_GEOMETRY_DES
    Set   [check_geometry.f, 139]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 143]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 152]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 163]      CHECK_GEOMETRY_DES

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [mass_inflow_dem.f, 170]   SEED_NEW_PARTICLE
    Set   [mass_inflow_dem.f, 191]     SEED_NEW_PARTICLE
    Use   [mass_inflow_dem.f, 192]     SEED_NEW_PARTICLE
    Use   [mass_inflow_dem.f, 193]     SEED_NEW_PARTICLE

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [layout_mi_dem.f, 540]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 588]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 589]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 592]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 596]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 597]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 604]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 608]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 609]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 639]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 643]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 656]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 672]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 673]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 679]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 680]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 820]       LAYOUT_DEM_MI_EW

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [layout_mi_dem.f, 146]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 195]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 196]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 199]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 203]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 204]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 211]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 215]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 216]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 246]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 250]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 263]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 279]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 280]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 286]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 287]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 427]       LAYOUT_DEM_MI_NS

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [layout_mi_dem.f, 934]    LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 984]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 985]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 988]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 992]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 993]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 999]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1003]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1004]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1027]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1031]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1048]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1049]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1055]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1056]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1196]      LAYOUT_DEM_MI_TB

Wlminus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_time_march.f, 61]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 176]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 193]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 202]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 219]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 233]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 250]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 259]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 276]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 285]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 302]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 473]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 490]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 499]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 516]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 530]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 547]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 556]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 573]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 582]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 599]    QMOMK_TIME_MARCH

Wlplus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_time_march.f, 61]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 181]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 194]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 207]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 220]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 238]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 251]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 264]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 277]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 290]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 303]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 478]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 491]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 504]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 517]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 535]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 548]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 561]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 574]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 587]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 600]    QMOMK_TIME_MARCH

WMAX    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 534]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 562]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 563]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 564]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 573]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 587]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 592]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 595]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 625]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 676]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 700]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 715]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 742]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 792]       LAYOUT_DEM_MI_EW

WMAX    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 140]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 169]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 170]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 171]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 180]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 194]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 199]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 202]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 232]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 283]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 307]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 322]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 349]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 399]       LAYOUT_DEM_MI_NS

WMAX    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 928]    LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 958]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 959]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 960]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 969]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 983]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 988]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 991]       LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1015]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1052]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1076]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1091]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1118]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1168]      LAYOUT_DEM_MI_TB

Wn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 91]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 193]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 247]       CG_SOURCE_W_G

Wn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 73]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 183]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 228]       CG_SOURCE_W_S

work_around    (Local Variable)  Declared as: INTEGER
    Define   [write_res0.f, 58]        WRITE_RES0
    Set   [write_res0.f, 113]          WRITE_RES0

write_AoutBm.IJK    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 541]          write_AoutBm
    Set   [dbg_mod.f, 547]             write_AoutBm
    Use   [dbg_mod.f, 548]             write_AoutBm
    Set   [dbg_mod.f, 554]             write_AoutBm
    Use   [dbg_mod.f, 555]             write_AoutBm

write_AoutBm.lB_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [dbg_mod.f, 535]          write_AoutBm
    Declare   [dbg_mod.f, 537]         write_AoutBm
    Use   [dbg_mod.f, 551]             write_AoutBm
    Use   [dbg_mod.f, 558]             write_AoutBm

write_AoutBm.lEnd    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 540]          write_AoutBm
    Set   [dbg_mod.f, 544]             write_AoutBm
    Use   [dbg_mod.f, 547]             write_AoutBm
    Use   [dbg_mod.f, 550]             write_AoutBm
    Use   [dbg_mod.f, 554]             write_AoutBm
    Use   [dbg_mod.f, 557]             write_AoutBm

write_AoutBm.lStart    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 539]          write_AoutBm
    Set   [dbg_mod.f, 543]             write_AoutBm
    Use   [dbg_mod.f, 547]             write_AoutBm
    Use   [dbg_mod.f, 554]             write_AoutBm

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 607]          WRITE_GEOMETRY_IN_VTU_BIN
    Set   [vtk_out.f, 607]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 694]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 827]             WRITE_GEOMETRY_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 950]          WRITE_SCALAR_IN_VTU_BIN
    Set   [vtk_out.f, 950]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 972]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 1023]            WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 1044]            WRITE_SCALAR_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1103]         WRITE_VECTOR_IN_VTU_BIN
    Set   [vtk_out.f, 1103]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1120]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1186]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1208]            WRITE_VECTOR_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 91]           WRITE_VTU_FILE
    Set   [vtk_out.f, 91]              WRITE_VTU_FILE
    Use   [vtk_out.f, 137]             WRITE_VTU_FILE

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 606]          WRITE_GEOMETRY_IN_VTU_BIN
    Set   [vtk_out.f, 606]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 655]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 788]             WRITE_GEOMETRY_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 949]          WRITE_SCALAR_IN_VTU_BIN
    Set   [vtk_out.f, 949]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 958]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 1008]            WRITE_SCALAR_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1102]         WRITE_VECTOR_IN_VTU_BIN
    Set   [vtk_out.f, 1102]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1109]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1174]            WRITE_VECTOR_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 90]           WRITE_VTU_FILE
    Set   [vtk_out.f, 90]              WRITE_VTU_FILE
    Use   [vtk_out.f, 137]             WRITE_VTU_FILE

WRITE_RES1_DES.cDISPLS    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 57]   WRITE_RES1_DES
    Use   [write_res1_des_mod.f, 221]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 221]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 119]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 186]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 661]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 603]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 714]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cGATHER    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 56]   WRITE_RES1_DES
    Use   [write_res1_des_mod.f, 220]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 220]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 118]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 183]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 663]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 605]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 716]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cPROCCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 54]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 129]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 160]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 168]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 168]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 174]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 178]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 181]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 658]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 679]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 600]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 711]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 733]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cROOTCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 54]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 128]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 129]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 158]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 174]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 198]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 659]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 684]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 601]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 631]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 712]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 738]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cSEND    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 55]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 178]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 662]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 604]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 715]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.INIT_WRITE_RES_DES.BASE    (Dummy Argument)  Declared as: CHARACTER INTENT(IN)
    Define   [write_res1_des_mod.f, 91]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 100]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 113]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 111]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 162]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 163]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 164]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 167]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lGatherCnts    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 109]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 146]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 147]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 149]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 180]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 181]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 183]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lGHOST_CNT    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 107]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 126]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 140]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(OUT)
    Define   [write_res1_des_mod.f, 91]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 102]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 194]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 195]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 196]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 198]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lPROC    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 105]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 153]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 187]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lVERSION    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 91]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 101]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 195]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 111]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 161]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 164]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 165]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 165]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 167]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.OPEN_RES_DES.BASE    (Dummy Argument)  Declared as: CHARACTER INTENT(IN)
    Define   [write_res1_des_mod.f, 66]   WRITE_RES1_DES.OPEN_RES_DES
    Declare   [write_res1_des_mod.f, 70]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 74]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 79]   WRITE_RES1_DES.OPEN_RES_DES

WRITE_RES1_DES.OPEN_RES_DES.lFNAME    (Local Variable)  Declared as: CHARACTER
    Define   [write_res1_des_mod.f, 71]   WRITE_RES1_DES.OPEN_RES_DES
    Set   [write_res1_des_mod.f, 74]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 75]   WRITE_RES1_DES.OPEN_RES_DES
    Set   [write_res1_des_mod.f, 79]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 80]   WRITE_RES1_DES.OPEN_RES_DES

WRITE_RES1_DES.pDISPLS    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 51]   WRITE_RES1_DES
    Use   [write_res1_des_mod.f, 218]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 218]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 116]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 152]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 387]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 507]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 449]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 552]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pGATHER    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 50]   WRITE_RES1_DES
    Use   [write_res1_des_mod.f, 217]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 217]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 115]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 149]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 389]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 509]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 451]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 554]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pPROCCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 48]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 124]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 134]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 137]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 144]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 147]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 380]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 504]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 446]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 549]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pROOTCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 48]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 123]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 124]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 133]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 137]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 196]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 381]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 408]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 505]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 447]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 476]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 550]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pSEND    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 49]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 144]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 388]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 508]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 450]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 553]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.RDES_UNIT    (Variable)  Declared as: INTEGER PARAMETER
    Define   [write_res1_des_mod.f, 45]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 45]   WRITE_RES1_DES
    Use IO   [write_res1_des_mod.f, 210]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Use IO   [write_res1_des_mod.f, 75]   WRITE_RES1_DES.OPEN_RES_DES
    Use IO   [write_res1_des_mod.f, 80]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 679]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 684]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 631]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 733]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 738]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use IO   [write_res1_des_mod.f, 276]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use IO   [write_res1_des_mod.f, 237]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use IO   [write_res1_des_mod.f, 319]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 408]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 476]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 645]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Declare   [write_res1_des_mod.f, 653]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 656]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 667]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 668]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 669]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 672]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 656]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 665]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 674]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 674]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 645]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Declare   [write_res1_des_mod.f, 652]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 679]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 684]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 656]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 666]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 669]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 670]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 670]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 672]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.INPUT_I    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [write_res1_des_mod.f, 582]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 590]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 595]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 610]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 611]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 612]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 615]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 595]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 607]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 621]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 621]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.lLOC2GLB    (Local Variable)  Declared as: LOGICAL
    Define   [write_res1_des_mod.f, 593]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 597]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 598]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 616]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 582]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 589]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 631]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 595]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 608]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 612]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 613]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 613]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 615]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.pLOC2GLB    (Dummy Argument)  Declared as: LOGICAL INTENT(IN) OPTIONAL
    Define   [write_res1_des_mod.f, 582]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 591]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use Argument   [write_res1_des_mod.f, 598]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 598]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [write_res1_des_mod.f, 699]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Declare   [write_res1_des_mod.f, 706]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use Argument   [write_res1_des_mod.f, 727]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 709]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 721]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 722]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 723]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 726]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 727]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 709]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 719]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 727]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 728]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 728]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 699]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Declare   [write_res1_des_mod.f, 705]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 733]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 738]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 709]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 720]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 723]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 724]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 724]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 726]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_DES_0D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 270]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Declare   [write_res1_des_mod.f, 273]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 276]   WRITE_RES1_DES.WRITE_RES_DES_0D

WRITE_RES1_DES.WRITE_RES_DES_0D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 270]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Declare   [write_res1_des_mod.f, 272]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 276]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Set   [write_res1_des_mod.f, 278]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 278]   WRITE_RES1_DES.WRITE_RES_DES_0D

WRITE_RES1_DES.WRITE_RES_DES_0I.INPUT_I    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [write_res1_des_mod.f, 231]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Declare   [write_res1_des_mod.f, 234]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 237]   WRITE_RES1_DES.WRITE_RES_DES_0I

WRITE_RES1_DES.WRITE_RES_DES_0I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 231]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Declare   [write_res1_des_mod.f, 233]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 237]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Set   [write_res1_des_mod.f, 239]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 239]   WRITE_RES1_DES.WRITE_RES_DES_0I

WRITE_RES1_DES.WRITE_RES_DES_0L.INPUT_I    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 314]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Set   [write_res1_des_mod.f, 316]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 319]   WRITE_RES1_DES.WRITE_RES_DES_0L

WRITE_RES1_DES.WRITE_RES_DES_0L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [write_res1_des_mod.f, 309]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Declare   [write_res1_des_mod.f, 312]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use Argument   [write_res1_des_mod.f, 316]   WRITE_RES1_DES.WRITE_RES_DES_0L

WRITE_RES1_DES.WRITE_RES_DES_0L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 309]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Declare   [write_res1_des_mod.f, 311]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 319]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Set   [write_res1_des_mod.f, 321]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 321]   WRITE_RES1_DES.WRITE_RES_DES_0L

WRITE_RES1_DES.WRITE_RES_DES_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 289]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Declare   [write_res1_des_mod.f, 292]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use Argument   [write_res1_des_mod.f, 296]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D

WRITE_RES1_DES.WRITE_RES_DES_1D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 289]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Declare   [write_res1_des_mod.f, 291]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D

WRITE_RES1_DES.WRITE_RES_DES_1D.lSIZE    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 294]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Set   [write_res1_des_mod.f, 296]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D

WRITE_RES1_DES.WRITE_RES_DES_1I.INPUT_I    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [write_res1_des_mod.f, 250]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Declare   [write_res1_des_mod.f, 253]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use Argument   [write_res1_des_mod.f, 257]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I

WRITE_RES1_DES.WRITE_RES_DES_1I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 250]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Declare   [write_res1_des_mod.f, 252]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I

WRITE_RES1_DES.WRITE_RES_DES_1I.lSIZE    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 255]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Set   [write_res1_des_mod.f, 257]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I

WRITE_RES1_DES.WRITE_RES_DES_1L.INPUT_I    (Local Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 337]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 342]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 351]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 351]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [write_res1_des_mod.f, 332]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Declare   [write_res1_des_mod.f, 335]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 341]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 339]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 344]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 332]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Declare   [write_res1_des_mod.f, 334]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.lSIZE    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 339]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 341]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 342]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 344]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.INPUT_B    (Dummy Argument)  Declared as: INTEGER (KIND=1) INTENT(IN)
    Define   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Declare   [write_res1_des_mod.f, 369]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 385]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.INPUT_I    (Local Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 372]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 385]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 397]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 411]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 418]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 375]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 392]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 395]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 396]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 397]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 398]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 398]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 402]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 403]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 405]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 405]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 375]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 394]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 397]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 401]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.lLOC2GLB    (Local Variable)  Declared as: LOGICAL
    Define   [write_res1_des_mod.f, 373]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 377]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 378]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 393]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 411]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Declare   [write_res1_des_mod.f, 368]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 408]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.pLOC2GLB    (Dummy Argument)  Declared as: LOGICAL INTENT(IN) OPTIONAL
    Define   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Declare   [write_res1_des_mod.f, 370]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 378]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 378]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 490]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Declare   [write_res1_des_mod.f, 498]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use Argument   [write_res1_des_mod.f, 521]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 501]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 512]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 514]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 515]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 517]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 517]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 501]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 513]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 490]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Declare   [write_res1_des_mod.f, 497]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.INPUT_I    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [write_res1_des_mod.f, 428]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 436]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 460]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 474]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 441]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 454]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 458]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 459]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 460]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 461]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 461]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 465]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 466]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 468]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 468]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 441]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 457]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 460]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 464]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.lLOC2GLB    (Local Variable)  Declared as: LOGICAL
    Define   [write_res1_des_mod.f, 439]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 443]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 444]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 456]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 474]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 428]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 435]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 476]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.pLOC2GLB    (Dummy Argument)  Declared as: LOGICAL INTENT(IN) OPTIONAL
    Define   [write_res1_des_mod.f, 428]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 437]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 444]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 444]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [write_res1_des_mod.f, 537]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Declare   [write_res1_des_mod.f, 544]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use Argument   [write_res1_des_mod.f, 561]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use Argument   [write_res1_des_mod.f, 566]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 547]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 557]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 559]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 560]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 561]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 562]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 562]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 547]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 558]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 561]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 537]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Declare   [write_res1_des_mod.f, 543]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RS0.LINE    (Dummy Argument)  Declared as: CHARACTER INTENT(IN)
    Define   [rxn_com_mod.f, 554]      WRITE_RS0
    Declare   [rxn_com_mod.f, 561]     WRITE_RS0
    Use   [rxn_com_mod.f, 568]         WRITE_RS0
    Use   [rxn_com_mod.f, 572]         WRITE_RS0

WRITE_RS0.UFLAG    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [rxn_com_mod.f, 554]      WRITE_RS0
    Declare   [rxn_com_mod.f, 562]     WRITE_RS0
    Use   [rxn_com_mod.f, 566]         WRITE_RS0
    Use IO   [rxn_com_mod.f, 572]      WRITE_RS0

writeBA.FUNIT    (Dummy Argument)  Declared as: INTEGER INTENT(IN) OPTIONAL
    Define   [parse_mod.f, 1005]       writeBA
    Declare   [parse_mod.f, 1010]      writeBA
    Use Argument   [parse_mod.f, 1017]   writeBA
    Use IO   [parse_mod.f, 1020]       writeBA
    Use Argument   [parse_mod.f, 1029]   writeBA
    Use IO   [parse_mod.f, 1032]       writeBA
    Use Argument   [parse_mod.f, 1043]   writeBA
    Use IO   [parse_mod.f, 1046]       writeBA

writeBA.M    (Local Variable)  Declared as: INTEGER
    Define   [parse_mod.f, 1012]       writeBA
    Set   [parse_mod.f, 1038]          writeBA
    Use   [parse_mod.f, 1039]          writeBA
    Use   [parse_mod.f, 1044]          writeBA
    Use   [parse_mod.f, 1046]          writeBA

writeBA.N    (Local Variable)  Declared as: INTEGER
    Define   [parse_mod.f, 1012]       writeBA
    Set   [parse_mod.f, 1026]          writeBA
    Use   [parse_mod.f, 1030]          writeBA
    Use   [parse_mod.f, 1032]          writeBA
    Set   [parse_mod.f, 1039]          writeBA
    Use   [parse_mod.f, 1044]          writeBA
    Use   [parse_mod.f, 1046]          writeBA

writeBA.Nsp    (Local Variable)  Declared as: INTEGER
    Define   [parse_mod.f, 1015]       writeBA
    Set   [parse_mod.f, 1024]          writeBA
    Set   [parse_mod.f, 1027]          writeBA
    Use   [parse_mod.f, 1027]          writeBA
    Use   [parse_mod.f, 1028]          writeBA
    Set   [parse_mod.f, 1040]          writeBA
    Use   [parse_mod.f, 1040]          writeBA
    Use   [parse_mod.f, 1042]          writeBA

writeCp.lM    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 291]    writeCp
    Use   [read_database.f, 318]       writeCp
    Use   [read_database.f, 318]       writeCp
    Use   [read_database.f, 321]       writeCp
    Use   [read_database.f, 321]       writeCp
    Use   [read_database.f, 324]       writeCp
    Use   [read_database.f, 329]       writeCp
    Use   [read_database.f, 330]       writeCp
    Use   [read_database.f, 336]       writeCp
    Use   [read_database.f, 337]       writeCp
    Use   [read_database.f, 348]       writeCp
    Use   [read_database.f, 349]       writeCp
    Use   [read_database.f, 355]       writeCp
    Use   [read_database.f, 356]       writeCp

writeCp.lMW    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 291]    writeCp
    Use   [read_database.f, 336]       writeCp
    Use   [read_database.f, 337]       writeCp
    Use   [read_database.f, 355]       writeCp
    Use   [read_database.f, 356]       writeCp

writeCp.lN    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 291]    writeCp
    Use   [read_database.f, 318]       writeCp
    Use   [read_database.f, 318]       writeCp
    Use   [read_database.f, 321]       writeCp
    Use   [read_database.f, 321]       writeCp
    Use   [read_database.f, 324]       writeCp
    Use   [read_database.f, 329]       writeCp
    Use   [read_database.f, 330]       writeCp
    Use   [read_database.f, 336]       writeCp
    Use   [read_database.f, 337]       writeCp
    Use   [read_database.f, 348]       writeCp
    Use   [read_database.f, 349]       writeCp
    Use   [read_database.f, 355]       writeCp
    Use   [read_database.f, 356]       writeCp

writeCp.lName    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 291]    writeCp
    Use Argument   [read_database.f, 315]   writeCp

Wrminus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_time_march.f, 61]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 186]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 195]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 212]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 221]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 243]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 252]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 269]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 278]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 295]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 304]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 483]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 492]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 509]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 518]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 540]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 549]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 566]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 575]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 592]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 601]    QMOMK_TIME_MARCH

Wrplus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_time_march.f, 61]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 191]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 196]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 217]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 222]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 248]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 253]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 274]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 279]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 300]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 305]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 488]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 493]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 514]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 519]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 545]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 550]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 571]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 576]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 597]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 602]    QMOMK_TIME_MARCH

Ws    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 91]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 194]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 248]       CG_SOURCE_W_G

Ws    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 73]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 184]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 229]       CG_SOURCE_W_S

Ws    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [des_thermo_conv.f, 142]   DES_CALC_GAMMA
    Set   [des_thermo_conv.f, 169]     DES_CALC_GAMMA
    Use   [des_thermo_conv.f, 170]     DES_CALC_GAMMA

Ws_Temp    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [radial_vel_correction.f, 28]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 108]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 119]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 123]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 155]   RADIAL_VEL_CORRECTION

Ws_Temp_GL    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [radial_vel_correction.f, 28]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 109]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 123]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 124]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 138]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 138]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 156]   RADIAL_VEL_CORRECTION

WsAvg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [radial_vel_correction.f, 36]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 138]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 139]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 140]   RADIAL_VEL_CORRECTION

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 310]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 317]       CG_SOURCE_W_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 115]       SOURCE_W_G
    Set   [source_w_g.f, 256]          SOURCE_W_G
    Use   [source_w_g.f, 270]          SOURCE_W_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 99]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 311]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 312]       CG_SOURCE_V_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 108]       SOURCE_V_G
    Set   [source_v_g.f, 260]          SOURCE_V_G
    Use Argument   [source_v_g.f, 263]   SOURCE_V_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 98]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 308]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 309]       CG_SOURCE_U_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 110]       SOURCE_U_G
    Set   [source_u_g.f, 260]          SOURCE_U_G
    Use Argument   [source_u_g.f, 262]   SOURCE_U_G

Wsc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 99]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 312]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 314]       CG_SOURCE_V_G

Wsc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 98]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 309]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 311]       CG_SOURCE_U_G

WSCL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_ss.f, 56]           DRAG_SS
    Set   [drag_ss.f, 90]              DRAG_SS
    Use   [drag_ss.f, 98]              DRAG_SS

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 63]           DRAG_GS
    Set   [drag_gs.f, 149]             DRAG_GS
    Use   [drag_gs.f, 152]             DRAG_GS

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 88]       CALC_GRBDRY
    Set   [calc_grbdry.f, 197]         CALC_GRBDRY
    Set   [calc_grbdry.f, 235]         CALC_GRBDRY
    Set   [calc_grbdry.f, 272]         CALC_GRBDRY
    Set   [calc_grbdry.f, 309]         CALC_GRBDRY
    Set   [calc_grbdry.f, 397]         CALC_GRBDRY
    Set   [calc_grbdry.f, 441]         CALC_GRBDRY
    Set   [calc_grbdry.f, 477]         CALC_GRBDRY
    Set   [calc_grbdry.f, 513]         CALC_GRBDRY
    Set   [calc_grbdry.f, 600]         CALC_GRBDRY
    Use   [calc_grbdry.f, 601]         CALC_GRBDRY
    Set   [calc_grbdry.f, 644]         CALC_GRBDRY
    Use   [calc_grbdry.f, 645]         CALC_GRBDRY
    Set   [calc_grbdry.f, 680]         CALC_GRBDRY
    Use   [calc_grbdry.f, 681]         CALC_GRBDRY
    Set   [calc_grbdry.f, 716]         CALC_GRBDRY
    Use   [calc_grbdry.f, 717]         CALC_GRBDRY
    Use   [calc_grbdry.f, 734]         CALC_GRBDRY
    Use   [calc_grbdry.f, 738]         CALC_GRBDRY

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1286]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1360]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1364]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1368]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1426]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1431]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1435]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1495]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1499]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1503]        CG_CALC_GRBDRY

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_gama.f, 52]         CALC_GAMA
    Set   [calc_gama.f, 100]           CALC_GAMA
    Use   [calc_gama.f, 103]           CALC_GAMA

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_ghd_granular_energy.f, 92]   SOURCE_GHD_GRANULAR_ENERGY
    Set   [source_ghd_granular_energy.f, 345]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 347]   SOURCE_GHD_GRANULAR_ENERGY

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_ss.f, 56]           DRAG_SS
    Set   [drag_ss.f, 94]              DRAG_SS
    Use   [drag_ss.f, 98]              DRAG_SS

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 348]         CALC_THETA_BC
    Set   [bc_theta.f, 443]            CALC_THETA_BC
    Use   [bc_theta.f, 448]            CALC_THETA_BC
    Set   [bc_theta.f, 488]            CALC_THETA_BC
    Use   [bc_theta.f, 493]            CALC_THETA_BC
    Set   [bc_theta.f, 533]            CALC_THETA_BC
    Use   [bc_theta.f, 538]            CALC_THETA_BC
    Set   [bc_theta.f, 578]            CALC_THETA_BC
    Use   [bc_theta.f, 583]            CALC_THETA_BC
    Set   [bc_theta.f, 625]            CALC_THETA_BC
    Set   [bc_theta.f, 670]            CALC_THETA_BC
    Use   [bc_theta.f, 682]            CALC_THETA_BC

WSCM1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 89]       CALC_GRBDRY
    Set   [calc_grbdry.f, 191]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 197]   CALC_GRBDRY
    Set   [calc_grbdry.f, 229]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 235]   CALC_GRBDRY
    Set   [calc_grbdry.f, 471]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 477]   CALC_GRBDRY
    Set   [calc_grbdry.f, 507]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 513]   CALC_GRBDRY

WSCM1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1287]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1354]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1360]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1420]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1426]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1489]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1495]   CG_CALC_GRBDRY

WSCM2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 89]       CALC_GRBDRY
    Set   [calc_grbdry.f, 194]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 197]   CALC_GRBDRY
    Set   [calc_grbdry.f, 232]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 235]   CALC_GRBDRY
    Set   [calc_grbdry.f, 474]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 477]   CALC_GRBDRY
    Set   [calc_grbdry.f, 510]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 513]   CALC_GRBDRY

WSCM2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1287]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1357]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1360]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1423]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1426]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1492]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1495]   CG_CALC_GRBDRY

WSCM_HYS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 65]           DRAG_GS
    Set   [drag_gs.f, 259]             DRAG_GS
    Set   [drag_gs.f, 266]             DRAG_GS
    Use   [drag_gs.f, 266]             DRAG_GS
    Set   [drag_gs.f, 271]             DRAG_GS
    Use   [drag_gs.f, 271]             DRAG_GS
    Use   [drag_gs.f, 274]             DRAG_GS

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 291]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 315]       CG_SOURCE_W_G

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 115]       SOURCE_W_G
    Set   [source_w_g.f, 261]          SOURCE_W_G
    Use   [source_w_g.f, 270]          SOURCE_W_G

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 110]       SOURCE_U_G
    Set   [source_u_g.f, 262]          SOURCE_U_G
    Use   [source_u_g.f, 265]          SOURCE_U_G
    Use   [source_u_g.f, 267]          SOURCE_U_G

wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 93]        SOURCE_U_S
    Set   [source_u_s.f, 425]          SOURCE_U_S
    Use   [source_u_s.f, 427]          SOURCE_U_S
    Use   [source_u_s.f, 429]          SOURCE_U_S

WSFCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_gas_drag.f, 65]    QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 126]      QMOMK_GAS_DRAG
    Use   [qmomk_gas_drag.f, 128]      QMOMK_GAS_DRAG

WsL_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 304]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 434]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 545]   SOURCE_GRANULAR_ENERGY_IA

Wsl_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2658]       init1_mu_s
    Set   [calc_mu_s.f, 2911]          init1_mu_s
    Set   [calc_mu_s.f, 2914]          init1_mu_s
    Use   [calc_mu_s.f, 2952]          init1_mu_s

Wsl_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2649]       init1_mu_s
    Set   [calc_mu_s.f, 2902]          init1_mu_s
    Set   [calc_mu_s.f, 2940]          init1_mu_s
    Use   [calc_mu_s.f, 2950]          init1_mu_s

Wsl_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2653]       init1_mu_s
    Set   [calc_mu_s.f, 2896]          init1_mu_s
    Set   [calc_mu_s.f, 2936]          init1_mu_s
    Use   [calc_mu_s.f, 2956]          init1_mu_s

WsL_p    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 305]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 437]   SOURCE_GRANULAR_ENERGY_IA

Wsl_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2655]       init1_mu_s
    Set   [calc_mu_s.f, 2899]          init1_mu_s
    Set   [calc_mu_s.f, 2938]          init1_mu_s
    Use   [calc_mu_s.f, 2956]          init1_mu_s

WsL_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 304]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 433]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 544]   SOURCE_GRANULAR_ENERGY_IA

Wsl_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2651]       init1_mu_s
    Set   [calc_mu_s.f, 2905]          init1_mu_s
    Set   [calc_mu_s.f, 2942]          init1_mu_s
    Use   [calc_mu_s.f, 2950]          init1_mu_s

WsM_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 303]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 380]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 545]   SOURCE_GRANULAR_ENERGY_IA

WsM_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 305]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 383]   SOURCE_GRANULAR_ENERGY_IA

WsM_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 303]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 379]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 544]   SOURCE_GRANULAR_ENERGY_IA

Wsn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 300]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 316]       CG_SOURCE_W_G

Wsn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 115]       SOURCE_W_G
    Set   [source_w_g.f, 266]          SOURCE_W_G
    Use   [source_w_g.f, 271]          SOURCE_W_G

Wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 301]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 316]       CG_SOURCE_W_G

Wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 115]       SOURCE_W_G
    Set   [source_w_g.f, 265]          SOURCE_W_G
    Use   [source_w_g.f, 271]          SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 309]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 317]       CG_SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 115]       SOURCE_W_G
    Set   [source_w_g.f, 257]          SOURCE_W_G
    Use   [source_w_g.f, 270]          SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 99]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 310]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 312]       CG_SOURCE_V_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 108]       SOURCE_V_G
    Set   [source_v_g.f, 259]          SOURCE_V_G
    Use Argument   [source_v_g.f, 263]   SOURCE_V_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 98]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 307]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 309]       CG_SOURCE_U_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 110]       SOURCE_U_G
    Set   [source_u_g.f, 261]          SOURCE_U_G
    Use Argument   [source_u_g.f, 262]   SOURCE_U_G

Wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 292]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 315]       CG_SOURCE_W_G

Wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 115]       SOURCE_W_G
    Set   [source_w_g.f, 262]          SOURCE_W_G
    Use   [source_w_g.f, 270]          SOURCE_W_G

WSX    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [set_ic.f, 63]            SET_IC
    Set   [set_ic.f, 89]               SET_IC
    Use   [set_ic.f, 147]              SET_IC
    Use   [set_ic.f, 147]              SET_IC
    Use   [set_ic.f, 187]              SET_IC
    Use   [set_ic.f, 189]              SET_IC

Wt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 91]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 196]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 249]       CG_SOURCE_W_G

Wt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 73]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 185]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 230]       CG_SOURCE_W_S

WT_UNIT    (Local Variable)  Declared as: CHARACTER
    Define   [check_bqend.f, 32]       CHECK_BATCH_QUEUE_END
    Use Argument   [check_bqend.f, 44]   CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 49]          CHECK_BATCH_QUEUE_END

WTP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 264]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 381]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 382]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 402]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 407]        DRAG_GS_GAS0

WTP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [comp_mean_fields0.f, 65]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 168]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 169]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 171]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 173]   COMP_MEAN_FIELDS0

WV    (Dummy Argument)  Declared as: INTEGER
    Define   [qmomk_gas_drag.f, 14]    QMOMK_GAS_DRAG
    Declare   [qmomk_gas_drag.f, 59]   QMOMK_GAS_DRAG
    Use   [qmomk_gas_drag.f, 117]      QMOMK_GAS_DRAG

WVELS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 94]       CALC_GRBDRY
    Set   [calc_grbdry.f, 160]         CALC_GRBDRY
    Set   [calc_grbdry.f, 354]         CALC_GRBDRY
    Set   [calc_grbdry.f, 557]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 747]   CALC_GRBDRY
    Use   [calc_grbdry.f, 753]         CALC_GRBDRY

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [conv_dif_v_s.f, 82]      GET_VCELL_SVTERMS
    Declare   [conv_dif_v_s.f, 111]    GET_VCELL_SVTERMS
    Set   [conv_dif_v_s.f, 144]        GET_VCELL_SVTERMS
    Set   [conv_dif_v_s.f, 148]        GET_VCELL_SVTERMS
    Use   [conv_dif_v_s.f, 148]        GET_VCELL_SVTERMS
    Set   [conv_dif_v_s.f, 154]        GET_VCELL_SVTERMS

Ww    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 91]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 191]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 246]       CG_SOURCE_W_G

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [conv_dif_u_g.f, 60]      GET_UCELL_GVTERMS
    Declare   [conv_dif_u_g.f, 86]     GET_UCELL_GVTERMS
    Set   [conv_dif_u_g.f, 120]        GET_UCELL_GVTERMS
    Set   [conv_dif_u_g.f, 124]        GET_UCELL_GVTERMS
    Use   [conv_dif_u_g.f, 124]        GET_UCELL_GVTERMS
    Set   [conv_dif_u_g.f, 130]        GET_UCELL_GVTERMS

Ww    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 73]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 182]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 227]       CG_SOURCE_W_S

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [conv_dif_u_s.f, 76]      GET_UCELL_SVTERMS
    Declare   [conv_dif_u_s.f, 105]    GET_UCELL_SVTERMS
    Set   [conv_dif_u_s.f, 139]        GET_UCELL_SVTERMS
    Set   [conv_dif_u_s.f, 143]        GET_UCELL_SVTERMS
    Use   [conv_dif_u_s.f, 143]        GET_UCELL_SVTERMS
    Set   [conv_dif_u_s.f, 149]        GET_UCELL_SVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [leq_gmres.f, 163]        LEQ_GMRES0
    Set   [leq_gmres.f, 190]           LEQ_GMRES0
    Set   [leq_gmres.f, 211]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 307]   LEQ_GMRES0
    Use   [leq_gmres.f, 310]           LEQ_GMRES0
    Set   [leq_gmres.f, 319]           LEQ_GMRES0
    Use   [leq_gmres.f, 319]           LEQ_GMRES0
    Use   [leq_gmres.f, 325]           LEQ_GMRES0
    Use   [leq_gmres.f, 325]           LEQ_GMRES0
    Use   [leq_gmres.f, 336]           LEQ_GMRES0
    Set   [leq_gmres.f, 587]           LEQ_GMRES0

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [conv_dif_w_g.f, 60]      GET_WCELL_GVTERMS
    Declare   [conv_dif_w_g.f, 85]     GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 118]        GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 122]        GET_WCELL_GVTERMS
    Use   [conv_dif_w_g.f, 122]        GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 127]        GET_WCELL_GVTERMS

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [conv_dif_w_s.f, 76]      GET_WCELL_SVTERMS
    Declare   [conv_dif_w_s.f, 104]    GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 137]        GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 141]        GET_WCELL_SVTERMS
    Use   [conv_dif_w_s.f, 141]        GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 146]        GET_WCELL_SVTERMS

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [conv_dif_v_g.f, 62]      GET_VCELL_GVTERMS
    Declare   [conv_dif_v_g.f, 88]     GET_VCELL_GVTERMS
    Set   [conv_dif_v_g.f, 121]        GET_VCELL_GVTERMS
    Set   [conv_dif_v_g.f, 125]        GET_VCELL_GVTERMS
    Use   [conv_dif_v_g.f, 125]        GET_VCELL_GVTERMS
    Set   [conv_dif_v_g.f, 131]        GET_VCELL_GVTERMS

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 68]        CALC_TRD_G
    Set   [calc_trd_g.f, 115]          CALC_TRD_G
    Set   [calc_trd_g.f, 120]          CALC_TRD_G
    Set   [calc_trd_g.f, 126]          CALC_TRD_G
    Set   [calc_trd_g.f, 131]          CALC_TRD_G
    Use   [calc_trd_g.f, 242]          CALC_TRD_G
    Use   [calc_trd_g.f, 249]          CALC_TRD_G
    Use   [calc_trd_g.f, 253]          CALC_TRD_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 340]       CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 383]          CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 388]          CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 394]          CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 399]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 567]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 568]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 569]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 579]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 580]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 581]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 585]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 586]          CG_CALC_VEL_G_GRAD
    Use   [calc_trd_g.f, 587]          CG_CALC_VEL_G_GRAD

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 94]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 146]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 158]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 162]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 165]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 168]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 171]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 174]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 245]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 246]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 247]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 248]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 249]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 250]       CG_SOURCE_W_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 296]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 399]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 405]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 412]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 421]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 532]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 551]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 560]             CALC_CG_TAU_U_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_g.f, 308]          CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 404]             CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 410]             CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 417]             CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 423]             CALC_CG_TAU_w_G
    Use   [tau_w_g.f, 575]             CALC_CG_TAU_w_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_g.f, 249]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 350]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 356]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 363]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 369]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 485]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 504]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 513]             CALC_CG_TAU_V_G

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_s.f, 298]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 371]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 377]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 384]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 390]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 504]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 521]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 530]             CALC_CG_TAU_V_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 69]        CALC_TRD_S
    Set   [calc_trd_s.f, 117]          CALC_TRD_S
    Set   [calc_trd_s.f, 122]          CALC_TRD_S
    Set   [calc_trd_s.f, 129]          CALC_TRD_S
    Set   [calc_trd_s.f, 135]          CALC_TRD_S
    Set   [calc_trd_s.f, 142]          CALC_TRD_S
    Use   [calc_trd_s.f, 238]          CALC_TRD_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 328]       CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 375]          CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 380]          CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 389]          CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 395]          CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 400]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 562]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 563]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 564]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 574]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 575]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 576]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 580]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 581]          CG_CALC_VEL_S_GRAD
    Use   [calc_trd_s.f, 582]          CG_CALC_VEL_S_GRAD

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 76]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 138]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 143]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 147]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 150]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 153]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 156]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 159]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 162]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 165]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 226]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 227]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 228]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 229]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 230]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 231]       CG_SOURCE_W_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 336]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 414]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 420]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 427]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 433]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 550]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 568]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 577]             CALC_CG_TAU_U_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_s.f, 312]          CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 382]             CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 388]             CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 395]             CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 401]             CALC_CG_TAU_W_S
    Use   [tau_w_s.f, 549]             CALC_CG_TAU_W_S

Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ