!STARTOFREGISTRYGENERATEDINCLUDE 'inc/in_use_for_config_s.inc' ! ! WARNING This file is generated automatically by use_registry ! using the data base in the file named Registry. ! Do not edit. Your changes to this file will be lost. ! IF(TRIM(vname).EQ.'smaw3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'shfrc3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'ssat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nssl_ssat_output.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nssl_ssat_output.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ssat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nssl_ssat_output.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nssl_ssat_output.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ssati')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nssl_ssat_output.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nssl_ssat_output.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'slwdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'slwup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'sswdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sswup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfg_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'stdh_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'smr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfg_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_ac_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfvent_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfwin1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfwin2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfg_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfrv_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'smcrel')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'snowfallac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sabv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sabg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowdp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sabvsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sabgsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'swupsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sneqvoxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'snicexy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'snliqxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'stmassxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'stblcpxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'savxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'sagxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'shgxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'shcxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'shbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'smoiseq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'smcwtdxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'stepwtd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'season_gdd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'soilcomp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'soilcl1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'soilcl2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'soilcl3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'soilcl4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'sifract')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'snowlsm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'soilenergy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'snowenergy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_fm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_fh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_cm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssibxdd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_br')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_lhf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_shf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_ghf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_egs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_eci')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_ect')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_egi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_egt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_sdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_sup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_ldn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_lup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_wat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_shc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_shg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_lai')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_vcf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_z00')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_veg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'swe')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'snowden')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'snowdepth')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'smois_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh2o_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snow_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowh_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowc_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snotime_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'smcrel')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sm3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'smaw3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'shf_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'sub_thl3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_output(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_output(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sub_sqv3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_output(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_output(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'shfrc3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'slflx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'slten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'snowsh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sda_hfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sda_qfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swdown2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%swint_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%swint_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swddni2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%swint_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%swint_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swddif2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%swint_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%swint_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swddir2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%swint_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%swint_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swdownc2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%swint_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%swint_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'swddnic2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%swint_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%swint_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'soil_depth_force')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snow_acc_nc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%prec_acc_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%prec_acc_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempmin')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempmean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempstd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spduv10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spduv10mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spduv10std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowsi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%seaice_snowdepth_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%seaice_snowdepth_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soldrain')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wrf_hydro.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wrf_hydro.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfcheadrt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wrf_hydro.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wrf_hydro.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptcln')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%calc_clean_atm_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%calc_clean_atm_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntcln')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%calc_clean_atm_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%calc_clean_atm_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbcln')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%calc_clean_atm_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%calc_clean_atm_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbcln')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%calc_clean_atm_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%calc_clean_atm_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spptforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spptforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sppt_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spstreamforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spstreamforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sptforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sptforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spstream_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spt_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%multi_perturb(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%multi_perturb(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%multi_perturb(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%multi_perturb(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%multi_perturb(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%multi_perturb(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'stepsp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%multi_perturb(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%multi_perturb(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'savedtke12d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowdp2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snl2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sctot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sctot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sctot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sealevelp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diag_nwp2.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diag_nwp2.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'speed')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diag_nwp2.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diag_nwp2.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%solar_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%solar_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sza')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%solar_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%solar_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'s_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'s_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sct_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'scb_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soil_layers')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soil_levels')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm000007')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm007028')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm028100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm100255')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st000007')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st007028')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st028100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st100255')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm000010')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm010040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm040100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm100200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm010200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm000')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm005')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm020')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm160')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm300')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw000010')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw010040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw040100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw100200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw010200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw000')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw005')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw020')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw160')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw300')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st000010')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st010040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st040100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st100200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st010200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt000')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt005')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt020')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt160')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt300')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sct_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'scb_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF !ENDOFREGISTRYGENERATEDINCLUDE