!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_10.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_10( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%traj_k ) ) THEN DEALLOCATE(grid%traj_k,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%traj_k. ') endif NULLIFY(grid%traj_k) ENDIF IF ( ASSOCIATED( grid%ht_gc ) ) THEN DEALLOCATE(grid%ht_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_gc. ') endif NULLIFY(grid%ht_gc) ENDIF IF ( ASSOCIATED( grid%pd_gc ) ) THEN DEALLOCATE(grid%pd_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pd_gc. ') endif NULLIFY(grid%pd_gc) ENDIF IF ( ASSOCIATED( grid%qc_gc ) ) THEN DEALLOCATE(grid%qc_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_gc. ') endif NULLIFY(grid%qc_gc) ENDIF IF ( ASSOCIATED( grid%qntemp2 ) ) THEN DEALLOCATE(grid%qntemp2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qntemp2. ') endif NULLIFY(grid%qntemp2) ENDIF IF ( ASSOCIATED( grid%ptropnn ) ) THEN DEALLOCATE(grid%ptropnn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ptropnn. ') endif NULLIFY(grid%ptropnn) ENDIF IF ( ASSOCIATED( grid%u_btxs ) ) THEN DEALLOCATE(grid%u_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_btxs. ') endif NULLIFY(grid%u_btxs) ENDIF IF ( ASSOCIATED( grid%u_btxe ) ) THEN DEALLOCATE(grid%u_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_btxe. ') endif NULLIFY(grid%u_btxe) ENDIF IF ( ASSOCIATED( grid%u_btys ) ) THEN DEALLOCATE(grid%u_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_btys. ') endif NULLIFY(grid%u_btys) ENDIF IF ( ASSOCIATED( grid%u_btye ) ) THEN DEALLOCATE(grid%u_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_btye. ') endif NULLIFY(grid%u_btye) ENDIF IF ( ASSOCIATED( grid%v_btxs ) ) THEN DEALLOCATE(grid%v_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_btxs. ') endif NULLIFY(grid%v_btxs) ENDIF IF ( ASSOCIATED( grid%v_btxe ) ) THEN DEALLOCATE(grid%v_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_btxe. ') endif NULLIFY(grid%v_btxe) ENDIF IF ( ASSOCIATED( grid%v_btys ) ) THEN DEALLOCATE(grid%v_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_btys. ') endif NULLIFY(grid%v_btys) ENDIF IF ( ASSOCIATED( grid%v_btye ) ) THEN DEALLOCATE(grid%v_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_btye. ') endif NULLIFY(grid%v_btye) ENDIF IF ( ASSOCIATED( grid%rw ) ) THEN DEALLOCATE(grid%rw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rw. ') endif NULLIFY(grid%rw) ENDIF IF ( ASSOCIATED( grid%ph_bxs ) ) THEN DEALLOCATE(grid%ph_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_bxs. ') endif NULLIFY(grid%ph_bxs) ENDIF IF ( ASSOCIATED( grid%ph_bxe ) ) THEN DEALLOCATE(grid%ph_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_bxe. ') endif NULLIFY(grid%ph_bxe) ENDIF IF ( ASSOCIATED( grid%ph_bys ) ) THEN DEALLOCATE(grid%ph_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_bys. ') endif NULLIFY(grid%ph_bys) ENDIF IF ( ASSOCIATED( grid%ph_bye ) ) THEN DEALLOCATE(grid%ph_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_bye. ') endif NULLIFY(grid%ph_bye) ENDIF IF ( ASSOCIATED( grid%t_btxs ) ) THEN DEALLOCATE(grid%t_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_btxs. ') endif NULLIFY(grid%t_btxs) ENDIF IF ( ASSOCIATED( grid%t_btxe ) ) THEN DEALLOCATE(grid%t_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_btxe. ') endif NULLIFY(grid%t_btxe) ENDIF IF ( ASSOCIATED( grid%t_btys ) ) THEN DEALLOCATE(grid%t_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_btys. ') endif NULLIFY(grid%t_btys) ENDIF IF ( ASSOCIATED( grid%t_btye ) ) THEN DEALLOCATE(grid%t_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_btye. ') endif NULLIFY(grid%t_btye) ENDIF IF ( ASSOCIATED( grid%qv_upstream_y ) ) THEN DEALLOCATE(grid%qv_upstream_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_upstream_y. ') endif NULLIFY(grid%qv_upstream_y) ENDIF IF ( ASSOCIATED( grid%v_upstream_y ) ) THEN DEALLOCATE(grid%v_upstream_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_upstream_y. ') endif NULLIFY(grid%v_upstream_y) ENDIF IF ( ASSOCIATED( grid%v_largescale ) ) THEN DEALLOCATE(grid%v_largescale,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_largescale. ') endif NULLIFY(grid%v_largescale) ENDIF IF ( ASSOCIATED( grid%tau_soil ) ) THEN DEALLOCATE(grid%tau_soil,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_soil. ') endif NULLIFY(grid%tau_soil) ENDIF IF ( ASSOCIATED( grid%mub_fine ) ) THEN DEALLOCATE(grid%mub_fine,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mub_fine. ') endif NULLIFY(grid%mub_fine) ENDIF IF ( ASSOCIATED( grid%elmin ) ) THEN DEALLOCATE(grid%elmin,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%elmin. ') endif NULLIFY(grid%elmin) ENDIF IF ( ASSOCIATED( grid%rdnw ) ) THEN DEALLOCATE(grid%rdnw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rdnw. ') endif NULLIFY(grid%rdnw) ENDIF IF ( ASSOCIATED( grid%psfc ) ) THEN DEALLOCATE(grid%psfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psfc. ') endif NULLIFY(grid%psfc) ENDIF IF ( ASSOCIATED( grid%power ) ) THEN DEALLOCATE(grid%power,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%power. ') endif NULLIFY(grid%power) ENDIF IF ( ASSOCIATED( grid%qnwfa2d ) ) THEN DEALLOCATE(grid%qnwfa2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnwfa2d. ') endif NULLIFY(grid%qnwfa2d) ENDIF IF ( ASSOCIATED( grid%re_graupel_gsfc ) ) THEN DEALLOCATE(grid%re_graupel_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_graupel_gsfc. ') endif NULLIFY(grid%re_graupel_gsfc) ENDIF IF ( ASSOCIATED( grid%soil_levels ) ) THEN DEALLOCATE(grid%soil_levels,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soil_levels. ') endif NULLIFY(grid%soil_levels) ENDIF IF ( ASSOCIATED( grid%st028100 ) ) THEN DEALLOCATE(grid%st028100,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st028100. ') endif NULLIFY(grid%st028100) ENDIF IF ( ASSOCIATED( grid%soilm300 ) ) THEN DEALLOCATE(grid%soilm300,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilm300. ') endif NULLIFY(grid%soilm300) ENDIF IF ( ASSOCIATED( grid%st000010 ) ) THEN DEALLOCATE(grid%st000010,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st000010. ') endif NULLIFY(grid%st000010) ENDIF IF ( ASSOCIATED( grid%toposlpx ) ) THEN DEALLOCATE(grid%toposlpx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%toposlpx. ') endif NULLIFY(grid%toposlpx) ENDIF IF ( ASSOCIATED( grid%soilcat ) ) THEN DEALLOCATE(grid%soilcat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcat. ') endif NULLIFY(grid%soilcat) ENDIF IF ( ASSOCIATED( grid%ts_glw ) ) THEN DEALLOCATE(grid%ts_glw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_glw. ') endif NULLIFY(grid%ts_glw) ENDIF IF ( ASSOCIATED( grid%ts_gph_profile ) ) THEN DEALLOCATE(grid%ts_gph_profile,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_gph_profile. ') endif NULLIFY(grid%ts_gph_profile) ENDIF IF ( ASSOCIATED( grid%mh_urb2d ) ) THEN DEALLOCATE(grid%mh_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mh_urb2d. ') endif NULLIFY(grid%mh_urb2d) ENDIF IF ( ASSOCIATED( grid%xicem ) ) THEN DEALLOCATE(grid%xicem,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xicem. ') endif NULLIFY(grid%xicem) ENDIF IF ( ASSOCIATED( grid%ivgtyp ) ) THEN DEALLOCATE(grid%ivgtyp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ivgtyp. ') endif NULLIFY(grid%ivgtyp) ENDIF IF ( ASSOCIATED( grid%canwat ) ) THEN DEALLOCATE(grid%canwat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%canwat. ') endif NULLIFY(grid%canwat) ENDIF IF ( ASSOCIATED( grid%voce ) ) THEN DEALLOCATE(grid%voce,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%voce. ') endif NULLIFY(grid%voce) ENDIF IF ( ASSOCIATED( grid%dfi_ww ) ) THEN DEALLOCATE(grid%dfi_ww,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_ww. ') endif NULLIFY(grid%dfi_ww) ENDIF IF ( ASSOCIATED( grid%dfi_canwat ) ) THEN DEALLOCATE(grid%dfi_canwat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_canwat. ') endif NULLIFY(grid%dfi_canwat) ENDIF IF ( ASSOCIATED( grid%xxxb_urb2d ) ) THEN DEALLOCATE(grid%xxxb_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xxxb_urb2d. ') endif NULLIFY(grid%xxxb_urb2d) ENDIF IF ( ASSOCIATED( grid%trl_urb3d ) ) THEN DEALLOCATE(grid%trl_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%trl_urb3d. ') endif NULLIFY(grid%trl_urb3d) ENDIF IF ( ASSOCIATED( grid%tw2_urb4d ) ) THEN DEALLOCATE(grid%tw2_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tw2_urb4d. ') endif NULLIFY(grid%tw2_urb4d) ENDIF IF ( ASSOCIATED( grid%lfvent_urb3d ) ) THEN DEALLOCATE(grid%lfvent_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfvent_urb3d. ') endif NULLIFY(grid%lfvent_urb3d) ENDIF IF ( ASSOCIATED( grid%tgr_urb3d ) ) THEN DEALLOCATE(grid%tgr_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgr_urb3d. ') endif NULLIFY(grid%tgr_urb3d) ENDIF IF ( ASSOCIATED( grid%chc_sfcdif ) ) THEN DEALLOCATE(grid%chc_sfcdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chc_sfcdif. ') endif NULLIFY(grid%chc_sfcdif) ENDIF IF ( ASSOCIATED( grid%snowfallac ) ) THEN DEALLOCATE(grid%snowfallac,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowfallac. ') endif NULLIFY(grid%snowfallac) ENDIF IF ( ASSOCIATED( grid%ra ) ) THEN DEALLOCATE(grid%ra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ra. ') endif NULLIFY(grid%ra) ENDIF IF ( ASSOCIATED( grid%clay_px ) ) THEN DEALLOCATE(grid%clay_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%clay_px. ') endif NULLIFY(grid%clay_px) ENDIF IF ( ASSOCIATED( grid%delta_ysu ) ) THEN DEALLOCATE(grid%delta_ysu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%delta_ysu. ') endif NULLIFY(grid%delta_ysu) ENDIF IF ( ASSOCIATED( grid%akhs ) ) THEN DEALLOCATE(grid%akhs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%akhs. ') endif NULLIFY(grid%akhs) ENDIF IF ( ASSOCIATED( grid%massflux_edkf ) ) THEN DEALLOCATE(grid%massflux_edkf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%massflux_edkf. ') endif NULLIFY(grid%massflux_edkf) ENDIF IF ( ASSOCIATED( grid%te_temf ) ) THEN DEALLOCATE(grid%te_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%te_temf. ') endif NULLIFY(grid%te_temf) ENDIF IF ( ASSOCIATED( grid%cf3d_temf ) ) THEN DEALLOCATE(grid%cf3d_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cf3d_temf. ') endif NULLIFY(grid%cf3d_temf) ENDIF IF ( ASSOCIATED( grid%tsq ) ) THEN DEALLOCATE(grid%tsq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsq. ') endif NULLIFY(grid%tsq) ENDIF IF ( ASSOCIATED( grid%sub_thl3d ) ) THEN DEALLOCATE(grid%sub_thl3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sub_thl3d. ') endif NULLIFY(grid%sub_thl3d) ENDIF IF ( ASSOCIATED( grid%dtauy3d ) ) THEN DEALLOCATE(grid%dtauy3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtauy3d. ') endif NULLIFY(grid%dtauy3d) ENDIF IF ( ASSOCIATED( grid%ol4 ) ) THEN DEALLOCATE(grid%ol4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol4. ') endif NULLIFY(grid%ol4) ENDIF IF ( ASSOCIATED( grid%dvsfcg_bl ) ) THEN DEALLOCATE(grid%dvsfcg_bl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dvsfcg_bl. ') endif NULLIFY(grid%dvsfcg_bl) ENDIF IF ( ASSOCIATED( grid%ol2ls ) ) THEN DEALLOCATE(grid%ol2ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol2ls. ') endif NULLIFY(grid%ol2ls) ENDIF IF ( ASSOCIATED( grid%ol4ss ) ) THEN DEALLOCATE(grid%ol4ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol4ss. ') endif NULLIFY(grid%ol4ss) ENDIF IF ( ASSOCIATED( grid%b_e_bep ) ) THEN DEALLOCATE(grid%b_e_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_e_bep. ') endif NULLIFY(grid%b_e_bep) ENDIF IF ( ASSOCIATED( grid%wt_tur ) ) THEN DEALLOCATE(grid%wt_tur,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wt_tur. ') endif NULLIFY(grid%wt_tur) ENDIF IF ( ASSOCIATED( grid%cfracl ) ) THEN DEALLOCATE(grid%cfracl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cfracl. ') endif NULLIFY(grid%cfracl) ENDIF IF ( ASSOCIATED( grid%aodtot ) ) THEN DEALLOCATE(grid%aodtot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aodtot. ') endif NULLIFY(grid%aodtot) ENDIF IF ( ASSOCIATED( grid%f_rimef_phy ) ) THEN DEALLOCATE(grid%f_rimef_phy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%f_rimef_phy. ') endif NULLIFY(grid%f_rimef_phy) ENDIF IF ( ASSOCIATED( grid%cupflag ) ) THEN DEALLOCATE(grid%cupflag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cupflag. ') endif NULLIFY(grid%cupflag) ENDIF IF ( ASSOCIATED( grid%cldfra_cup ) ) THEN DEALLOCATE(grid%cldfra_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra_cup. ') endif NULLIFY(grid%cldfra_cup) ENDIF IF ( ASSOCIATED( grid%fcvt_qc_to_pr_cup ) ) THEN DEALLOCATE(grid%fcvt_qc_to_pr_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fcvt_qc_to_pr_cup. ') endif NULLIFY(grid%fcvt_qc_to_pr_cup) ENDIF IF ( ASSOCIATED( grid%msftx ) ) THEN DEALLOCATE(grid%msftx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msftx. ') endif NULLIFY(grid%msftx) ENDIF IF ( ASSOCIATED( grid%ht_fine ) ) THEN DEALLOCATE(grid%ht_fine,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_fine. ') endif NULLIFY(grid%ht_fine) ENDIF IF ( ASSOCIATED( grid%tsk_save ) ) THEN DEALLOCATE(grid%tsk_save,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsk_save. ') endif NULLIFY(grid%tsk_save) ENDIF IF ( ASSOCIATED( grid%acphys_tot ) ) THEN DEALLOCATE(grid%acphys_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acphys_tot. ') endif NULLIFY(grid%acphys_tot) ENDIF IF ( ASSOCIATED( grid%tlwdn ) ) THEN DEALLOCATE(grid%tlwdn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tlwdn. ') endif NULLIFY(grid%tlwdn) ENDIF IF ( ASSOCIATED( grid%rthshten ) ) THEN DEALLOCATE(grid%rthshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthshten. ') endif NULLIFY(grid%rthshten) ENDIF IF ( ASSOCIATED( grid%cldareab ) ) THEN DEALLOCATE(grid%cldareab,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldareab. ') endif NULLIFY(grid%cldareab) ENDIF IF ( ASSOCIATED( grid%ainckfsa ) ) THEN DEALLOCATE(grid%ainckfsa,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ainckfsa. ') endif NULLIFY(grid%ainckfsa) ENDIF IF ( ASSOCIATED( grid%rqrcuten ) ) THEN DEALLOCATE(grid%rqrcuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqrcuten. ') endif NULLIFY(grid%rqrcuten) ENDIF IF ( ASSOCIATED( grid%i_rainc ) ) THEN DEALLOCATE(grid%i_rainc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_rainc. ') endif NULLIFY(grid%i_rainc) ENDIF IF ( ASSOCIATED( grid%graupelncv ) ) THEN DEALLOCATE(grid%graupelncv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%graupelncv. ') endif NULLIFY(grid%graupelncv) ENDIF IF ( ASSOCIATED( grid%rhopo3d_2 ) ) THEN DEALLOCATE(grid%rhopo3d_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rhopo3d_2. ') endif NULLIFY(grid%rhopo3d_2) ENDIF IF ( ASSOCIATED( grid%lowlyr ) ) THEN DEALLOCATE(grid%lowlyr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lowlyr. ') endif NULLIFY(grid%lowlyr) ENDIF IF ( ASSOCIATED( grid%apr_st ) ) THEN DEALLOCATE(grid%apr_st,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_st. ') endif NULLIFY(grid%apr_st) ENDIF IF ( ASSOCIATED( grid%ktop_deep ) ) THEN DEALLOCATE(grid%ktop_deep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ktop_deep. ') endif NULLIFY(grid%ktop_deep) ENDIF IF ( ASSOCIATED( grid%raincv_b ) ) THEN DEALLOCATE(grid%raincv_b,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%raincv_b. ') endif NULLIFY(grid%raincv_b) ENDIF IF ( ASSOCIATED( grid%cu_uaf ) ) THEN DEALLOCATE(grid%cu_uaf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cu_uaf. ') endif NULLIFY(grid%cu_uaf) ENDIF IF ( ASSOCIATED( grid%ccn5_gs ) ) THEN DEALLOCATE(grid%ccn5_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn5_gs. ') endif NULLIFY(grid%ccn5_gs) ENDIF IF ( ASSOCIATED( grid%rthratensw ) ) THEN DEALLOCATE(grid%rthratensw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthratensw. ') endif NULLIFY(grid%rthratensw) ENDIF IF ( ASSOCIATED( grid%gsw ) ) THEN DEALLOCATE(grid%gsw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gsw. ') endif NULLIFY(grid%gsw) ENDIF IF ( ASSOCIATED( grid%swddif2 ) ) THEN DEALLOCATE(grid%swddif2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddif2. ') endif NULLIFY(grid%swddif2) ENDIF IF ( ASSOCIATED( grid%aod5503d ) ) THEN DEALLOCATE(grid%aod5503d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aod5503d. ') endif NULLIFY(grid%aod5503d) ENDIF IF ( ASSOCIATED( grid%tq2max ) ) THEN DEALLOCATE(grid%tq2max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tq2max. ') endif NULLIFY(grid%tq2max) ENDIF IF ( ASSOCIATED( grid%tspduv10max ) ) THEN DEALLOCATE(grid%tspduv10max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tspduv10max. ') endif NULLIFY(grid%tspduv10max) ENDIF IF ( ASSOCIATED( grid%rainncvmean ) ) THEN DEALLOCATE(grid%rainncvmean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainncvmean. ') endif NULLIFY(grid%rainncvmean) ENDIF IF ( ASSOCIATED( grid%aclwupt ) ) THEN DEALLOCATE(grid%aclwupt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwupt. ') endif NULLIFY(grid%aclwupt) ENDIF IF ( ASSOCIATED( grid%i_acswupb ) ) THEN DEALLOCATE(grid%i_acswupb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswupb. ') endif NULLIFY(grid%i_acswupb) ENDIF IF ( ASSOCIATED( grid%swupt ) ) THEN DEALLOCATE(grid%swupt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupt. ') endif NULLIFY(grid%swupt) ENDIF IF ( ASSOCIATED( grid%lwupt ) ) THEN DEALLOCATE(grid%lwupt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupt. ') endif NULLIFY(grid%lwupt) ENDIF IF ( ASSOCIATED( grid%swcf ) ) THEN DEALLOCATE(grid%swcf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swcf. ') endif NULLIFY(grid%swcf) ENDIF IF ( ASSOCIATED( grid%snotime ) ) THEN DEALLOCATE(grid%snotime,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snotime. ') endif NULLIFY(grid%snotime) ENDIF IF ( ASSOCIATED( grid%fvb ) ) THEN DEALLOCATE(grid%fvb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fvb. ') endif NULLIFY(grid%fvb) ENDIF IF ( ASSOCIATED( grid%albedo_mosaic ) ) THEN DEALLOCATE(grid%albedo_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albedo_mosaic. ') endif NULLIFY(grid%albedo_mosaic) ENDIF IF ( ASSOCIATED( grid%snotime_mosaic ) ) THEN DEALLOCATE(grid%snotime_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snotime_mosaic. ') endif NULLIFY(grid%snotime_mosaic) ENDIF IF ( ASSOCIATED( grid%sh_urb2d_mosaic ) ) THEN DEALLOCATE(grid%sh_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sh_urb2d_mosaic. ') endif NULLIFY(grid%sh_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%tmn ) ) THEN DEALLOCATE(grid%tmn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tmn. ') endif NULLIFY(grid%tmn) ENDIF IF ( ASSOCIATED( grid%cd ) ) THEN DEALLOCATE(grid%cd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cd. ') endif NULLIFY(grid%cd) ENDIF IF ( ASSOCIATED( grid%lh ) ) THEN DEALLOCATE(grid%lh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh. ') endif NULLIFY(grid%lh) ENDIF IF ( ASSOCIATED( grid%dfi_soilt1 ) ) THEN DEALLOCATE(grid%dfi_soilt1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_soilt1. ') endif NULLIFY(grid%dfi_soilt1) ENDIF IF ( ASSOCIATED( grid%xkhh ) ) THEN DEALLOCATE(grid%xkhh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xkhh. ') endif NULLIFY(grid%xkhh) ENDIF IF ( ASSOCIATED( grid%rmundgdten ) ) THEN DEALLOCATE(grid%rmundgdten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rmundgdten. ') endif NULLIFY(grid%rmundgdten) ENDIF IF ( ASSOCIATED( grid%q2_ndg_new ) ) THEN DEALLOCATE(grid%q2_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2_ndg_new. ') endif NULLIFY(grid%q2_ndg_new) ENDIF IF ( ASSOCIATED( grid%sn_ndg_old ) ) THEN DEALLOCATE(grid%sn_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sn_ndg_old. ') endif NULLIFY(grid%sn_ndg_old) ENDIF IF ( ASSOCIATED( grid%dmudt ) ) THEN DEALLOCATE(grid%dmudt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dmudt. ') endif NULLIFY(grid%dmudt) ENDIF IF ( ASSOCIATED( grid%numcolpts ) ) THEN DEALLOCATE(grid%numcolpts,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%numcolpts. ') endif NULLIFY(grid%numcolpts) ENDIF IF ( ASSOCIATED( grid%hml ) ) THEN DEALLOCATE(grid%hml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hml. ') endif NULLIFY(grid%hml) ENDIF IF ( ASSOCIATED( grid%track_alt ) ) THEN DEALLOCATE(grid%track_alt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_alt. ') endif NULLIFY(grid%track_alt) ENDIF IF ( ASSOCIATED( grid%cldbasez ) ) THEN DEALLOCATE(grid%cldbasez,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldbasez. ') endif NULLIFY(grid%cldbasez) ENDIF IF ( ASSOCIATED( grid%aqvblten ) ) THEN DEALLOCATE(grid%aqvblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aqvblten. ') endif NULLIFY(grid%aqvblten) ENDIF IF ( ASSOCIATED( grid%w_xxx ) ) THEN DEALLOCATE(grid%w_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_xxx. ') endif NULLIFY(grid%w_xxx) ENDIF IF ( ASSOCIATED( grid%grnhfx ) ) THEN DEALLOCATE(grid%grnhfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grnhfx. ') endif NULLIFY(grid%grnhfx) ENDIF IF ( ASSOCIATED( grid%lfn_s0 ) ) THEN DEALLOCATE(grid%lfn_s0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_s0. ') endif NULLIFY(grid%lfn_s0) ENDIF IF ( ASSOCIATED( grid%ros ) ) THEN DEALLOCATE(grid%ros,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ros. ') endif NULLIFY(grid%ros) ENDIF IF ( ASSOCIATED( grid%q2_old ) ) THEN DEALLOCATE(grid%q2_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2_old. ') endif NULLIFY(grid%q2_old) ENDIF IF ( ASSOCIATED( grid%fs_landing_mask ) ) THEN DEALLOCATE(grid%fs_landing_mask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_landing_mask. ') endif NULLIFY(grid%fs_landing_mask) ENDIF IF ( ASSOCIATED( grid%fs_p_effd ) ) THEN DEALLOCATE(grid%fs_p_effd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_effd. ') endif NULLIFY(grid%fs_p_effd) ENDIF IF ( ASSOCIATED( grid%avgflx_efd1 ) ) THEN DEALLOCATE(grid%avgflx_efd1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_efd1. ') endif NULLIFY(grid%avgflx_efd1) ENDIF IF ( ASSOCIATED( grid%field_pbl ) ) THEN DEALLOCATE(grid%field_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%field_pbl. ') endif NULLIFY(grid%field_pbl) ENDIF IF ( ASSOCIATED( grid%spstreamforcc ) ) THEN DEALLOCATE(grid%spstreamforcc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spstreamforcc. ') endif NULLIFY(grid%spstreamforcc) ENDIF IF ( ASSOCIATED( grid%spforcc3 ) ) THEN DEALLOCATE(grid%spforcc3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcc3. ') endif NULLIFY(grid%spforcc3) ENDIF IF ( ASSOCIATED( grid%vertampt ) ) THEN DEALLOCATE(grid%vertampt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertampt. ') endif NULLIFY(grid%vertampt) ENDIF IF ( ASSOCIATED( grid%mult3d_vertstruc ) ) THEN DEALLOCATE(grid%mult3d_vertstruc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mult3d_vertstruc. ') endif NULLIFY(grid%mult3d_vertstruc) ENDIF IF ( ASSOCIATED( grid%tauresx2d ) ) THEN DEALLOCATE(grid%tauresx2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tauresx2d. ') endif NULLIFY(grid%tauresx2d) ENDIF IF ( ASSOCIATED( grid%zmdq ) ) THEN DEALLOCATE(grid%zmdq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmdq. ') endif NULLIFY(grid%zmdq) ENDIF IF ( ASSOCIATED( grid%cmfmcdzm ) ) THEN DEALLOCATE(grid%cmfmcdzm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmfmcdzm. ') endif NULLIFY(grid%cmfmcdzm) ENDIF IF ( ASSOCIATED( grid%zmvpgd ) ) THEN DEALLOCATE(grid%zmvpgd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmvpgd. ') endif NULLIFY(grid%zmvpgd) ENDIF IF ( ASSOCIATED( grid%md3d ) ) THEN DEALLOCATE(grid%md3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%md3d. ') endif NULLIFY(grid%md3d) ENDIF IF ( ASSOCIATED( grid%cush ) ) THEN DEALLOCATE(grid%cush,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cush. ') endif NULLIFY(grid%cush) ENDIF IF ( ASSOCIATED( grid%qtten_cu ) ) THEN DEALLOCATE(grid%qtten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtten_cu. ') endif NULLIFY(grid%qtten_cu) ENDIF IF ( ASSOCIATED( grid%plcl_cu ) ) THEN DEALLOCATE(grid%plcl_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%plcl_cu. ') endif NULLIFY(grid%plcl_cu) ENDIF IF ( ASSOCIATED( grid%tkeavg_cu ) ) THEN DEALLOCATE(grid%tkeavg_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tkeavg_cu. ') endif NULLIFY(grid%tkeavg_cu) ENDIF IF ( ASSOCIATED( grid%vu_cu ) ) THEN DEALLOCATE(grid%vu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vu_cu. ') endif NULLIFY(grid%vu_cu) ENDIF IF ( ASSOCIATED( grid%fdr_cu ) ) THEN DEALLOCATE(grid%fdr_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fdr_cu. ') endif NULLIFY(grid%fdr_cu) ENDIF IF ( ASSOCIATED( grid%aquad_cu ) ) THEN DEALLOCATE(grid%aquad_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aquad_cu. ') endif NULLIFY(grid%aquad_cu) ENDIF IF ( ASSOCIATED( grid%exit_wu_cu ) ) THEN DEALLOCATE(grid%exit_wu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_wu_cu. ') endif NULLIFY(grid%exit_wu_cu) ENDIF IF ( ASSOCIATED( grid%limit_rei_cu ) ) THEN DEALLOCATE(grid%limit_rei_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_rei_cu. ') endif NULLIFY(grid%limit_rei_cu) ENDIF IF ( ASSOCIATED( grid%wtp ) ) THEN DEALLOCATE(grid%wtp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wtp. ') endif NULLIFY(grid%wtp) ENDIF IF ( ASSOCIATED( grid%fsi240 ) ) THEN DEALLOCATE(grid%fsi240,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsi240. ') endif NULLIFY(grid%fsi240) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq_s4 ) ) THEN DEALLOCATE(grid%h2osoi_liq_s4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq_s4. ') endif NULLIFY(grid%h2osoi_liq_s4) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice_s1 ) ) THEN DEALLOCATE(grid%h2osoi_ice_s1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice_s1. ') endif NULLIFY(grid%h2osoi_ice_s1) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice8 ) ) THEN DEALLOCATE(grid%h2osoi_ice8,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice8. ') endif NULLIFY(grid%h2osoi_ice8) ENDIF IF ( ASSOCIATED( grid%t_soisno5 ) ) THEN DEALLOCATE(grid%t_soisno5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno5. ') endif NULLIFY(grid%t_soisno5) ENDIF IF ( ASSOCIATED( grid%snowrds2 ) ) THEN DEALLOCATE(grid%snowrds2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowrds2. ') endif NULLIFY(grid%snowrds2) ENDIF IF ( ASSOCIATED( grid%t_lake9 ) ) THEN DEALLOCATE(grid%t_lake9,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake9. ') endif NULLIFY(grid%t_lake9) ENDIF IF ( ASSOCIATED( grid%albedosubgrid ) ) THEN DEALLOCATE(grid%albedosubgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albedosubgrid. ') endif NULLIFY(grid%albedosubgrid) ENDIF IF ( ASSOCIATED( grid%snowdp2d ) ) THEN DEALLOCATE(grid%snowdp2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowdp2d. ') endif NULLIFY(grid%snowdp2d) ENDIF IF ( ASSOCIATED( grid%z3d ) ) THEN DEALLOCATE(grid%z3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z3d. ') endif NULLIFY(grid%z3d) ENDIF IF ( ASSOCIATED( grid%ssib_egi ) ) THEN DEALLOCATE(grid%ssib_egi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_egi. ') endif NULLIFY(grid%ssib_egi) ENDIF IF ( ASSOCIATED( grid%ssib_veg ) ) THEN DEALLOCATE(grid%ssib_veg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_veg. ') endif NULLIFY(grid%ssib_veg) ENDIF IF ( ASSOCIATED( grid%cto1 ) ) THEN DEALLOCATE(grid%cto1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cto1. ') endif NULLIFY(grid%cto1) ENDIF IF ( ASSOCIATED( grid%cto2 ) ) THEN DEALLOCATE(grid%cto2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cto2. ') endif NULLIFY(grid%cto2) ENDIF IF ( ASSOCIATED( grid%cto3 ) ) THEN DEALLOCATE(grid%cto3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cto3. ') endif NULLIFY(grid%cto3) ENDIF IF ( ASSOCIATED( grid%cto4 ) ) THEN DEALLOCATE(grid%cto4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cto4. ') endif NULLIFY(grid%cto4) ENDIF IF ( ASSOCIATED( grid%tahxy ) ) THEN DEALLOCATE(grid%tahxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tahxy. ') endif NULLIFY(grid%tahxy) ENDIF IF ( ASSOCIATED( grid%tsnoxy ) ) THEN DEALLOCATE(grid%tsnoxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsnoxy. ') endif NULLIFY(grid%tsnoxy) ENDIF IF ( ASSOCIATED( grid%t2mvxy ) ) THEN DEALLOCATE(grid%t2mvxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2mvxy. ') endif NULLIFY(grid%t2mvxy) ENDIF IF ( ASSOCIATED( grid%ecanxy ) ) THEN DEALLOCATE(grid%ecanxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ecanxy. ') endif NULLIFY(grid%ecanxy) ENDIF IF ( ASSOCIATED( grid%wgapxy ) ) THEN DEALLOCATE(grid%wgapxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wgapxy. ') endif NULLIFY(grid%wgapxy) ENDIF IF ( ASSOCIATED( grid%irgxy ) ) THEN DEALLOCATE(grid%irgxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irgxy. ') endif NULLIFY(grid%irgxy) ENDIF IF ( ASSOCIATED( grid%rechxy ) ) THEN DEALLOCATE(grid%rechxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rechxy. ') endif NULLIFY(grid%rechxy) ENDIF IF ( ASSOCIATED( grid%pexpxy ) ) THEN DEALLOCATE(grid%pexpxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pexpxy. ') endif NULLIFY(grid%pexpxy) ENDIF IF ( ASSOCIATED( grid%qsnsubxy ) ) THEN DEALLOCATE(grid%qsnsubxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsnsubxy. ') endif NULLIFY(grid%qsnsubxy) ENDIF IF ( ASSOCIATED( grid%pahgxy ) ) THEN DEALLOCATE(grid%pahgxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pahgxy. ') endif NULLIFY(grid%pahgxy) ENDIF IF ( ASSOCIATED( grid%acints ) ) THEN DEALLOCATE(grid%acints,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acints. ') endif NULLIFY(grid%acints) ENDIF IF ( ASSOCIATED( grid%acrunsb ) ) THEN DEALLOCATE(grid%acrunsb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acrunsb. ') endif NULLIFY(grid%acrunsb) ENDIF IF ( ASSOCIATED( grid%acmeltc ) ) THEN DEALLOCATE(grid%acmeltc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acmeltc. ') endif NULLIFY(grid%acmeltc) ENDIF IF ( ASSOCIATED( grid%acevb ) ) THEN DEALLOCATE(grid%acevb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acevb. ') endif NULLIFY(grid%acevb) ENDIF IF ( ASSOCIATED( grid%acevc ) ) THEN DEALLOCATE(grid%acevc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acevc. ') endif NULLIFY(grid%acevc) ENDIF IF ( ASSOCIATED( grid%soilenergy ) ) THEN DEALLOCATE(grid%soilenergy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilenergy. ') endif NULLIFY(grid%soilenergy) ENDIF IF ( ASSOCIATED( grid%acc_edirxy ) ) THEN DEALLOCATE(grid%acc_edirxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_edirxy. ') endif NULLIFY(grid%acc_edirxy) ENDIF IF ( ASSOCIATED( grid%irfract ) ) THEN DEALLOCATE(grid%irfract,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irfract. ') endif NULLIFY(grid%irfract) ENDIF IF ( ASSOCIATED( grid%irfivol ) ) THEN DEALLOCATE(grid%irfivol,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irfivol. ') endif NULLIFY(grid%irfivol) ENDIF IF ( ASSOCIATED( grid%kext_ft_qip ) ) THEN DEALLOCATE(grid%kext_ft_qip,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_ft_qip. ') endif NULLIFY(grid%kext_ft_qip) ENDIF IF ( ASSOCIATED( grid%refd_com ) ) THEN DEALLOCATE(grid%refd_com,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%refd_com. ') endif NULLIFY(grid%refd_com) ENDIF IF ( ASSOCIATED( grid%icing_lg ) ) THEN DEALLOCATE(grid%icing_lg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icing_lg. ') endif NULLIFY(grid%icing_lg) ENDIF IF ( ASSOCIATED( grid%afwa_llturbsvr ) ) THEN DEALLOCATE(grid%afwa_llturbsvr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_llturbsvr. ') endif NULLIFY(grid%afwa_llturbsvr) ENDIF IF ( ASSOCIATED( grid%afwa_cloud_ceil ) ) THEN DEALLOCATE(grid%afwa_cloud_ceil,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_cloud_ceil. ') endif NULLIFY(grid%afwa_cloud_ceil) ENDIF IF ( ASSOCIATED( grid%afwa_llws ) ) THEN DEALLOCATE(grid%afwa_llws,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_llws. ') endif NULLIFY(grid%afwa_llws) ENDIF IF ( ASSOCIATED( grid%swdnb_mean ) ) THEN DEALLOCATE(grid%swdnb_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnb_mean. ') endif NULLIFY(grid%swdnb_mean) ENDIF IF ( ASSOCIATED( grid%t2_diurn ) ) THEN DEALLOCATE(grid%t2_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2_diurn. ') endif NULLIFY(grid%t2_diurn) ENDIF IF ( ASSOCIATED( grid%swdnt_diurn ) ) THEN DEALLOCATE(grid%swdnt_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnt_diurn. ') endif NULLIFY(grid%swdnt_diurn) ENDIF IF ( ASSOCIATED( grid%hfx_dtmp ) ) THEN DEALLOCATE(grid%hfx_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfx_dtmp. ') endif NULLIFY(grid%hfx_dtmp) ENDIF IF ( ASSOCIATED( grid%induc ) ) THEN DEALLOCATE(grid%induc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%induc. ') endif NULLIFY(grid%induc) ENDIF IF ( ASSOCIATED( grid%flshn ) ) THEN DEALLOCATE(grid%flshn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flshn. ') endif NULLIFY(grid%flshn) ENDIF IF ( ASSOCIATED( grid%field_v_tend_perturb ) ) THEN DEALLOCATE(grid%field_v_tend_perturb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%field_v_tend_perturb. ') endif NULLIFY(grid%field_v_tend_perturb) ENDIF IF ( ASSOCIATED( grid%pcb ) ) THEN DEALLOCATE(grid%pcb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pcb. ') endif NULLIFY(grid%pcb) ENDIF IF ( ASSOCIATED( grid%p_wif_now ) ) THEN DEALLOCATE(grid%p_wif_now,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_now. ') endif NULLIFY(grid%p_wif_now) ENDIF IF ( ASSOCIATED( grid%p_wif_dec ) ) THEN DEALLOCATE(grid%p_wif_dec,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_dec. ') endif NULLIFY(grid%p_wif_dec) ENDIF IF ( ASSOCIATED( grid%w_wif_nov ) ) THEN DEALLOCATE(grid%w_wif_nov,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_nov. ') endif NULLIFY(grid%w_wif_nov) ENDIF IF ( ASSOCIATED( grid%i_wif_oct ) ) THEN DEALLOCATE(grid%i_wif_oct,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_oct. ') endif NULLIFY(grid%i_wif_oct) ENDIF IF ( ASSOCIATED( grid%b_wif_sep ) ) THEN DEALLOCATE(grid%b_wif_sep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_sep. ') endif NULLIFY(grid%b_wif_sep) ENDIF IF ( ASSOCIATED( grid%dir ) ) THEN DEALLOCATE(grid%dir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dir. ') endif NULLIFY(grid%dir) ENDIF IF ( ASSOCIATED( grid%iwp ) ) THEN DEALLOCATE(grid%iwp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iwp. ') endif NULLIFY(grid%iwp) ENDIF IF ( ASSOCIATED( grid%tau_qi ) ) THEN DEALLOCATE(grid%tau_qi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_qi. ') endif NULLIFY(grid%tau_qi) ENDIF IF ( ASSOCIATED( grid%ts_wvp ) ) THEN DEALLOCATE(grid%ts_wvp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_wvp. ') endif NULLIFY(grid%ts_wvp) ENDIF IF ( ASSOCIATED( grid%ts_re_qi_tot ) ) THEN DEALLOCATE(grid%ts_re_qi_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_re_qi_tot. ') endif NULLIFY(grid%ts_re_qi_tot) ENDIF IF ( ASSOCIATED( grid%ts_ghi_accum ) ) THEN DEALLOCATE(grid%ts_ghi_accum,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_ghi_accum. ') endif NULLIFY(grid%ts_ghi_accum) ENDIF IF ( ASSOCIATED( grid%ght_pl ) ) THEN DEALLOCATE(grid%ght_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ght_pl. ') endif NULLIFY(grid%ght_pl) ENDIF IF ( ASSOCIATED( grid%v_zl ) ) THEN DEALLOCATE(grid%v_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_zl. ') endif NULLIFY(grid%v_zl) ENDIF IF ( ASSOCIATED( grid%w_iau ) ) THEN DEALLOCATE(grid%w_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_iau. ') endif NULLIFY(grid%w_iau) ENDIF IF ( ASSOCIATED( grid%rthiauten ) ) THEN DEALLOCATE(grid%rthiauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthiauten. ') endif NULLIFY(grid%rthiauten) ENDIF END SUBROUTINE deallocs_10 !ENDOFREGISTRYGENERATEDINCLUDE