!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_7.F' ! ! 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. ! SUBROUTINE deallocs_7( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%dzs ) ) THEN DEALLOCATE(grid%dzs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzs. ') endif NULLIFY(grid%dzs) ENDIF IF ( ASSOCIATED( grid%prho_gc ) ) THEN DEALLOCATE(grid%prho_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%prho_gc. ') endif NULLIFY(grid%prho_gc) ENDIF IF ( ASSOCIATED( grid%greenfrac ) ) THEN DEALLOCATE(grid%greenfrac,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%greenfrac. ') endif NULLIFY(grid%greenfrac) ENDIF IF ( ASSOCIATED( grid%icefrac_gc ) ) THEN DEALLOCATE(grid%icefrac_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icefrac_gc. ') endif NULLIFY(grid%icefrac_gc) ENDIF IF ( ASSOCIATED( grid%qng_gc ) ) THEN DEALLOCATE(grid%qng_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qng_gc. ') endif NULLIFY(grid%qng_gc) ENDIF IF ( ASSOCIATED( grid%pmaxw ) ) THEN DEALLOCATE(grid%pmaxw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pmaxw. ') endif NULLIFY(grid%pmaxw) ENDIF IF ( ASSOCIATED( grid%u_g_tend ) ) THEN DEALLOCATE(grid%u_g_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_g_tend. ') endif NULLIFY(grid%u_g_tend) ENDIF IF ( ASSOCIATED( grid%w_bxs ) ) THEN DEALLOCATE(grid%w_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_bxs. ') endif NULLIFY(grid%w_bxs) ENDIF IF ( ASSOCIATED( grid%w_bxe ) ) THEN DEALLOCATE(grid%w_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_bxe. ') endif NULLIFY(grid%w_bxe) ENDIF IF ( ASSOCIATED( grid%w_bys ) ) THEN DEALLOCATE(grid%w_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_bys. ') endif NULLIFY(grid%w_bys) ENDIF IF ( ASSOCIATED( grid%w_bye ) ) THEN DEALLOCATE(grid%w_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_bye. ') endif NULLIFY(grid%w_bye) ENDIF IF ( ASSOCIATED( grid%w_subs ) ) THEN DEALLOCATE(grid%w_subs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_subs. ') endif NULLIFY(grid%w_subs) ENDIF IF ( ASSOCIATED( grid%th_phy_m_t0 ) ) THEN DEALLOCATE(grid%th_phy_m_t0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_phy_m_t0. ') endif NULLIFY(grid%th_phy_m_t0) ENDIF IF ( ASSOCIATED( grid%th_upstream_y_tend ) ) THEN DEALLOCATE(grid%th_upstream_y_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_upstream_y_tend. ') endif NULLIFY(grid%th_upstream_y_tend) ENDIF IF ( ASSOCIATED( grid%u_upstream_y_tend ) ) THEN DEALLOCATE(grid%u_upstream_y_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_upstream_y_tend. ') endif NULLIFY(grid%u_upstream_y_tend) ENDIF IF ( ASSOCIATED( grid%ql_largescale_tend ) ) THEN DEALLOCATE(grid%ql_largescale_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ql_largescale_tend. ') endif NULLIFY(grid%ql_largescale_tend) ENDIF IF ( ASSOCIATED( grid%t_soil_forcing_tend ) ) THEN DEALLOCATE(grid%t_soil_forcing_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soil_forcing_tend. ') endif NULLIFY(grid%t_soil_forcing_tend) ENDIF IF ( ASSOCIATED( grid%mu_bxs ) ) THEN DEALLOCATE(grid%mu_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_bxs. ') endif NULLIFY(grid%mu_bxs) ENDIF IF ( ASSOCIATED( grid%mu_bxe ) ) THEN DEALLOCATE(grid%mu_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_bxe. ') endif NULLIFY(grid%mu_bxe) ENDIF IF ( ASSOCIATED( grid%mu_bys ) ) THEN DEALLOCATE(grid%mu_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_bys. ') endif NULLIFY(grid%mu_bys) ENDIF IF ( ASSOCIATED( grid%mu_bye ) ) THEN DEALLOCATE(grid%mu_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_bye. ') endif NULLIFY(grid%mu_bye) ENDIF IF ( ASSOCIATED( grid%muts ) ) THEN DEALLOCATE(grid%muts,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%muts. ') endif NULLIFY(grid%muts) ENDIF IF ( ASSOCIATED( grid%gamv ) ) THEN DEALLOCATE(grid%gamv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gamv. ') endif NULLIFY(grid%gamv) ENDIF IF ( ASSOCIATED( grid%rdzw ) ) THEN DEALLOCATE(grid%rdzw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rdzw. ') endif NULLIFY(grid%rdzw) ENDIF IF ( ASSOCIATED( grid%q2 ) ) THEN DEALLOCATE(grid%q2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2. ') endif NULLIFY(grid%q2) ENDIF IF ( ASSOCIATED( grid%imask_xstag ) ) THEN DEALLOCATE(grid%imask_xstag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%imask_xstag. ') endif NULLIFY(grid%imask_xstag) ENDIF IF ( ASSOCIATED( grid%dfi_moist_btxs ) ) THEN DEALLOCATE(grid%dfi_moist_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_btxs. ') endif NULLIFY(grid%dfi_moist_btxs) ENDIF IF ( ASSOCIATED( grid%dfi_moist_btxe ) ) THEN DEALLOCATE(grid%dfi_moist_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_btxe. ') endif NULLIFY(grid%dfi_moist_btxe) ENDIF IF ( ASSOCIATED( grid%dfi_moist_btys ) ) THEN DEALLOCATE(grid%dfi_moist_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_btys. ') endif NULLIFY(grid%dfi_moist_btys) ENDIF IF ( ASSOCIATED( grid%dfi_moist_btye ) ) THEN DEALLOCATE(grid%dfi_moist_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_btye. ') endif NULLIFY(grid%dfi_moist_btye) ENDIF IF ( ASSOCIATED( grid%re_rain_gsfc ) ) THEN DEALLOCATE(grid%re_rain_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_rain_gsfc. ') endif NULLIFY(grid%re_rain_gsfc) ENDIF IF ( ASSOCIATED( grid%dfi_re_graupel_gsfc ) ) THEN DEALLOCATE(grid%dfi_re_graupel_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_graupel_gsfc. ') endif NULLIFY(grid%dfi_re_graupel_gsfc) ENDIF IF ( ASSOCIATED( grid%gcx ) ) THEN DEALLOCATE(grid%gcx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gcx. ') endif NULLIFY(grid%gcx) ENDIF IF ( ASSOCIATED( grid%sm100255 ) ) THEN DEALLOCATE(grid%sm100255,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm100255. ') endif NULLIFY(grid%sm100255) ENDIF IF ( ASSOCIATED( grid%soilm020 ) ) THEN DEALLOCATE(grid%soilm020,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilm020. ') endif NULLIFY(grid%soilm020) ENDIF IF ( ASSOCIATED( grid%soilw040 ) ) THEN DEALLOCATE(grid%soilw040,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilw040. ') endif NULLIFY(grid%soilw040) ENDIF IF ( ASSOCIATED( grid%soilt160 ) ) THEN DEALLOCATE(grid%soilt160,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt160. ') endif NULLIFY(grid%soilt160) ENDIF IF ( ASSOCIATED( grid%landusef ) ) THEN DEALLOCATE(grid%landusef,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%landusef. ') endif NULLIFY(grid%landusef) ENDIF IF ( ASSOCIATED( grid%ts_q ) ) THEN DEALLOCATE(grid%ts_q,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_q. ') endif NULLIFY(grid%ts_q) ENDIF IF ( ASSOCIATED( grid%ts_u_profile ) ) THEN DEALLOCATE(grid%ts_u_profile,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_u_profile. ') endif NULLIFY(grid%ts_u_profile) ENDIF IF ( ASSOCIATED( grid%hi_urb2d ) ) THEN DEALLOCATE(grid%hi_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hi_urb2d. ') endif NULLIFY(grid%hi_urb2d) ENDIF IF ( ASSOCIATED( grid%smcrel ) ) THEN DEALLOCATE(grid%smcrel,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smcrel. ') endif NULLIFY(grid%smcrel) ENDIF IF ( ASSOCIATED( grid%zwatble2d ) ) THEN DEALLOCATE(grid%zwatble2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zwatble2d. ') endif NULLIFY(grid%zwatble2d) ENDIF IF ( ASSOCIATED( grid%acsnom ) ) THEN DEALLOCATE(grid%acsnom,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsnom. ') endif NULLIFY(grid%acsnom) ENDIF IF ( ASSOCIATED( grid%water_depth ) ) THEN DEALLOCATE(grid%water_depth,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%water_depth. ') endif NULLIFY(grid%water_depth) ENDIF IF ( ASSOCIATED( grid%dfi_u ) ) THEN DEALLOCATE(grid%dfi_u,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_u. ') endif NULLIFY(grid%dfi_u) ENDIF IF ( ASSOCIATED( grid%dfi_smois ) ) THEN DEALLOCATE(grid%dfi_smois,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_smois. ') endif NULLIFY(grid%dfi_smois) ENDIF IF ( ASSOCIATED( grid%qc_urb2d ) ) THEN DEALLOCATE(grid%qc_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_urb2d. ') endif NULLIFY(grid%qc_urb2d) ENDIF IF ( ASSOCIATED( grid%flxhumg_urb2d ) ) THEN DEALLOCATE(grid%flxhumg_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flxhumg_urb2d. ') endif NULLIFY(grid%flxhumg_urb2d) ENDIF IF ( ASSOCIATED( grid%utype_urb2d ) ) THEN DEALLOCATE(grid%utype_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%utype_urb2d. ') endif NULLIFY(grid%utype_urb2d) ENDIF IF ( ASSOCIATED( grid%lf_ac_urb3d ) ) THEN DEALLOCATE(grid%lf_ac_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lf_ac_urb3d. ') endif NULLIFY(grid%lf_ac_urb3d) ENDIF IF ( ASSOCIATED( grid%trv_urb4d ) ) THEN DEALLOCATE(grid%trv_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%trv_urb4d. ') endif NULLIFY(grid%trv_urb4d) ENDIF IF ( ASSOCIATED( grid%cmr_sfcdif ) ) THEN DEALLOCATE(grid%cmr_sfcdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmr_sfcdif. ') endif NULLIFY(grid%cmr_sfcdif) ENDIF IF ( ASSOCIATED( grid%alswvisdif ) ) THEN DEALLOCATE(grid%alswvisdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%alswvisdif. ') endif NULLIFY(grid%alswvisdif) ENDIF IF ( ASSOCIATED( grid%wwlt_px ) ) THEN DEALLOCATE(grid%wwlt_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wwlt_px. ') endif NULLIFY(grid%wwlt_px) ENDIF IF ( ASSOCIATED( grid%br ) ) THEN DEALLOCATE(grid%br,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%br. ') endif NULLIFY(grid%br) ENDIF IF ( ASSOCIATED( grid%uz0 ) ) THEN DEALLOCATE(grid%uz0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uz0. ') endif NULLIFY(grid%uz0) ENDIF IF ( ASSOCIATED( grid%th10 ) ) THEN DEALLOCATE(grid%th10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th10. ') endif NULLIFY(grid%th10) ENDIF IF ( ASSOCIATED( grid%v_up ) ) THEN DEALLOCATE(grid%v_up,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_up. ') endif NULLIFY(grid%v_up) ENDIF IF ( ASSOCIATED( grid%thup_temf ) ) THEN DEALLOCATE(grid%thup_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thup_temf. ') endif NULLIFY(grid%thup_temf) ENDIF IF ( ASSOCIATED( grid%qdiss ) ) THEN DEALLOCATE(grid%qdiss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qdiss. ') endif NULLIFY(grid%qdiss) ENDIF IF ( ASSOCIATED( grid%edmf_qt ) ) THEN DEALLOCATE(grid%edmf_qt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edmf_qt. ') endif NULLIFY(grid%edmf_qt) ENDIF IF ( ASSOCIATED( grid%vdfg ) ) THEN DEALLOCATE(grid%vdfg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vdfg. ') endif NULLIFY(grid%vdfg) ENDIF IF ( ASSOCIATED( grid%ol1 ) ) THEN DEALLOCATE(grid%ol1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol1. ') endif NULLIFY(grid%ol1) ENDIF IF ( ASSOCIATED( grid%dusfcg_ls ) ) THEN DEALLOCATE(grid%dusfcg_ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dusfcg_ls. ') endif NULLIFY(grid%dusfcg_ls) ENDIF IF ( ASSOCIATED( grid%oa3ls ) ) THEN DEALLOCATE(grid%oa3ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa3ls. ') endif NULLIFY(grid%oa3ls) ENDIF IF ( ASSOCIATED( grid%ol1ss ) ) THEN DEALLOCATE(grid%ol1ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol1ss. ') endif NULLIFY(grid%ol1ss) ENDIF IF ( ASSOCIATED( grid%b_v_bep ) ) THEN DEALLOCATE(grid%b_v_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_v_bep. ') endif NULLIFY(grid%b_v_bep) ENDIF IF ( ASSOCIATED( grid%pr_pbl ) ) THEN DEALLOCATE(grid%pr_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pr_pbl. ') endif NULLIFY(grid%pr_pbl) ENDIF IF ( ASSOCIATED( grid%rswtoa ) ) THEN DEALLOCATE(grid%rswtoa,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rswtoa. ') endif NULLIFY(grid%rswtoa) ENDIF IF ( ASSOCIATED( grid%aerodm ) ) THEN DEALLOCATE(grid%aerodm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerodm. ') endif NULLIFY(grid%aerodm) ENDIF IF ( ASSOCIATED( grid%m_hybi ) ) THEN DEALLOCATE(grid%m_hybi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%m_hybi. ') endif NULLIFY(grid%m_hybi) ENDIF IF ( ASSOCIATED( grid%om_ml ) ) THEN DEALLOCATE(grid%om_ml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_ml. ') endif NULLIFY(grid%om_ml) ENDIF IF ( ASSOCIATED( grid%wcloudbase ) ) THEN DEALLOCATE(grid%wcloudbase,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wcloudbase. ') endif NULLIFY(grid%wcloudbase) ENDIF IF ( ASSOCIATED( grid%mfup_ent_cup ) ) THEN DEALLOCATE(grid%mfup_ent_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mfup_ent_cup. ') endif NULLIFY(grid%mfup_ent_cup) ENDIF IF ( ASSOCIATED( grid%msft ) ) THEN DEALLOCATE(grid%msft,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msft. ') endif NULLIFY(grid%msft) ENDIF IF ( ASSOCIATED( grid%sina ) ) THEN DEALLOCATE(grid%sina,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sina. ') endif NULLIFY(grid%sina) ENDIF IF ( ASSOCIATED( grid%physs ) ) THEN DEALLOCATE(grid%physs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%physs. ') endif NULLIFY(grid%physs) ENDIF IF ( ASSOCIATED( grid%precg3d ) ) THEN DEALLOCATE(grid%precg3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%precg3d. ') endif NULLIFY(grid%precg3d) ENDIF IF ( ASSOCIATED( grid%ctop2d_out ) ) THEN DEALLOCATE(grid%ctop2d_out,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ctop2d_out. ') endif NULLIFY(grid%ctop2d_out) ENDIF IF ( ASSOCIATED( grid%rdcashten ) ) THEN DEALLOCATE(grid%rdcashten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rdcashten. ') endif NULLIFY(grid%rdcashten) ENDIF IF ( ASSOCIATED( grid%rainshvb ) ) THEN DEALLOCATE(grid%rainshvb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainshvb. ') endif NULLIFY(grid%rainshvb) ENDIF IF ( ASSOCIATED( grid%rvcuten ) ) THEN DEALLOCATE(grid%rvcuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rvcuten. ') endif NULLIFY(grid%rvcuten) ENDIF IF ( ASSOCIATED( grid%rainc ) ) THEN DEALLOCATE(grid%rainc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainc. ') endif NULLIFY(grid%rainc) ENDIF IF ( ASSOCIATED( grid%graupelnc ) ) THEN DEALLOCATE(grid%graupelnc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%graupelnc. ') endif NULLIFY(grid%graupelnc) ENDIF IF ( ASSOCIATED( grid%phii3d ) ) THEN DEALLOCATE(grid%phii3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%phii3d. ') endif NULLIFY(grid%phii3d) ENDIF IF ( ASSOCIATED( grid%ssat ) ) THEN DEALLOCATE(grid%ssat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssat. ') endif NULLIFY(grid%ssat) ENDIF IF ( ASSOCIATED( grid%apr_gr ) ) THEN DEALLOCATE(grid%apr_gr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_gr. ') endif NULLIFY(grid%apr_gr) ENDIF IF ( ASSOCIATED( grid%ktop_shallow ) ) THEN DEALLOCATE(grid%ktop_shallow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ktop_shallow. ') endif NULLIFY(grid%ktop_shallow) ENDIF IF ( ASSOCIATED( grid%gd_cloud2 ) ) THEN DEALLOCATE(grid%gd_cloud2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gd_cloud2. ') endif NULLIFY(grid%gd_cloud2) ENDIF IF ( ASSOCIATED( grid%nr_cu ) ) THEN DEALLOCATE(grid%nr_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nr_cu. ') endif NULLIFY(grid%nr_cu) ENDIF IF ( ASSOCIATED( grid%ccn2_gs ) ) THEN DEALLOCATE(grid%ccn2_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn2_gs. ') endif NULLIFY(grid%ccn2_gs) ENDIF IF ( ASSOCIATED( grid%rthraten ) ) THEN DEALLOCATE(grid%rthraten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthraten. ') endif NULLIFY(grid%rthraten) ENDIF IF ( ASSOCIATED( grid%swdown2 ) ) THEN DEALLOCATE(grid%swdown2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdown2. ') endif NULLIFY(grid%swdown2) ENDIF IF ( ASSOCIATED( grid%swddnic ) ) THEN DEALLOCATE(grid%swddnic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddnic. ') endif NULLIFY(grid%swddnic) ENDIF IF ( ASSOCIATED( grid%angexp2d ) ) THEN DEALLOCATE(grid%angexp2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%angexp2d. ') endif NULLIFY(grid%angexp2d) ENDIF IF ( ASSOCIATED( grid%q2min ) ) THEN DEALLOCATE(grid%q2min,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2min. ') endif NULLIFY(grid%q2min) ENDIF IF ( ASSOCIATED( grid%u10max ) ) THEN DEALLOCATE(grid%u10max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10max. ') endif NULLIFY(grid%u10max) ENDIF IF ( ASSOCIATED( grid%traincvmax ) ) THEN DEALLOCATE(grid%traincvmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%traincvmax. ') endif NULLIFY(grid%traincvmax) ENDIF IF ( ASSOCIATED( grid%acswupbc ) ) THEN DEALLOCATE(grid%acswupbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswupbc. ') endif NULLIFY(grid%acswupbc) ENDIF IF ( ASSOCIATED( grid%i_acswuptc ) ) THEN DEALLOCATE(grid%i_acswuptc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswuptc. ') endif NULLIFY(grid%i_acswuptc) ENDIF IF ( ASSOCIATED( grid%i_aclwupbc ) ) THEN DEALLOCATE(grid%i_aclwupbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwupbc. ') endif NULLIFY(grid%i_aclwupbc) ENDIF IF ( ASSOCIATED( grid%swdnb ) ) THEN DEALLOCATE(grid%swdnb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnb. ') endif NULLIFY(grid%swdnb) ENDIF IF ( ASSOCIATED( grid%lwdnb ) ) THEN DEALLOCATE(grid%lwdnb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdnb. ') endif NULLIFY(grid%lwdnb) ENDIF IF ( ASSOCIATED( grid%albbck ) ) THEN DEALLOCATE(grid%albbck,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albbck. ') endif NULLIFY(grid%albbck) ENDIF IF ( ASSOCIATED( grid%rqiblten ) ) THEN DEALLOCATE(grid%rqiblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqiblten. ') endif NULLIFY(grid%rqiblten) ENDIF IF ( ASSOCIATED( grid%snow_mosaic ) ) THEN DEALLOCATE(grid%snow_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snow_mosaic. ') endif NULLIFY(grid%snow_mosaic) ENDIF IF ( ASSOCIATED( grid%qfx_mosaic ) ) THEN DEALLOCATE(grid%qfx_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qfx_mosaic. ') endif NULLIFY(grid%qfx_mosaic) ENDIF IF ( ASSOCIATED( grid%trl_urb3d_mosaic ) ) THEN DEALLOCATE(grid%trl_urb3d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%trl_urb3d_mosaic. ') endif NULLIFY(grid%trl_urb3d_mosaic) ENDIF IF ( ASSOCIATED( grid%znt ) ) THEN DEALLOCATE(grid%znt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%znt. ') endif NULLIFY(grid%znt) ENDIF IF ( ASSOCIATED( grid%thc ) ) THEN DEALLOCATE(grid%thc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thc. ') endif NULLIFY(grid%thc) ENDIF IF ( ASSOCIATED( grid%qcg ) ) THEN DEALLOCATE(grid%qcg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qcg. ') endif NULLIFY(grid%qcg) ENDIF IF ( ASSOCIATED( grid%potevp ) ) THEN DEALLOCATE(grid%potevp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%potevp. ') endif NULLIFY(grid%potevp) ENDIF IF ( ASSOCIATED( grid%xkmv ) ) THEN DEALLOCATE(grid%xkmv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xkmv. ') endif NULLIFY(grid%xkmv) ENDIF IF ( ASSOCIATED( grid%rthndgdten ) ) THEN DEALLOCATE(grid%rthndgdten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthndgdten. ') endif NULLIFY(grid%rthndgdten) ENDIF IF ( ASSOCIATED( grid%th2_ndg_old ) ) THEN DEALLOCATE(grid%th2_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th2_ndg_old. ') endif NULLIFY(grid%th2_ndg_old) ENDIF IF ( ASSOCIATED( grid%tob_ndg_new ) ) THEN DEALLOCATE(grid%tob_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tob_ndg_new. ') endif NULLIFY(grid%tob_ndg_new) ENDIF IF ( ASSOCIATED( grid%absnxt ) ) THEN DEALLOCATE(grid%absnxt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%absnxt. ') endif NULLIFY(grid%absnxt) ENDIF IF ( ASSOCIATED( grid%grpl_max ) ) THEN DEALLOCATE(grid%grpl_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grpl_max. ') endif NULLIFY(grid%grpl_max) ENDIF IF ( ASSOCIATED( grid%advz_t ) ) THEN DEALLOCATE(grid%advz_t,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%advz_t. ') endif NULLIFY(grid%advz_t) ENDIF IF ( ASSOCIATED( grid%track_v ) ) THEN DEALLOCATE(grid%track_v,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_v. ') endif NULLIFY(grid%track_v) ENDIF IF ( ASSOCIATED( grid%brtemp ) ) THEN DEALLOCATE(grid%brtemp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%brtemp. ') endif NULLIFY(grid%brtemp) ENDIF IF ( ASSOCIATED( grid%aushten ) ) THEN DEALLOCATE(grid%aushten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aushten. ') endif NULLIFY(grid%aushten) ENDIF IF ( ASSOCIATED( grid%hailcast_wup_mask ) ) THEN DEALLOCATE(grid%hailcast_wup_mask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_wup_mask. ') endif NULLIFY(grid%hailcast_wup_mask) ENDIF IF ( ASSOCIATED( grid%ru_xxx ) ) THEN DEALLOCATE(grid%ru_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ru_xxx. ') endif NULLIFY(grid%ru_xxx) ENDIF IF ( ASSOCIATED( grid%dif_xxx ) ) THEN DEALLOCATE(grid%dif_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dif_xxx. ') endif NULLIFY(grid%dif_xxx) ENDIF IF ( ASSOCIATED( grid%rthfrten ) ) THEN DEALLOCATE(grid%rthfrten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthfrten. ') endif NULLIFY(grid%rthfrten) ENDIF IF ( ASSOCIATED( grid%lfn_0 ) ) THEN DEALLOCATE(grid%lfn_0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_0. ') endif NULLIFY(grid%lfn_0) ENDIF IF ( ASSOCIATED( grid%fgrnqfx ) ) THEN DEALLOCATE(grid%fgrnqfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fgrnqfx. ') endif NULLIFY(grid%fgrnqfx) ENDIF IF ( ASSOCIATED( grid%fmc_lag ) ) THEN DEALLOCATE(grid%fmc_lag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fmc_lag. ') endif NULLIFY(grid%fmc_lag) ENDIF IF ( ASSOCIATED( grid%ischap ) ) THEN DEALLOCATE(grid%ischap,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ischap. ') endif NULLIFY(grid%ischap) ENDIF IF ( ASSOCIATED( grid%tracer_btxs ) ) THEN DEALLOCATE(grid%tracer_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_btxs. ') endif NULLIFY(grid%tracer_btxs) ENDIF IF ( ASSOCIATED( grid%tracer_btxe ) ) THEN DEALLOCATE(grid%tracer_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_btxe. ') endif NULLIFY(grid%tracer_btxe) ENDIF IF ( ASSOCIATED( grid%tracer_btys ) ) THEN DEALLOCATE(grid%tracer_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_btys. ') endif NULLIFY(grid%tracer_btys) ENDIF IF ( ASSOCIATED( grid%tracer_btye ) ) THEN DEALLOCATE(grid%tracer_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_btye. ') endif NULLIFY(grid%tracer_btye) ENDIF IF ( ASSOCIATED( grid%fs_fuel_spotting_risk ) ) THEN DEALLOCATE(grid%fs_fuel_spotting_risk,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_fuel_spotting_risk. ') endif NULLIFY(grid%fs_fuel_spotting_risk) ENDIF IF ( ASSOCIATED( grid%fs_p_z ) ) THEN DEALLOCATE(grid%fs_p_z,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_z. ') endif NULLIFY(grid%fs_p_z) ENDIF IF ( ASSOCIATED( grid%avgflx_dfu1 ) ) THEN DEALLOCATE(grid%avgflx_dfu1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_dfu1. ') endif NULLIFY(grid%avgflx_dfu1) ENDIF IF ( ASSOCIATED( grid%vertstrucc ) ) THEN DEALLOCATE(grid%vertstrucc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertstrucc. ') endif NULLIFY(grid%vertstrucc) ENDIF IF ( ASSOCIATED( grid%rstoch ) ) THEN DEALLOCATE(grid%rstoch,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rstoch. ') endif NULLIFY(grid%rstoch) ENDIF IF ( ASSOCIATED( grid%spforcc2 ) ) THEN DEALLOCATE(grid%spforcc2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcc2. ') endif NULLIFY(grid%spforcc2) ENDIF IF ( ASSOCIATED( grid%spptforcc ) ) THEN DEALLOCATE(grid%spptforcc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spptforcc. ') endif NULLIFY(grid%spptforcc) ENDIF IF ( ASSOCIATED( grid%rand_real_yyy ) ) THEN DEALLOCATE(grid%rand_real_yyy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rand_real_yyy. ') endif NULLIFY(grid%rand_real_yyy) ENDIF IF ( ASSOCIATED( grid%stddev_cutoff_mult3d ) ) THEN DEALLOCATE(grid%stddev_cutoff_mult3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%stddev_cutoff_mult3d. ') endif NULLIFY(grid%stddev_cutoff_mult3d) ENDIF IF ( ASSOCIATED( grid%pert3d ) ) THEN DEALLOCATE(grid%pert3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pert3d. ') endif NULLIFY(grid%pert3d) ENDIF IF ( ASSOCIATED( grid%nba_rij ) ) THEN DEALLOCATE(grid%nba_rij,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nba_rij. ') endif NULLIFY(grid%nba_rij) ENDIF IF ( ASSOCIATED( grid%dlf ) ) THEN DEALLOCATE(grid%dlf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dlf. ') endif NULLIFY(grid%dlf) ENDIF IF ( ASSOCIATED( grid%zmntprpd ) ) THEN DEALLOCATE(grid%zmntprpd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmntprpd. ') endif NULLIFY(grid%zmntprpd) ENDIF IF ( ASSOCIATED( grid%zmupgu ) ) THEN DEALLOCATE(grid%zmupgu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmupgu. ') endif NULLIFY(grid%zmupgu) ENDIF IF ( ASSOCIATED( grid%du3d ) ) THEN DEALLOCATE(grid%du3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%du3d. ') endif NULLIFY(grid%du3d) ENDIF IF ( ASSOCIATED( grid%cmfmc ) ) THEN DEALLOCATE(grid%cmfmc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmfmc. ') endif NULLIFY(grid%cmfmc) ENDIF IF ( ASSOCIATED( grid%slflx_cu ) ) THEN DEALLOCATE(grid%slflx_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%slflx_cu. ') endif NULLIFY(grid%slflx_cu) ENDIF IF ( ASSOCIATED( grid%ufrclcl_cu ) ) THEN DEALLOCATE(grid%ufrclcl_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ufrclcl_cu. ') endif NULLIFY(grid%ufrclcl_cu) ENDIF IF ( ASSOCIATED( grid%cin_cu ) ) THEN DEALLOCATE(grid%cin_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cin_cu. ') endif NULLIFY(grid%cin_cu) ENDIF IF ( ASSOCIATED( grid%thlu_cu ) ) THEN DEALLOCATE(grid%thlu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thlu_cu. ') endif NULLIFY(grid%thlu_cu) ENDIF IF ( ASSOCIATED( grid%qiu_cu ) ) THEN DEALLOCATE(grid%qiu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qiu_cu. ') endif NULLIFY(grid%qiu_cu) ENDIF IF ( ASSOCIATED( grid%excessu_cu ) ) THEN DEALLOCATE(grid%excessu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%excessu_cu. ') endif NULLIFY(grid%excessu_cu) ENDIF IF ( ASSOCIATED( grid%exit_ufrc_cu ) ) THEN DEALLOCATE(grid%exit_ufrc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_ufrc_cu. ') endif NULLIFY(grid%exit_ufrc_cu) ENDIF IF ( ASSOCIATED( grid%limit_cinlcl_cu ) ) THEN DEALLOCATE(grid%limit_cinlcl_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_cinlcl_cu. ') endif NULLIFY(grid%limit_cinlcl_cu) ENDIF IF ( ASSOCIATED( grid%cldfra_conv ) ) THEN DEALLOCATE(grid%cldfra_conv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra_conv. ') endif NULLIFY(grid%cldfra_conv) ENDIF IF ( ASSOCIATED( grid%snl ) ) THEN DEALLOCATE(grid%snl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snl. ') endif NULLIFY(grid%snl) ENDIF IF ( ASSOCIATED( grid%fsd24 ) ) THEN DEALLOCATE(grid%fsd24,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsd24. ') endif NULLIFY(grid%fsd24) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq_s1 ) ) THEN DEALLOCATE(grid%h2osoi_liq_s1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq_s1. ') endif NULLIFY(grid%h2osoi_liq_s1) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq8 ) ) THEN DEALLOCATE(grid%h2osoi_liq8,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq8. ') endif NULLIFY(grid%h2osoi_liq8) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice5 ) ) THEN DEALLOCATE(grid%h2osoi_ice5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice5. ') endif NULLIFY(grid%h2osoi_ice5) ENDIF IF ( ASSOCIATED( grid%t_soisno2 ) ) THEN DEALLOCATE(grid%t_soisno2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno2. ') endif NULLIFY(grid%t_soisno2) ENDIF IF ( ASSOCIATED( grid%dzsnow4 ) ) THEN DEALLOCATE(grid%dzsnow4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzsnow4. ') endif NULLIFY(grid%dzsnow4) ENDIF IF ( ASSOCIATED( grid%t_lake6 ) ) THEN DEALLOCATE(grid%t_lake6,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake6. ') endif NULLIFY(grid%t_lake6) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol8 ) ) THEN DEALLOCATE(grid%h2osoi_vol8,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol8. ') endif NULLIFY(grid%h2osoi_vol8) ENDIF IF ( ASSOCIATED( grid%lake2d ) ) THEN DEALLOCATE(grid%lake2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lake2d. ') endif NULLIFY(grid%lake2d) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice3d ) ) THEN DEALLOCATE(grid%h2osoi_ice3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice3d. ') endif NULLIFY(grid%h2osoi_ice3d) ENDIF IF ( ASSOCIATED( grid%ssib_egs ) ) THEN DEALLOCATE(grid%ssib_egs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_egs. ') endif NULLIFY(grid%ssib_egs) ENDIF IF ( ASSOCIATED( grid%ssib_lai ) ) THEN DEALLOCATE(grid%ssib_lai,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_lai. ') endif NULLIFY(grid%ssib_lai) ENDIF IF ( ASSOCIATED( grid%tssno1 ) ) THEN DEALLOCATE(grid%tssno1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssno1. ') endif NULLIFY(grid%tssno1) ENDIF IF ( ASSOCIATED( grid%tssno2 ) ) THEN DEALLOCATE(grid%tssno2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssno2. ') endif NULLIFY(grid%tssno2) ENDIF IF ( ASSOCIATED( grid%tssno3 ) ) THEN DEALLOCATE(grid%tssno3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssno3. ') endif NULLIFY(grid%tssno3) ENDIF IF ( ASSOCIATED( grid%tssno4 ) ) THEN DEALLOCATE(grid%tssno4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssno4. ') endif NULLIFY(grid%tssno4) ENDIF IF ( ASSOCIATED( grid%canicexy ) ) THEN DEALLOCATE(grid%canicexy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%canicexy. ') endif NULLIFY(grid%canicexy) ENDIF IF ( ASSOCIATED( grid%zwtxy ) ) THEN DEALLOCATE(grid%zwtxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zwtxy. ') endif NULLIFY(grid%zwtxy) ENDIF IF ( ASSOCIATED( grid%fastcpxy ) ) THEN DEALLOCATE(grid%fastcpxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fastcpxy. ') endif NULLIFY(grid%fastcpxy) ENDIF IF ( ASSOCIATED( grid%qinxy ) ) THEN DEALLOCATE(grid%qinxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qinxy. ') endif NULLIFY(grid%qinxy) ENDIF IF ( ASSOCIATED( grid%rssunxy ) ) THEN DEALLOCATE(grid%rssunxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rssunxy. ') endif NULLIFY(grid%rssunxy) ENDIF IF ( ASSOCIATED( grid%evbxy ) ) THEN DEALLOCATE(grid%evbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%evbxy. ') endif NULLIFY(grid%evbxy) ENDIF IF ( ASSOCIATED( grid%chstarxy ) ) THEN DEALLOCATE(grid%chstarxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chstarxy. ') endif NULLIFY(grid%chstarxy) ENDIF IF ( ASSOCIATED( grid%qslatxy ) ) THEN DEALLOCATE(grid%qslatxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qslatxy. ') endif NULLIFY(grid%qslatxy) ENDIF IF ( ASSOCIATED( grid%qdriprxy ) ) THEN DEALLOCATE(grid%qdriprxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qdriprxy. ') endif NULLIFY(grid%qdriprxy) ENDIF IF ( ASSOCIATED( grid%qmeltxy ) ) THEN DEALLOCATE(grid%qmeltxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qmeltxy. ') endif NULLIFY(grid%qmeltxy) ENDIF IF ( ASSOCIATED( grid%soilcl2 ) ) THEN DEALLOCATE(grid%soilcl2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcl2. ') endif NULLIFY(grid%soilcl2) ENDIF IF ( ASSOCIATED( grid%forczlsm ) ) THEN DEALLOCATE(grid%forczlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%forczlsm. ') endif NULLIFY(grid%forczlsm) ENDIF IF ( ASSOCIATED( grid%acsubc ) ) THEN DEALLOCATE(grid%acsubc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsubc. ') endif NULLIFY(grid%acsubc) ENDIF IF ( ASSOCIATED( grid%acsagb ) ) THEN DEALLOCATE(grid%acsagb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsagb. ') endif NULLIFY(grid%acsagb) ENDIF IF ( ASSOCIATED( grid%acsav ) ) THEN DEALLOCATE(grid%acsav,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsav. ') endif NULLIFY(grid%acsav) ENDIF IF ( ASSOCIATED( grid%acghflsm ) ) THEN DEALLOCATE(grid%acghflsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acghflsm. ') endif NULLIFY(grid%acghflsm) ENDIF IF ( ASSOCIATED( grid%acc_prcpxy ) ) THEN DEALLOCATE(grid%acc_prcpxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_prcpxy. ') endif NULLIFY(grid%acc_prcpxy) ENDIF IF ( ASSOCIATED( grid%gecros_state ) ) THEN DEALLOCATE(grid%gecros_state,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gecros_state. ') endif NULLIFY(grid%gecros_state) ENDIF IF ( ASSOCIATED( grid%irwatfi ) ) THEN DEALLOCATE(grid%irwatfi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irwatfi. ') endif NULLIFY(grid%irwatfi) ENDIF IF ( ASSOCIATED( grid%kext_qh ) ) THEN DEALLOCATE(grid%kext_qh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_qh. ') endif NULLIFY(grid%kext_qh) ENDIF IF ( ASSOCIATED( grid%qicing_sm ) ) THEN DEALLOCATE(grid%qicing_sm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qicing_sm. ') endif NULLIFY(grid%qicing_sm) ENDIF IF ( ASSOCIATED( grid%afwa_llturb ) ) THEN DEALLOCATE(grid%afwa_llturb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_llturb. ') endif NULLIFY(grid%afwa_llturb) ENDIF IF ( ASSOCIATED( grid%afwa_vis_alpha ) ) THEN DEALLOCATE(grid%afwa_vis_alpha,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_vis_alpha. ') endif NULLIFY(grid%afwa_vis_alpha) ENDIF IF ( ASSOCIATED( grid%midrh_min ) ) THEN DEALLOCATE(grid%midrh_min,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%midrh_min. ') endif NULLIFY(grid%midrh_min) ENDIF IF ( ASSOCIATED( grid%v10_mean ) ) THEN DEALLOCATE(grid%v10_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10_mean. ') endif NULLIFY(grid%v10_mean) ENDIF IF ( ASSOCIATED( grid%lwupb_diurn ) ) THEN DEALLOCATE(grid%lwupb_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupb_diurn. ') endif NULLIFY(grid%lwupb_diurn) ENDIF IF ( ASSOCIATED( grid%q2_dtmp ) ) THEN DEALLOCATE(grid%q2_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2_dtmp. ') endif NULLIFY(grid%q2_dtmp) ENDIF IF ( ASSOCIATED( grid%lwdnt_dtmp ) ) THEN DEALLOCATE(grid%lwdnt_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdnt_dtmp. ') endif NULLIFY(grid%lwdnt_dtmp) ENDIF IF ( ASSOCIATED( grid%lightdens ) ) THEN DEALLOCATE(grid%lightdens,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lightdens. ') endif NULLIFY(grid%lightdens) ENDIF IF ( ASSOCIATED( grid%c4h ) ) THEN DEALLOCATE(grid%c4h,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c4h. ') endif NULLIFY(grid%c4h) ENDIF IF ( ASSOCIATED( grid%qnifa_gc ) ) THEN DEALLOCATE(grid%qnifa_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnifa_gc. ') endif NULLIFY(grid%qnifa_gc) ENDIF IF ( ASSOCIATED( grid%p_wif_sep ) ) THEN DEALLOCATE(grid%p_wif_sep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_sep. ') endif NULLIFY(grid%p_wif_sep) ENDIF IF ( ASSOCIATED( grid%w_wif_aug ) ) THEN DEALLOCATE(grid%w_wif_aug,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_aug. ') endif NULLIFY(grid%w_wif_aug) ENDIF IF ( ASSOCIATED( grid%i_wif_jul ) ) THEN DEALLOCATE(grid%i_wif_jul,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_jul. ') endif NULLIFY(grid%i_wif_jul) ENDIF IF ( ASSOCIATED( grid%b_wif_jun ) ) THEN DEALLOCATE(grid%b_wif_jun,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_jun. ') endif NULLIFY(grid%b_wif_jun) ENDIF IF ( ASSOCIATED( grid%umet ) ) THEN DEALLOCATE(grid%umet,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%umet. ') endif NULLIFY(grid%umet) ENDIF IF ( ASSOCIATED( grid%cldfrac2d ) ) THEN DEALLOCATE(grid%cldfrac2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfrac2d. ') endif NULLIFY(grid%cldfrac2d) ENDIF IF ( ASSOCIATED( grid%re_qc_tot ) ) THEN DEALLOCATE(grid%re_qc_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_qc_tot. ') endif NULLIFY(grid%re_qc_tot) ENDIF IF ( ASSOCIATED( grid%sza ) ) THEN DEALLOCATE(grid%sza,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sza. ') endif NULLIFY(grid%sza) ENDIF IF ( ASSOCIATED( grid%ts_re_qi ) ) THEN DEALLOCATE(grid%ts_re_qi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_re_qi. ') endif NULLIFY(grid%ts_re_qi) ENDIF IF ( ASSOCIATED( grid%ts_ctopht_tot ) ) THEN DEALLOCATE(grid%ts_ctopht_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_ctopht_tot. ') endif NULLIFY(grid%ts_ctopht_tot) ENDIF IF ( ASSOCIATED( grid%ts_swdownc2 ) ) THEN DEALLOCATE(grid%ts_swdownc2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swdownc2. ') endif NULLIFY(grid%ts_swdownc2) ENDIF IF ( ASSOCIATED( grid%v_pl ) ) THEN DEALLOCATE(grid%v_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_pl. ') endif NULLIFY(grid%v_pl) ENDIF IF ( ASSOCIATED( grid%mu_iau ) ) THEN DEALLOCATE(grid%mu_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_iau. ') endif NULLIFY(grid%mu_iau) ENDIF IF ( ASSOCIATED( grid%qg_iau ) ) THEN DEALLOCATE(grid%qg_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qg_iau. ') endif NULLIFY(grid%qg_iau) ENDIF IF ( ASSOCIATED( grid%chem ) ) THEN DEALLOCATE(grid%chem,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chem. ') endif NULLIFY(grid%chem) ENDIF END SUBROUTINE deallocs_7 !ENDOFREGISTRYGENERATEDINCLUDE