include file: in_use_for_config.inc 1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/scalar_indices.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.'f_ice_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'f_rain_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'f_rimef_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupt')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.'acswuptc')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.'acswdnt')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.'acswdntc')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.'acswupb')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.'acswupbc')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.'acswdnb')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.'acswdnbc')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.'aclwupt')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.'aclwuptc')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.'aclwdnt')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.'aclwdntc')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.'aclwupb')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.'aclwupbc')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.'aclwdnb')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.'aclwdnbc')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.'i_acswupt')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.'i_acswuptc')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.'i_acswdnt')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.'i_acswdntc')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.'i_acswupb')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.'i_acswupbc')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.'i_acswdnb')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.'i_acswdnbc')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.'i_aclwupt')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.'i_aclwuptc')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.'i_aclwdnt')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.'i_aclwdntc')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.'i_aclwupb')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.'i_aclwupbc')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.'i_aclwdnb')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.'i_aclwdnbc')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.'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.'lwupt')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.'lwuptc')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.'lwdnt')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.'lwdntc')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.'lwupb')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.'lwupbc')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.'lwdnb')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.'lwdnbc')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.'aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupt')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.'acswuptc')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.'acswdnt')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.'acswdntc')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.'acswupb')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.'acswupbc')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.'acswdnb')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.'acswdnbc')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.'aclwupt')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.'aclwuptc')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.'aclwdnt')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.'aclwdntc')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.'aclwupb')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.'aclwupbc')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.'aclwdnb')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.'aclwdnbc')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.'i_acswupt')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.'i_acswuptc')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.'i_acswdnt')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.'i_acswdntc')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.'i_acswupb')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.'i_acswupbc')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.'i_acswdnb')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.'i_acswdnbc')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.'i_aclwupt')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.'i_aclwuptc')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.'i_aclwdnt')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.'i_aclwdntc')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.'i_aclwupb')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.'i_aclwupbc')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.'i_aclwdnb')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.'i_aclwdnbc')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.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.'lwupt')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.'lwuptc')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.'lwdnt')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.'lwdntc')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.'lwupb')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.'lwupbc')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.'lwdnb')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.'lwdnbc')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.'acswupt')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.'acswuptc')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.'acswdnt')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.'acswdntc')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.'acswupb')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.'acswupbc')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.'acswdnb')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.'acswdnbc')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.'i_acswupt')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.'i_acswuptc')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.'i_acswdnt')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.'i_acswdntc')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.'i_acswupb')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.'i_acswupbc')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.'i_acswdnb')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.'i_acswdnbc')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.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.'tke_myj')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'tsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'qsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'trb_urb4d')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.'tw1_urb4d')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.'tw2_urb4d')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.'tgb_urb4d')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.'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.'a_u_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.'a_v_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.'a_t_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.'a_q_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.'a_e_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.'b_u_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.'b_v_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.'b_t_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.'b_q_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.'b_e_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.'dlg_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.'dl_u_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.'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.'vl_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.'trb_urb4d')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.'tw1_urb4d')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.'tw2_urb4d')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.'tgb_urb4d')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.'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.'keepfr3dflag')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.'t2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_myj')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'el_myj')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_myj')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'el_myj')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qke')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.'tsq')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.'qsq')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.'cov')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.'qke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'tsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'qsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'cov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wu_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wv_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wt_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wq_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qvten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_tten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qvtens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_ttens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qcten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'rundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rthndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rphndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rmundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psl_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ps_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psl_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ps_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tob_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'odis_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tob_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'odis_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rthndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rphndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rmundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_phb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_php')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ww')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_pb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_al')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_alt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smois')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_canwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsnav')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_qvg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_phb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_php')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ww')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_pb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_al')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_alt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smois')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_canwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsnav')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_qvg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_phb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_php')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ww')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_pb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_al')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_alt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smois')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_canwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsnav')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_qvg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'u_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.'v_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.'t_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.'rh_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.'ght_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.'p_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.'xlat_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.'xlong_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.'ht_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.'tsk_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.'tavgsfc')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.'tmn_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.'pslv_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.'greenfrac')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.'albedo12m')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.'pd_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.'psfc_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.'intq_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.'pdhs')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.'qv_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.'nfuel_cat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'zsf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tign_g')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rthfrten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvfrten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'grnhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'grnqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'canhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'canqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lfn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fuel_frac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fire_area')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'uf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgrnhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgrnqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fcanhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fcanhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fcanqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fxlong')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fxlat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fuel_time')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'bbb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'betafl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'phiwc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'r_0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgip')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ischap')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF !ENDOFREGISTRYGENERATEDINCLUDE