Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 462]   Calc_mass_flux
    Declare   [check_mass_balance.f, 475]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 491]   Calc_mass_flux

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 512]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 531]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 595]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 596]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 598]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 603]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 604]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 606]   Calc_mass_flux_sp

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_mflux.f, 106]       CALC_MFLUX0
    Declare   [calc_mflux.f, 129]      CALC_MFLUX0
    Use   [calc_mflux.f, 157]          CALC_MFLUX0
    Use   [calc_mflux.f, 176]          CALC_MFLUX0

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_mflux.f, 206]       CALC_MFLUX1
    Declare   [calc_mflux.f, 236]      CALC_MFLUX1
    Use   [calc_mflux.f, 269]          CALC_MFLUX1
    Use   [calc_mflux.f, 288]          CALC_MFLUX1

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [conv_rop.f, 92]          CONV_ROP0
    Declare   [conv_rop.f, 120]        CONV_ROP0
    Use   [conv_rop.f, 160]            CONV_ROP0
    Use   [conv_rop.f, 194]            CONV_ROP0

W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [conv_rop.f, 229]         CONV_ROP1
    Declare   [conv_rop.f, 264]        CONV_ROP1
    Use Argument   [conv_rop.f, 285]   CONV_ROP1

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    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 1246]         DRAG_KOCH_HILL
    Set   [drag_gs.f, 1258]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1261]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1264]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1276]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1279]            DRAG_KOCH_HILL

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 104]    CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 156]   CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 157]       CG_SOURCE_W_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 418]       SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 735]   SOURCE_U_G_BC
    Use   [source_u_g.f, 736]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 740]   SOURCE_U_G_BC
    Use   [source_u_g.f, 741]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 745]   SOURCE_U_G_BC
    Use   [source_u_g.f, 746]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 750]   SOURCE_U_G_BC
    Use   [source_u_g.f, 751]          SOURCE_U_G_BC

W_F_Slip    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 937]       Wall_Function
    Declare   [source_u_g.f, 960]      Wall_Function
    Set   [source_u_g.f, 978]          Wall_Function
    Set   [source_u_g.f, 984]          Wall_Function

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   [CG_source_u_g.f, 104]    CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 156]   CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 157]       CG_SOURCE_U_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 426]    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
    Use Argument   [CG_source_u_g.f, 490]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 491]       CG_SOURCE_U_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 472]       SOURCE_W_G_BC
    Set   [source_w_g.f, 805]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 817]   SOURCE_W_G_BC
    Use   [source_w_g.f, 819]          SOURCE_W_G_BC
    Set   [source_w_g.f, 824]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 836]   SOURCE_W_G_BC
    Use   [source_w_g.f, 838]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 842]   SOURCE_W_G_BC
    Use   [source_w_g.f, 843]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 847]   SOURCE_W_G_BC
    Use   [source_w_g.f, 848]          SOURCE_W_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 410]       SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 725]   SOURCE_V_G_BC
    Use   [source_v_g.f, 726]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 730]   SOURCE_V_G_BC
    Use   [source_v_g.f, 731]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 735]   SOURCE_V_G_BC
    Use   [source_v_g.f, 736]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 740]   SOURCE_V_G_BC
    Use   [source_v_g.f, 741]          SOURCE_V_G_BC

W_g    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [correct_0.f, 61]         CORRECT_0G
    Declare   [correct_0.f, 94]        CORRECT_0G
    Set   [correct_0.f, 119]           CORRECT_0G
    Use   [correct_0.f, 119]           CORRECT_0G
    Set   [correct_0.f, 128]           CORRECT_0G
    Use   [correct_0.f, 128]           CORRECT_0G

W_g_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 128]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 241]      K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 244]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 262]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 276]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 344]      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, 255]           CALC_MU_G
    Set   [calc_mu_g.f, 258]           CALC_MU_G
    Use   [calc_mu_g.f, 267]           CALC_MU_G

W_g_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 115]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 232]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 266]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 275]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 348]      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, 248]           CALC_MU_G
    Use   [calc_mu_g.f, 266]           CALC_MU_G

W_g_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 121]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 228]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 267]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 279]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 349]      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, 244]           CALC_MU_G
    Use   [calc_mu_g.f, 271]           CALC_MU_G

W_g_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 124]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 230]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 267]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 279]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 349]      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, 246]           CALC_MU_G
    Use   [calc_mu_g.f, 271]           CALC_MU_G

W_g_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 118]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 234]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 266]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 275]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 348]      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, 250]           CALC_MU_G
    Use   [calc_mu_g.f, 266]           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, 714]       CALC_RESID_U
    Declare   [calc_resid.f, 744]      CALC_RESID_U
    Use   [calc_resid.f, 825]          CALC_RESID_U

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_resid.f, 915]       CALC_RESID_V
    Declare   [calc_resid.f, 945]      CALC_RESID_V
    Use   [calc_resid.f, 1026]         CALC_RESID_V

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_resid.f, 1119]      CALC_RESID_W
    Declare   [calc_resid.f, 1149]     CALC_RESID_W
    Use   [calc_resid.f, 1218]         CALC_RESID_W
    Use   [calc_resid.f, 1219]         CALC_RESID_W
    Use   [calc_resid.f, 1219]         CALC_RESID_W
    Use   [calc_resid.f, 1220]         CALC_RESID_W
    Use   [calc_resid.f, 1220]         CALC_RESID_W
    Use   [calc_resid.f, 1224]         CALC_RESID_W
    Use   [calc_resid.f, 1224]         CALC_RESID_W
    Use   [calc_resid.f, 1229]         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, 97]           CALC_TAU_U_G
    Set   [tau_u_g.f, 322]             CALC_TAU_U_G
    Use   [tau_u_g.f, 346]             CALC_TAU_U_G

W_NODE_AT_BE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 95]           CALC_TAU_U_S
    Set   [tau_u_s.f, 341]             CALC_TAU_U_S
    Use   [tau_u_s.f, 360]             CALC_TAU_U_S

W_NODE_AT_BN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 89]           CALC_TAU_V_G
    Set   [tau_v_g.f, 322]             CALC_TAU_V_G
    Use   [tau_v_g.f, 345]             CALC_TAU_V_G

W_NODE_AT_BN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 90]           CALC_TAU_V_S
    Set   [tau_v_s.f, 328]             CALC_TAU_V_S
    Use   [tau_v_s.f, 347]             CALC_TAU_V_S

W_NODE_AT_BS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 89]           CALC_TAU_V_G
    Set   [tau_v_g.f, 323]             CALC_TAU_V_G
    Use   [tau_v_g.f, 345]             CALC_TAU_V_G

W_NODE_AT_BS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 90]           CALC_TAU_V_S
    Set   [tau_v_s.f, 329]             CALC_TAU_V_S
    Use   [tau_v_s.f, 347]             CALC_TAU_V_S

W_NODE_AT_BW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 97]           CALC_TAU_U_G
    Set   [tau_u_g.f, 323]             CALC_TAU_U_G
    Use   [tau_u_g.f, 346]             CALC_TAU_U_G

W_NODE_AT_BW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 95]           CALC_TAU_U_S
    Set   [tau_u_s.f, 342]             CALC_TAU_U_S
    Use   [tau_u_s.f, 360]             CALC_TAU_U_S

W_NODE_AT_NT    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 461]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 572]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 576]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 579]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 583]           GET_3D_ALPHA_V_CUT_CELL

W_NODE_AT_ST    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 461]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 573]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 576]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 579]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 583]           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   [get_alpha.f, 42]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 150]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 152]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 156]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 160]           GET_3D_ALPHA_U_CUT_CELL

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 97]           CALC_TAU_U_G
    Set   [tau_u_g.f, 320]             CALC_TAU_U_G
    Use   [tau_u_g.f, 325]             CALC_TAU_U_G

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 95]           CALC_TAU_U_S
    Set   [tau_u_s.f, 339]             CALC_TAU_U_S
    Use   [tau_u_s.f, 344]             CALC_TAU_U_S

W_NODE_AT_TN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 89]           CALC_TAU_V_G
    Set   [tau_v_g.f, 320]             CALC_TAU_V_G
    Use   [tau_v_g.f, 325]             CALC_TAU_V_G

W_NODE_AT_TN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 90]           CALC_TAU_V_S
    Set   [tau_v_s.f, 326]             CALC_TAU_V_S
    Use   [tau_v_s.f, 331]             CALC_TAU_V_S

W_NODE_AT_TS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 89]           CALC_TAU_V_G
    Set   [tau_v_g.f, 321]             CALC_TAU_V_G
    Use   [tau_v_g.f, 325]             CALC_TAU_V_G
    Use   [tau_v_g.f, 365]             CALC_TAU_V_G

W_NODE_AT_TS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 90]           CALC_TAU_V_S
    Set   [tau_v_s.f, 327]             CALC_TAU_V_S
    Use   [tau_v_s.f, 331]             CALC_TAU_V_S
    Use   [tau_v_s.f, 363]             CALC_TAU_V_S

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 42]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 149]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 152]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 156]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 160]           GET_3D_ALPHA_U_CUT_CELL

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 97]           CALC_TAU_U_G
    Set   [tau_u_g.f, 321]             CALC_TAU_U_G
    Use   [tau_u_g.f, 325]             CALC_TAU_U_G
    Use   [tau_u_g.f, 366]             CALC_TAU_U_G

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 95]           CALC_TAU_U_S
    Set   [tau_u_s.f, 340]             CALC_TAU_U_S
    Use   [tau_u_s.f, 344]             CALC_TAU_U_S
    Use   [tau_u_s.f, 376]             CALC_TAU_U_S

W_s    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [correct_0.f, 158]        CORRECT_0S
    Declare   [correct_0.f, 187]       CORRECT_0S
    Set   [correct_0.f, 213]           CORRECT_0S
    Use   [correct_0.f, 213]           CORRECT_0S
    Set   [correct_0.f, 223]           CORRECT_0S
    Use   [correct_0.f, 223]           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_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_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2610]       init_mu_s
    Set   [calc_mu_s.f, 2766]          init_mu_s
    Set   [calc_mu_s.f, 2769]          init_mu_s
    Use   [calc_mu_s.f, 2806]          init_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_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2601]       init_mu_s
    Set   [calc_mu_s.f, 2757]          init_mu_s
    Set   [calc_mu_s.f, 2795]          init_mu_s
    Use   [calc_mu_s.f, 2805]          init_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_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2605]       init_mu_s
    Set   [calc_mu_s.f, 2751]          init_mu_s
    Set   [calc_mu_s.f, 2791]          init_mu_s
    Use   [calc_mu_s.f, 2810]          init_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_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2607]       init_mu_s
    Set   [calc_mu_s.f, 2754]          init_mu_s
    Set   [calc_mu_s.f, 2793]          init_mu_s
    Use   [calc_mu_s.f, 2810]          init_mu_s

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_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_s_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2603]       init_mu_s
    Set   [calc_mu_s.f, 2760]          init_mu_s
    Set   [calc_mu_s.f, 2797]          init_mu_s
    Use   [calc_mu_s.f, 2805]          init_mu_s

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: 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    (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_ELAP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 277]   FLUSH_NOTIFY_USER
    Set   [output_manager.f, 296]      FLUSH_NOTIFY_USER
    Use Argument   [output_manager.f, 297]   FLUSH_NOTIFY_USER
    Use   [output_manager.f, 298]      FLUSH_NOTIFY_USER

WALL_HAULT    (Local Variable)  Declared as: LOGICAL
    Define   [time_march.f, 363]       CHECK_BATCH_QUEUE_END
    Set   [time_march.f, 376]          CHECK_BATCH_QUEUE_END
    Use   [time_march.f, 380]          CHECK_BATCH_QUEUE_END
    Use   [time_march.f, 409]          CHECK_BATCH_QUEUE_END

WALL_LEFT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 277]   FLUSH_NOTIFY_USER
    Set   [output_manager.f, 301]      FLUSH_NOTIFY_USER
    Use Argument   [output_manager.f, 303]   FLUSH_NOTIFY_USER
    Use   [output_manager.f, 304]      FLUSH_NOTIFY_USER

WALL_NORM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [pic_bc_routines.f, 335]   PIC_MI_BC
    Set   [pic_bc_routines.f, 378]     PIC_MI_BC
    Use Argument   [pic_bc_routines.f, 383]   PIC_MI_BC
    Use Argument   [pic_bc_routines.f, 422]   PIC_MI_BC

WALL_NORM    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [pic_bc_routines.f, 638]   PIC_REFLECT_PART
    Declare   [pic_bc_routines.f, 648]   PIC_REFLECT_PART
    Use Argument   [pic_bc_routines.f, 668]   PIC_REFLECT_PART
    Use   [pic_bc_routines.f, 673]     PIC_REFLECT_PART

WALL_NOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [output_manager.f, 277]   FLUSH_NOTIFY_USER
    Set   [output_manager.f, 294]      FLUSH_NOTIFY_USER
    Use   [output_manager.f, 296]      FLUSH_NOTIFY_USER
    Use   [output_manager.f, 301]      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, 64]    OUTPUT_MANAGER
    Set   [output_manager.f, 79]       OUTPUT_MANAGER
    Use   [output_manager.f, 156]      OUTPUT_MANAGER

WALL_START    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [diffuse_mean_fields.f, 54]   DIFFUSE_MEAN_FIELD
    Set   [diffuse_mean_fields.f, 62]   DIFFUSE_MEAN_FIELD
    Use   [diffuse_mean_fields.f, 97]   DIFFUSE_MEAN_FIELD

WALL_STOP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [time_march.f, 365]       CHECK_BATCH_QUEUE_END
    Set   [time_march.f, 372]          CHECK_BATCH_QUEUE_END
    Set   [time_march.f, 373]          CHECK_BATCH_QUEUE_END
    Use   [time_march.f, 373]          CHECK_BATCH_QUEUE_END
    Use   [time_march.f, 376]          CHECK_BATCH_QUEUE_END
    Use Argument   [time_march.f, 381]   CHECK_BATCH_QUEUE_END
    Use   [time_march.f, 386]          CHECK_BATCH_QUEUE_END

WALL_TIME    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [iterate.f, 111]          ITERATE

WALL_VEL    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [cfrelvel.f, 93]          CFRELVEL_WALL
    Declare   [cfrelvel.f, 107]        CFRELVEL_WALL
    Use   [cfrelvel.f, 129]            CFRELVEL_WALL

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, 98]              MFIX
    Set   [mfix.f, 439]                MFIX
    Use Argument   [mfix.f, 440]       MFIX

Wb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 95]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 201]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 254]       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, 261]   WRITE_DES_TECPLOT
    Set   [write_des_data.f, 264]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 313]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 313]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 317]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 317]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 340]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 344]      WRITE_DES_TECPLOT

WDIR    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 332]   PIC_MI_BC
    Set   [pic_bc_routines.f, 381]     PIC_MI_BC
    Set   [pic_bc_routines.f, 383]     PIC_MI_BC
    Use   [pic_bc_routines.f, 383]     PIC_MI_BC
    Use   [pic_bc_routines.f, 406]     PIC_MI_BC
    Use   [pic_bc_routines.f, 410]     PIC_MI_BC

We    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 95]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 194]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 249]       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   [calc_interp_weights.f, 53]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 108]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 111]   CALC_INTERP_WEIGHTS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 77]      DRAG_GS_DES1
    Set   [drag_gs_des1.f, 113]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 115]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 117]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 118]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 119]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 121]        DRAG_GS_DES1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 397]     DRAG_GS_EXPLICIT1
    Set   [drag_gs_des1.f, 447]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 449]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 451]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 452]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 453]        DRAG_GS_EXPLICIT1
    Set   [drag_gs_des1.f, 480]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 482]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 484]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 486]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 488]        DRAG_GS_EXPLICIT1
    Set   [drag_gs_des1.f, 492]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 494]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 496]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 498]        DRAG_GS_EXPLICIT1
    Use   [drag_gs_des1.f, 500]        DRAG_GS_EXPLICIT1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 229]     DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 269]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 271]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 273]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 274]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 275]        DRAG_GS_GAS1
    Set   [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
    Set   [drag_gs_des1.f, 305]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 307]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 308]        DRAG_GS_GAS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_pg_grad.f, 50]      CALC_PG_GRAD
    Set   [calc_pg_grad.f, 83]         CALC_PG_GRAD
    Use   [calc_pg_grad.f, 84]         CALC_PG_GRAD

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [comp_mean_fields0.f, 85]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 167]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 187]   COMP_MEAN_FIELDS0

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

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 275]     DRAG_GS_GAS0
    Use Argument   [drag_gs_des0.f, 372]   DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 410]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 415]        DRAG_GS_GAS0

WEIGHT_I    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 54]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 73]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 74]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 75]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 75]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 75]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1

WEIGHT_J    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 55]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 78]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 79]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 80]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 80]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 80]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1

WEIGHT_K    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 56]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 86]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 87]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 87]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 87]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 90]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1

WEIGHTFACTOR    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [comp_mean_fields0.f, 456]   DRAG_WEIGHTFACTOR
    Declare   [comp_mean_fields0.f, 467]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 490]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 502]   DRAG_WEIGHTFACTOR

WEIGHTFACTOR    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [drag_gs_des0.f, 488]     DRAG_INTERPOLATION
    Declare   [drag_gs_des0.f, 501]    DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 526]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 527]        DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 539]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 540]        DRAG_INTERPOLATION

WenYu    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 644]          DRAG_GIDASPOW_BLEND
    Set   [drag_gs.f, 665]             DRAG_GIDASPOW_BLEND
    Use   [drag_gs.f, 671]             DRAG_GIDASPOW_BLEND

WEST_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 365]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 859]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 875]      RE_INDEX_ARRAYS

WEST_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2639]   WRITE_IJK_VALUES

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 499]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 658]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 708]        CONV_DIF_PHI_DC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_u_s.f, 425]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 671]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 738]        STORE_A_U_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_w_g.f, 488]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 753]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 827]        STORE_A_W_GDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_w_s.f, 422]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 665]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 729]        STORE_A_W_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_v_g.f, 503]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 770]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 846]        STORE_A_V_GDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_v_s.f, 423]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 672]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 739]        STORE_A_V_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_u_g.f, 503]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 771]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 854]        STORE_A_U_GDC

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 29]      CONV_DIF_PHI
    Declare   [conv_dif_phi.f, 66]     CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 91]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 92]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 98]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 100]   CONV_DIF_PHI

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 132]     CONV_DIF_PHI0
    Declare   [conv_dif_phi.f, 178]    CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 281]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 360]        CONV_DIF_PHI0

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 746]     CONV_DIF_PHI1
    Declare   [conv_dif_phi.f, 795]    CONV_DIF_PHI1
    Use Argument   [conv_dif_phi.f, 841]   CONV_DIF_PHI1

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 412]     CONV_DIF_PHI_DC
    Declare   [conv_dif_phi.f, 457]    CONV_DIF_PHI_DC
    Use Argument   [conv_dif_phi.f, 529]   CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 620]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 686]        CONV_DIF_PHI_DC

wfactor_mus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2018]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2036]          subgrid_stress_igci
    Use Argument   [calc_mu_s.f, 2110]   subgrid_stress_igci
    Use   [calc_mu_s.f, 2118]          subgrid_stress_igci

wfactor_mus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2196]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2214]          subgrid_stress_MILIOLI
    Use Argument   [calc_mu_s.f, 2275]   subgrid_stress_MILIOLI
    Use   [calc_mu_s.f, 2285]          subgrid_stress_MILIOLI

wfactor_Ps    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2018]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2035]          subgrid_stress_igci
    Use Argument   [calc_mu_s.f, 2110]   subgrid_stress_igci
    Use   [calc_mu_s.f, 2114]          subgrid_stress_igci

wfactor_Ps    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2196]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2213]          subgrid_stress_MILIOLI
    Use Argument   [calc_mu_s.f, 2275]   subgrid_stress_MILIOLI
    Use   [calc_mu_s.f, 2281]          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   [source_v_s.f, 107]       SOURCE_V_S
    Set   [source_v_s.f, 349]          SOURCE_V_S
    Use Argument   [source_v_s.f, 352]   SOURCE_V_S

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_u_s.f, 105]       SOURCE_U_S
    Set   [source_u_s.f, 345]          SOURCE_U_S
    Use Argument   [source_u_s.f, 347]   SOURCE_U_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   [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_w_s.f, 107]       SOURCE_W_S
    Set   [source_w_s.f, 333]          SOURCE_W_S
    Use   [source_w_s.f, 351]          SOURCE_W_S

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, 1298]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1360]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1373]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1426]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1440]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1495]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1508]        CG_CALC_GRBDRY

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 137]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 250]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 428]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 475]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 496]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 523]      K_Epsilon_PROP

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   [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   [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   [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   [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, 437]            CALC_THETA_BC
    Set   [bc_theta.f, 482]            CALC_THETA_BC
    Set   [bc_theta.f, 527]            CALC_THETA_BC
    Set   [bc_theta.f, 572]            CALC_THETA_BC
    Set   [bc_theta.f, 619]            CALC_THETA_BC
    Set   [bc_theta.f, 664]            CALC_THETA_BC
    Use   [bc_theta.f, 683]            CALC_THETA_BC

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2613]       init_mu_s
    Set   [calc_mu_s.f, 2844]          init_mu_s
    Use   [calc_mu_s.f, 2852]          init_mu_s
    Use   [calc_mu_s.f, 2893]          init_mu_s

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_energy_dissipation_ss.f, 344]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 380]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 384]   CALC_GTSH_ENERGY_DISSIPATION_SS

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 66]           DRAG_GS
    Set   [drag_gs.f, 144]             DRAG_GS
    Use   [drag_gs.f, 151]             DRAG_GS
    Use Argument   [drag_gs.f, 252]    DRAG_GS
    Use   [drag_gs.f, 265]             DRAG_GS

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, 1291]     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

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, 1291]     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

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 88]        SOURCE_U_G
    Set   [source_u_g.f, 314]          SOURCE_U_G
    Use   [source_u_g.f, 316]          SOURCE_U_G
    Use   [source_u_g.f, 318]          SOURCE_U_G

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_u_s.f, 105]       SOURCE_U_S
    Set   [source_u_s.f, 347]          SOURCE_U_S
    Use   [source_u_s.f, 350]          SOURCE_U_S
    Use   [source_u_s.f, 354]          SOURCE_U_S

Wge    (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, 351]          SOURCE_W_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, 107]       SOURCE_W_S
    Set   [source_w_s.f, 343]          SOURCE_W_S
    Use   [source_w_s.f, 352]          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, 107]       SOURCE_W_S
    Set   [source_w_s.f, 342]          SOURCE_W_S
    Use   [source_w_s.f, 352]          SOURCE_W_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_s.f, 107]       SOURCE_V_S
    Set   [source_v_s.f, 348]          SOURCE_V_S
    Use Argument   [source_v_s.f, 352]   SOURCE_V_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_u_s.f, 105]       SOURCE_U_S
    Set   [source_u_s.f, 346]          SOURCE_U_S
    Use Argument   [source_u_s.f, 347]   SOURCE_U_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   [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_w_s.f, 107]       SOURCE_W_S
    Set   [source_w_s.f, 334]          SOURCE_W_S
    Use   [source_w_s.f, 351]          SOURCE_W_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, 107]       SOURCE_W_S
    Set   [source_w_s.f, 339]          SOURCE_W_S
    Use   [source_w_s.f, 351]          SOURCE_W_S

WGX    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [set_ic.f, 60]            SET_IC
    Set   [set_ic.f, 85]               SET_IC
    Use   [set_ic.f, 138]              SET_IC
    Use   [set_ic.f, 138]              SET_IC

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [physical_prop.f, 163]    PHYSICAL_PROP_ROg
    Set   [physical_prop.f, 166]       PHYSICAL_PROP_ROg
    Use Argument   [physical_prop.f, 188]   PHYSICAL_PROP_ROg

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [physical_prop.f, 240]    PHYSICAL_PROP_ROs
    Set   [physical_prop.f, 247]       PHYSICAL_PROP_ROs
    Use Argument   [physical_prop.f, 266]   PHYSICAL_PROP_ROs

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_g.f, 93]           CALC_TAU_V_G
    Set   [tau_v_g.f, 327]             CALC_TAU_V_G
    Use   [tau_v_g.f, 339]             CALC_TAU_V_G
    Set   [tau_v_g.f, 347]             CALC_TAU_V_G
    Use   [tau_v_g.f, 359]             CALC_TAU_V_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_v_s.f, 93]           CALC_TAU_V_S
    Set   [tau_v_s.f, 332]             CALC_TAU_V_S
    Use   [tau_v_s.f, 341]             CALC_TAU_V_S
    Set   [tau_v_s.f, 348]             CALC_TAU_V_S
    Use   [tau_v_s.f, 357]             CALC_TAU_V_S

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 100]          CALC_TAU_U_G
    Set   [tau_u_g.f, 327]             CALC_TAU_U_G
    Use   [tau_u_g.f, 339]             CALC_TAU_U_G
    Set   [tau_u_g.f, 348]             CALC_TAU_U_G
    Use   [tau_u_g.f, 360]             CALC_TAU_U_G

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 98]           CALC_TAU_U_S
    Set   [tau_u_s.f, 345]             CALC_TAU_U_S
    Use   [tau_u_s.f, 354]             CALC_TAU_U_S
    Set   [tau_u_s.f, 361]             CALC_TAU_U_S
    Use   [tau_u_s.f, 370]             CALC_TAU_U_S

WIDTH    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_geometry.f, 141]   CHECK_GEOMETRY_DES
    Set   [check_geometry.f, 149]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 153]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 162]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 173]      CHECK_GEOMETRY_DES

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

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

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, 95]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 197]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 251]       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, 57]        WRITE_RES0
    Set   [write_res0.f, 112]          WRITE_RES0

WRAP    (Local Variable)  Declared as: INTEGER SAVE
    Define   [machine.f, 111]          WALL_TIME
    Set   [machine.f, 111]             WALL_TIME
    Set   [machine.f, 125]             WALL_TIME
    Use   [machine.f, 125]             WALL_TIME
    Use Argument   [machine.f, 130]    WALL_TIME

write_AoutBm.IJK    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 542]          write_AoutBm
    Set   [dbg_mod.f, 548]             write_AoutBm
    Use   [dbg_mod.f, 549]             write_AoutBm
    Set   [dbg_mod.f, 555]             write_AoutBm
    Use   [dbg_mod.f, 556]             write_AoutBm

write_AoutBm.lB_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [dbg_mod.f, 536]          write_AoutBm
    Declare   [dbg_mod.f, 538]         write_AoutBm
    Use   [dbg_mod.f, 552]             write_AoutBm
    Use   [dbg_mod.f, 559]             write_AoutBm

write_AoutBm.lEnd    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 541]          write_AoutBm
    Set   [dbg_mod.f, 545]             write_AoutBm
    Use   [dbg_mod.f, 548]             write_AoutBm
    Use   [dbg_mod.f, 551]             write_AoutBm
    Use   [dbg_mod.f, 555]             write_AoutBm
    Use   [dbg_mod.f, 558]             write_AoutBm

write_AoutBm.lStart    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 540]          write_AoutBm
    Set   [dbg_mod.f, 544]             write_AoutBm
    Use   [dbg_mod.f, 548]             write_AoutBm
    Use   [dbg_mod.f, 555]             write_AoutBm

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 573]          WRITE_GEOMETRY_IN_VTU_BIN
    Set   [vtk_out.f, 573]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 660]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 793]             WRITE_GEOMETRY_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 916]          WRITE_SCALAR_IN_VTU_BIN
    Set   [vtk_out.f, 916]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 938]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 989]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 1010]            WRITE_SCALAR_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1069]         WRITE_VECTOR_IN_VTU_BIN
    Set   [vtk_out.f, 1069]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1086]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1152]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1174]            WRITE_VECTOR_IN_VTU_BIN

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

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 572]          WRITE_GEOMETRY_IN_VTU_BIN
    Set   [vtk_out.f, 572]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 621]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 754]             WRITE_GEOMETRY_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 915]          WRITE_SCALAR_IN_VTU_BIN
    Set   [vtk_out.f, 915]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 924]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 974]             WRITE_SCALAR_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1068]         WRITE_VECTOR_IN_VTU_BIN
    Set   [vtk_out.f, 1068]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1075]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1140]            WRITE_VECTOR_IN_VTU_BIN

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

WRITE_RES1_DES.cDISPLS    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 58]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 233]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 233]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 133]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 195]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 562]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 667]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cGATHER    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 57]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 232]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 232]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 132]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 192]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 621]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 669]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cPROCCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 55]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 144]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 176]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 179]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 179]   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, 187]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 190]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 616]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 632]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 559]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 584]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 664]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 681]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cROOTCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 55]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 143]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 144]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 174]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 183]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 208]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 637]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 560]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 589]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 665]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 686]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cSEND    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 56]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 187]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 620]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 563]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 668]   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, 94]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 112]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 126]   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, 123]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 177]   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, 178]   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, 121]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 161]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 162]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 164]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 189]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 190]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 192]   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, 119]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 141]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 155]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 207]   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, 94]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 114]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 204]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 205]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 206]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 207]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 208]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lParCnt    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 117]   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, 117]   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, 169]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 169]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 169]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 196]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 197]   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, 94]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 113]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 205]   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, 68]   WRITE_RES1_DES.OPEN_RES_DES
    Declare   [write_res1_des_mod.f, 72]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 76]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 81]   WRITE_RES1_DES.OPEN_RES_DES

WRITE_RES1_DES.OPEN_RES_DES.lFNAME    (Local Variable)  Declared as: CHARACTER
    Define   [write_res1_des_mod.f, 73]   WRITE_RES1_DES.OPEN_RES_DES
    Set   [write_res1_des_mod.f, 76]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 77]   WRITE_RES1_DES.OPEN_RES_DES
    Set   [write_res1_des_mod.f, 81]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 82]   WRITE_RES1_DES.OPEN_RES_DES

WRITE_RES1_DES.pDISPLS    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 52]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 230]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 230]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 130]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 167]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 169]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 169]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 465]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 511]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pGATHER    (Variable)  Declared as: INTEGER ALLOCATABLE
    Define   [write_res1_des_mod.f, 51]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 229]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 229]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 129]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 164]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 169]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 406]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 513]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pPROCCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 49]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 139]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 149]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 152]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 159]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 162]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 462]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 401]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 508]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pROOTCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 49]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 138]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 139]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 148]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 152]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 206]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 463]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 477]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 481]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 402]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 426]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 431]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 509]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 527]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pSEND    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 50]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 159]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 466]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 405]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 512]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.RDES_UNIT    (Variable)  Declared as: INTEGER PARAMETER
    Define   [write_res1_des_mod.f, 46]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 46]   WRITE_RES1_DES
    Use IO   [write_res1_des_mod.f, 222]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Use IO   [write_res1_des_mod.f, 77]   WRITE_RES1_DES.OPEN_RES_DES
    Use IO   [write_res1_des_mod.f, 82]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 632]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 637]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 584]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 589]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 681]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 686]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use IO   [write_res1_des_mod.f, 293]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use IO   [write_res1_des_mod.f, 251]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use IO   [write_res1_des_mod.f, 338]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 317]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 275]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 369]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 477]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 481]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 426]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 431]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 527]   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, 603]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Declare   [write_res1_des_mod.f, 611]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 626]   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, 614]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 624]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 625]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 625]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 626]   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, 614]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 623]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 627]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 627]   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, 603]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Declare   [write_res1_des_mod.f, 610]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 632]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 637]   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, 541]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 549]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 570]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 577]   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, 554]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 569]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 569]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 570]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 575]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 576]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 576]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 577]   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, 554]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 566]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 570]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 571]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 571]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 577]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 578]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 578]   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, 552]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 556]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 557]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 567]   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, 541]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 548]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 584]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 589]   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, 541]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 550]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use Argument   [write_res1_des_mod.f, 557]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 557]   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, 652]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Declare   [write_res1_des_mod.f, 659]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use Argument   [write_res1_des_mod.f, 675]   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, 662]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 674]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 674]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 675]   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, 662]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 672]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 675]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 676]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 676]   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, 652]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Declare   [write_res1_des_mod.f, 658]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 681]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 686]   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, 287]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Declare   [write_res1_des_mod.f, 290]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 293]   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, 287]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Declare   [write_res1_des_mod.f, 289]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 293]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Set   [write_res1_des_mod.f, 295]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 295]   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, 245]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Declare   [write_res1_des_mod.f, 248]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 251]   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, 245]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Declare   [write_res1_des_mod.f, 247]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 251]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Set   [write_res1_des_mod.f, 253]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 253]   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, 333]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Set   [write_res1_des_mod.f, 335]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 338]   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, 328]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Declare   [write_res1_des_mod.f, 331]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use Argument   [write_res1_des_mod.f, 335]   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, 328]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Declare   [write_res1_des_mod.f, 330]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 338]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Set   [write_res1_des_mod.f, 340]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 340]   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, 307]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Declare   [write_res1_des_mod.f, 310]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use Argument   [write_res1_des_mod.f, 314]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 317]   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, 307]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Declare   [write_res1_des_mod.f, 309]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 317]   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, 312]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Set   [write_res1_des_mod.f, 314]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 317]   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, 265]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Declare   [write_res1_des_mod.f, 268]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use Argument   [write_res1_des_mod.f, 272]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 275]   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, 265]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Declare   [write_res1_des_mod.f, 267]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 275]   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, 270]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Set   [write_res1_des_mod.f, 272]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 275]   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, 357]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 362]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 365]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 369]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 371]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 371]   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, 352]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Declare   [write_res1_des_mod.f, 355]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 365]   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, 359]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 364]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 365]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 365]   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, 352]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Declare   [write_res1_des_mod.f, 354]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 369]   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, 359]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 362]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 364]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 369]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 447]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Declare   [write_res1_des_mod.f, 456]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 474]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use Argument   [write_res1_des_mod.f, 479]   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, 459]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 470]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 472]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 473]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 474]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 475]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 475]   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, 459]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 474]   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, 447]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Declare   [write_res1_des_mod.f, 455]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 477]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 481]   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, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 391]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 415]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 422]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 429]   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, 396]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 409]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 414]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 415]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 416]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 416]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 420]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 421]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 422]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 423]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 423]   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, 396]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 412]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 415]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 419]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 422]   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, 394]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 398]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 399]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 411]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 429]   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, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 390]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 426]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 431]   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, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 392]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 399]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 399]   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, 496]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Declare   [write_res1_des_mod.f, 503]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use Argument   [write_res1_des_mod.f, 520]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use Argument   [write_res1_des_mod.f, 525]   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, 506]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 518]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 520]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 521]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 521]   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, 506]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 517]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 520]   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, 496]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Declare   [write_res1_des_mod.f, 502]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 527]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RS0.LINE    (Dummy Argument)  Declared as: CHARACTER INTENT(IN)
    Define   [rxn_com_mod.f, 562]      WRITE_RS0
    Declare   [rxn_com_mod.f, 568]     WRITE_RS0
    Use   [rxn_com_mod.f, 574]         WRITE_RS0
    Use   [rxn_com_mod.f, 577]         WRITE_RS0

WRITE_RS0.UFLAG    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [rxn_com_mod.f, 562]      WRITE_RS0
    Declare   [rxn_com_mod.f, 569]     WRITE_RS0
    Use   [rxn_com_mod.f, 573]         WRITE_RS0
    Use IO   [rxn_com_mod.f, 577]      WRITE_RS0

write_vtp_files    (Local Variable)  Declared as: LOGICAL
    Define   [generate_particle_config.f, 43]   GENERATE_PARTICLE_CONFIG
    Set   [generate_particle_config.f, 46]   GENERATE_PARTICLE_CONFIG
    Use   [generate_particle_config.f, 66]   GENERATE_PARTICLE_CONFIG
    Use   [generate_particle_config.f, 85]   GENERATE_PARTICLE_CONFIG
    Use   [generate_particle_config.f, 89]   GENERATE_PARTICLE_CONFIG

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, 305]    writeCp
    Use   [read_database.f, 332]       writeCp
    Use   [read_database.f, 332]       writeCp
    Use   [read_database.f, 335]       writeCp
    Use   [read_database.f, 335]       writeCp
    Use   [read_database.f, 338]       writeCp
    Use   [read_database.f, 343]       writeCp
    Use   [read_database.f, 344]       writeCp
    Use   [read_database.f, 350]       writeCp
    Use   [read_database.f, 351]       writeCp
    Use   [read_database.f, 362]       writeCp
    Use   [read_database.f, 363]       writeCp
    Use   [read_database.f, 369]       writeCp
    Use   [read_database.f, 370]       writeCp

writeCp.lMW    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 305]    writeCp
    Use   [read_database.f, 350]       writeCp
    Use   [read_database.f, 351]       writeCp
    Use   [read_database.f, 369]       writeCp
    Use   [read_database.f, 370]       writeCp

writeCp.lN    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 305]    writeCp
    Use   [read_database.f, 332]       writeCp
    Use   [read_database.f, 332]       writeCp
    Use   [read_database.f, 335]       writeCp
    Use   [read_database.f, 335]       writeCp
    Use   [read_database.f, 338]       writeCp
    Use   [read_database.f, 343]       writeCp
    Use   [read_database.f, 344]       writeCp
    Use   [read_database.f, 350]       writeCp
    Use   [read_database.f, 351]       writeCp
    Use   [read_database.f, 362]       writeCp
    Use   [read_database.f, 363]       writeCp
    Use   [read_database.f, 369]       writeCp
    Use   [read_database.f, 370]       writeCp

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

writeindomain    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [generate_particle_config.f, 1252]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Declare   [generate_particle_config.f, 1272]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1293]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1295]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1359]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1361]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1376]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1379]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1389]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1392]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1413]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1416]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1426]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1429]   DBG_WRITE_PART_VTP_FILE_FROM_LIST

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, 95]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 198]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 252]       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, 102]    CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 314]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 321]       CG_SOURCE_W_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 99]        SOURCE_U_G
    Set   [source_u_g.f, 245]          SOURCE_U_G
    Use Argument   [source_u_g.f, 247]   SOURCE_U_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   [CG_source_u_g.f, 102]    CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 312]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 313]       CG_SOURCE_U_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 100]       SOURCE_W_G
    Set   [source_w_g.f, 244]          SOURCE_W_G
    Use   [source_w_g.f, 258]          SOURCE_W_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 96]        SOURCE_V_G
    Set   [source_v_g.f, 243]          SOURCE_V_G
    Use Argument   [source_v_g.f, 246]   SOURCE_V_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, 102]    CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 313]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 315]       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   [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, 1295]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1369]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1373]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1377]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1435]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1440]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1444]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1504]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1508]        CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1512]        CG_CALC_GRBDRY

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   [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   [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, 444]            CALC_THETA_BC
    Use   [bc_theta.f, 449]            CALC_THETA_BC
    Set   [bc_theta.f, 489]            CALC_THETA_BC
    Use   [bc_theta.f, 494]            CALC_THETA_BC
    Set   [bc_theta.f, 534]            CALC_THETA_BC
    Use   [bc_theta.f, 539]            CALC_THETA_BC
    Set   [bc_theta.f, 579]            CALC_THETA_BC
    Use   [bc_theta.f, 584]            CALC_THETA_BC
    Set   [bc_theta.f, 626]            CALC_THETA_BC
    Set   [bc_theta.f, 671]            CALC_THETA_BC
    Use   [bc_theta.f, 683]            CALC_THETA_BC

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2612]       init_mu_s
    Set   [calc_mu_s.f, 2848]          init_mu_s
    Use   [calc_mu_s.f, 2852]          init_mu_s
    Use   [calc_mu_s.f, 2887]          init_mu_s
    Use   [calc_mu_s.f, 2893]          init_mu_s
    Use   [calc_mu_s.f, 2893]          init_mu_s

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_energy_dissipation_ss.f, 344]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 383]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 384]   CALC_GTSH_ENERGY_DISSIPATION_SS

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 62]           DRAG_GS
    Set   [drag_gs.f, 148]             DRAG_GS
    Use   [drag_gs.f, 151]             DRAG_GS

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, 1296]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1363]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1369]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1429]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1435]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1498]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1504]   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, 1296]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1366]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1369]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1432]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1435]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1501]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1504]   CG_CALC_GRBDRY

WSCM_HYS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 64]           DRAG_GS
    Set   [drag_gs.f, 258]             DRAG_GS
    Set   [drag_gs.f, 265]             DRAG_GS
    Use   [drag_gs.f, 265]             DRAG_GS
    Set   [drag_gs.f, 270]             DRAG_GS
    Use   [drag_gs.f, 270]             DRAG_GS
    Use   [drag_gs.f, 273]             DRAG_GS

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 102]    CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 295]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 319]       CG_SOURCE_W_G

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 99]        SOURCE_U_G
    Set   [source_u_g.f, 247]          SOURCE_U_G
    Use   [source_u_g.f, 250]          SOURCE_U_G
    Use   [source_u_g.f, 252]          SOURCE_U_G

wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 94]        SOURCE_U_S
    Set   [source_u_s.f, 426]          SOURCE_U_S
    Use   [source_u_s.f, 428]          SOURCE_U_S
    Use   [source_u_s.f, 430]          SOURCE_U_S

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 100]       SOURCE_W_G
    Set   [source_w_g.f, 249]          SOURCE_W_G
    Use   [source_w_g.f, 258]          SOURCE_W_G

WSFCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_gas_drag.f, 65]    QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 127]      QMOMK_GAS_DRAG
    Use   [qmomk_gas_drag.f, 129]      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, 2610]       init_mu_s
    Set   [calc_mu_s.f, 2964]          init_mu_s
    Set   [calc_mu_s.f, 2967]          init_mu_s
    Use   [calc_mu_s.f, 3004]          init_mu_s

Wsl_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2601]       init_mu_s
    Set   [calc_mu_s.f, 2955]          init_mu_s
    Set   [calc_mu_s.f, 2993]          init_mu_s
    Use   [calc_mu_s.f, 3003]          init_mu_s

Wsl_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2605]       init_mu_s
    Set   [calc_mu_s.f, 2949]          init_mu_s
    Set   [calc_mu_s.f, 2989]          init_mu_s
    Use   [calc_mu_s.f, 3008]          init_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, 2607]       init_mu_s
    Set   [calc_mu_s.f, 2952]          init_mu_s
    Set   [calc_mu_s.f, 2991]          init_mu_s
    Use   [calc_mu_s.f, 3008]          init_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, 2603]       init_mu_s
    Set   [calc_mu_s.f, 2958]          init_mu_s
    Set   [calc_mu_s.f, 2995]          init_mu_s
    Use   [calc_mu_s.f, 3003]          init_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, 102]    CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 304]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 320]       CG_SOURCE_W_G

Wsn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 100]       SOURCE_W_G
    Set   [source_w_g.f, 254]          SOURCE_W_G
    Use   [source_w_g.f, 259]          SOURCE_W_G

Wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 102]    CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 305]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 320]       CG_SOURCE_W_G

Wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 100]       SOURCE_W_G
    Set   [source_w_g.f, 253]          SOURCE_W_G
    Use   [source_w_g.f, 259]          SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 102]    CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 313]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 321]       CG_SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 99]        SOURCE_U_G
    Set   [source_u_g.f, 246]          SOURCE_U_G
    Use Argument   [source_u_g.f, 247]   SOURCE_U_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   [CG_source_u_g.f, 102]    CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 311]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 313]       CG_SOURCE_U_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 100]       SOURCE_W_G
    Set   [source_w_g.f, 245]          SOURCE_W_G
    Use   [source_w_g.f, 258]          SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 96]        SOURCE_V_G
    Set   [source_v_g.f, 242]          SOURCE_V_G
    Use Argument   [source_v_g.f, 246]   SOURCE_V_G

Wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 102]    CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 296]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 319]       CG_SOURCE_W_G

Wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 100]       SOURCE_W_G
    Set   [source_w_g.f, 250]          SOURCE_W_G
    Use   [source_w_g.f, 258]          SOURCE_W_G

WSX    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [set_ic.f, 70]            SET_IC
    Set   [set_ic.f, 95]               SET_IC
    Use   [set_ic.f, 151]              SET_IC
    Use   [set_ic.f, 151]              SET_IC
    Use   [set_ic.f, 191]              SET_IC
    Use   [set_ic.f, 193]              SET_IC

Wt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 95]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 200]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 253]       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   [time_march.f, 367]       CHECK_BATCH_QUEUE_END
    Use Argument   [time_march.f, 381]   CHECK_BATCH_QUEUE_END
    Use   [time_march.f, 386]          CHECK_BATCH_QUEUE_END

wtp    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [generate_particle_config.f, 519]   GENERATE_PARTICLE_CONFIG_DEM
    Set   [generate_particle_config.f, 544]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 680]   GENERATE_PARTICLE_CONFIG_DEM

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

WTP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 272]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 389]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 390]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 410]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 415]        DRAG_GS_GAS0

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, 118]      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    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 95]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 195]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 250]       CG_SOURCE_W_G

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    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [leq_gmres.f, 182]        LEQ_GMRES0
    Set   [leq_gmres.f, 224]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 320]   LEQ_GMRES0
    Use   [leq_gmres.f, 323]           LEQ_GMRES0
    Set   [leq_gmres.f, 332]           LEQ_GMRES0
    Use   [leq_gmres.f, 332]           LEQ_GMRES0
    Use   [leq_gmres.f, 338]           LEQ_GMRES0
    Use   [leq_gmres.f, 338]           LEQ_GMRES0
    Use   [leq_gmres.f, 349]           LEQ_GMRES0

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 98]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 150]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 162]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 166]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 169]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 172]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 175]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 178]       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
    Use   [CG_source_w_g.f, 251]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 252]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 253]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 254]       CG_SOURCE_W_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_g.f, 104]          CALC_TAU_W_G
    Set   [tau_w_g.f, 213]             CALC_TAU_W_G
    Set   [tau_w_g.f, 219]             CALC_TAU_W_G
    Set   [tau_w_g.f, 226]             CALC_TAU_W_G
    Set   [tau_w_g.f, 232]             CALC_TAU_W_G
    Use   [tau_w_g.f, 373]             CALC_TAU_W_G

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   [tau_v_g.f, 95]           CALC_TAU_V_G
    Set   [tau_v_g.f, 206]             CALC_TAU_V_G
    Set   [tau_v_g.f, 212]             CALC_TAU_V_G
    Set   [tau_v_g.f, 219]             CALC_TAU_V_G
    Set   [tau_v_g.f, 225]             CALC_TAU_V_G
    Use   [tau_v_g.f, 339]             CALC_TAU_V_G
    Use   [tau_v_g.f, 359]             CALC_TAU_V_G
    Use   [tau_v_g.f, 367]             CALC_TAU_V_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 102]          CALC_TAU_U_G
    Set   [tau_u_g.f, 212]             CALC_TAU_U_G
    Set   [tau_u_g.f, 218]             CALC_TAU_U_G
    Set   [tau_u_g.f, 225]             CALC_TAU_U_G
    Set   [tau_u_g.f, 234]             CALC_TAU_U_G
    Use   [tau_u_g.f, 339]             CALC_TAU_U_G
    Use   [tau_u_g.f, 360]             CALC_TAU_U_G
    Use   [tau_u_g.f, 368]             CALC_TAU_U_G

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_w_s.f, 96]           CALC_TAU_W_S
    Set   [tau_w_s.f, 225]             CALC_TAU_W_S
    Set   [tau_w_s.f, 231]             CALC_TAU_W_S
    Set   [tau_w_s.f, 238]             CALC_TAU_W_S
    Set   [tau_w_s.f, 244]             CALC_TAU_W_S
    Use   [tau_w_s.f, 376]             CALC_TAU_W_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   [tau_v_s.f, 95]           CALC_TAU_V_S
    Set   [tau_v_s.f, 227]             CALC_TAU_V_S
    Set   [tau_v_s.f, 233]             CALC_TAU_V_S
    Set   [tau_v_s.f, 240]             CALC_TAU_V_S
    Set   [tau_v_s.f, 246]             CALC_TAU_V_S
    Use   [tau_v_s.f, 341]             CALC_TAU_V_S
    Use   [tau_v_s.f, 357]             CALC_TAU_V_S
    Use   [tau_v_s.f, 366]             CALC_TAU_V_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 100]          CALC_TAU_U_S
    Set   [tau_u_s.f, 241]             CALC_TAU_U_S
    Set   [tau_u_s.f, 247]             CALC_TAU_U_S
    Set   [tau_u_s.f, 254]             CALC_TAU_U_S
    Set   [tau_u_s.f, 260]             CALC_TAU_U_S
    Use   [tau_u_s.f, 354]             CALC_TAU_U_S
    Use   [tau_u_s.f, 370]             CALC_TAU_U_S
    Use   [tau_u_s.f, 379]             CALC_TAU_U_S

Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ