!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_5.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_5( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%znw ) ) THEN DEALLOCATE(grid%znw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%znw. ') endif NULLIFY(grid%znw) ENDIF IF ( ASSOCIATED( grid%ght_gc ) ) THEN DEALLOCATE(grid%ght_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ght_gc. ') endif NULLIFY(grid%ght_gc) ENDIF IF ( ASSOCIATED( grid%sct_dom_gc ) ) THEN DEALLOCATE(grid%sct_dom_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sct_dom_gc. ') endif NULLIFY(grid%sct_dom_gc) ENDIF IF ( ASSOCIATED( grid%cl_gc ) ) THEN DEALLOCATE(grid%cl_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cl_gc. ') endif NULLIFY(grid%cl_gc) ENDIF IF ( ASSOCIATED( grid%qnr_gc ) ) THEN DEALLOCATE(grid%qnr_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnr_gc. ') endif NULLIFY(grid%qnr_gc) ENDIF IF ( ASSOCIATED( grid%hgtmaxw ) ) THEN DEALLOCATE(grid%hgtmaxw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hgtmaxw. ') endif NULLIFY(grid%hgtmaxw) ENDIF IF ( ASSOCIATED( grid%erod ) ) THEN DEALLOCATE(grid%erod,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%erod. ') endif NULLIFY(grid%erod) ENDIF IF ( ASSOCIATED( grid%z_force_tend ) ) THEN DEALLOCATE(grid%z_force_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z_force_tend. ') endif NULLIFY(grid%z_force_tend) ENDIF IF ( ASSOCIATED( grid%v_g_tend ) ) THEN DEALLOCATE(grid%v_g_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_g_tend. ') endif NULLIFY(grid%v_g_tend) ENDIF IF ( ASSOCIATED( grid%th_upstream_x_tend ) ) THEN DEALLOCATE(grid%th_upstream_x_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_upstream_x_tend. ') endif NULLIFY(grid%th_upstream_x_tend) ENDIF IF ( ASSOCIATED( grid%u_upstream_x_tend ) ) THEN DEALLOCATE(grid%u_upstream_x_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_upstream_x_tend. ') endif NULLIFY(grid%u_upstream_x_tend) ENDIF IF ( ASSOCIATED( grid%qv_largescale_tend ) ) THEN DEALLOCATE(grid%qv_largescale_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_largescale_tend. ') endif NULLIFY(grid%qv_largescale_tend) ENDIF IF ( ASSOCIATED( grid%tau_y_tend ) ) THEN DEALLOCATE(grid%tau_y_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_y_tend. ') endif NULLIFY(grid%tau_y_tend) ENDIF IF ( ASSOCIATED( grid%muvs ) ) THEN DEALLOCATE(grid%muvs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%muvs. ') endif NULLIFY(grid%muvs) ENDIF IF ( ASSOCIATED( grid%nlflux ) ) THEN DEALLOCATE(grid%nlflux,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nlflux. ') endif NULLIFY(grid%nlflux) ENDIF IF ( ASSOCIATED( grid%zy ) ) THEN DEALLOCATE(grid%zy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zy. ') endif NULLIFY(grid%zy) ENDIF IF ( ASSOCIATED( grid%p_hyd ) ) THEN DEALLOCATE(grid%p_hyd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_hyd. ') endif NULLIFY(grid%p_hyd) ENDIF IF ( ASSOCIATED( grid%obs_savwt ) ) THEN DEALLOCATE(grid%obs_savwt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%obs_savwt. ') endif NULLIFY(grid%obs_savwt) ENDIF IF ( ASSOCIATED( grid%dfi_moist ) ) THEN DEALLOCATE(grid%dfi_moist,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist. ') endif NULLIFY(grid%dfi_moist) ENDIF IF ( ASSOCIATED( grid%re_snow ) ) THEN DEALLOCATE(grid%re_snow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_snow. ') endif NULLIFY(grid%re_snow) ENDIF IF ( ASSOCIATED( grid%dfi_re_ice_gsfc ) ) THEN DEALLOCATE(grid%dfi_re_ice_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_ice_gsfc. ') endif NULLIFY(grid%dfi_re_ice_gsfc) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_btxs ) ) THEN DEALLOCATE(grid%dfi_scalar_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_btxs. ') endif NULLIFY(grid%dfi_scalar_btxs) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_btxe ) ) THEN DEALLOCATE(grid%dfi_scalar_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_btxe. ') endif NULLIFY(grid%dfi_scalar_btxe) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_btys ) ) THEN DEALLOCATE(grid%dfi_scalar_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_btys. ') endif NULLIFY(grid%dfi_scalar_btys) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_btye ) ) THEN DEALLOCATE(grid%dfi_scalar_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_btye. ') endif NULLIFY(grid%dfi_scalar_btye) ENDIF IF ( ASSOCIATED( grid%sm007028 ) ) THEN DEALLOCATE(grid%sm007028,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm007028. ') endif NULLIFY(grid%sm007028) ENDIF IF ( ASSOCIATED( grid%soilm000 ) ) THEN DEALLOCATE(grid%soilm000,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilm000. ') endif NULLIFY(grid%soilm000) ENDIF IF ( ASSOCIATED( grid%soilw005 ) ) THEN DEALLOCATE(grid%soilw005,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilw005. ') endif NULLIFY(grid%soilw005) ENDIF IF ( ASSOCIATED( grid%soilt020 ) ) THEN DEALLOCATE(grid%soilt020,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt020. ') endif NULLIFY(grid%soilt020) ENDIF IF ( ASSOCIATED( grid%snoalb ) ) THEN DEALLOCATE(grid%snoalb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snoalb. ') endif NULLIFY(grid%snoalb) ENDIF IF ( ASSOCIATED( grid%ts_u ) ) THEN DEALLOCATE(grid%ts_u,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_u. ') endif NULLIFY(grid%ts_u) ENDIF IF ( ASSOCIATED( grid%ts_rainc ) ) THEN DEALLOCATE(grid%ts_rainc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_rainc. ') endif NULLIFY(grid%ts_rainc) ENDIF IF ( ASSOCIATED( grid%urb_param ) ) THEN DEALLOCATE(grid%urb_param,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%urb_param. ') endif NULLIFY(grid%urb_param) ENDIF IF ( ASSOCIATED( grid%smois ) ) THEN DEALLOCATE(grid%smois,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smois. ') endif NULLIFY(grid%smois) ENDIF IF ( ASSOCIATED( grid%infxsrt ) ) THEN DEALLOCATE(grid%infxsrt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%infxsrt. ') endif NULLIFY(grid%infxsrt) ENDIF IF ( ASSOCIATED( grid%acsnow ) ) THEN DEALLOCATE(grid%acsnow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsnow. ') endif NULLIFY(grid%acsnow) ENDIF IF ( ASSOCIATED( grid%sstsk ) ) THEN DEALLOCATE(grid%sstsk,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sstsk. ') endif NULLIFY(grid%sstsk) ENDIF IF ( ASSOCIATED( grid%dfi_ph0 ) ) THEN DEALLOCATE(grid%dfi_ph0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_ph0. ') endif NULLIFY(grid%dfi_ph0) ENDIF IF ( ASSOCIATED( grid%dfi_tten_rad ) ) THEN DEALLOCATE(grid%dfi_tten_rad,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_tten_rad. ') endif NULLIFY(grid%dfi_tten_rad) ENDIF IF ( ASSOCIATED( grid%tg_urb2d ) ) THEN DEALLOCATE(grid%tg_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tg_urb2d. ') endif NULLIFY(grid%tg_urb2d) ENDIF IF ( ASSOCIATED( grid%flxhumr_urb2d ) ) THEN DEALLOCATE(grid%flxhumr_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flxhumr_urb2d. ') endif NULLIFY(grid%flxhumr_urb2d) ENDIF IF ( ASSOCIATED( grid%ts_urb2d ) ) THEN DEALLOCATE(grid%ts_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_urb2d. ') endif NULLIFY(grid%ts_urb2d) ENDIF IF ( ASSOCIATED( grid%tflev_urb3d ) ) THEN DEALLOCATE(grid%tflev_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tflev_urb3d. ') endif NULLIFY(grid%tflev_urb3d) ENDIF IF ( ASSOCIATED( grid%ep_pv_urb3d ) ) THEN DEALLOCATE(grid%ep_pv_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ep_pv_urb3d. ') endif NULLIFY(grid%ep_pv_urb3d) ENDIF IF ( ASSOCIATED( grid%lfr_urb3d ) ) THEN DEALLOCATE(grid%lfr_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfr_urb3d. ') endif NULLIFY(grid%lfr_urb3d) ENDIF IF ( ASSOCIATED( grid%coszen ) ) THEN DEALLOCATE(grid%coszen,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%coszen. ') endif NULLIFY(grid%coszen) ENDIF IF ( ASSOCIATED( grid%swnirdif ) ) THEN DEALLOCATE(grid%swnirdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swnirdif. ') endif NULLIFY(grid%swnirdif) ENDIF IF ( ASSOCIATED( grid%canfra ) ) THEN DEALLOCATE(grid%canfra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%canfra. ') endif NULLIFY(grid%canfra) ENDIF IF ( ASSOCIATED( grid%wspd ) ) THEN DEALLOCATE(grid%wspd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wspd. ') endif NULLIFY(grid%wspd) ENDIF IF ( ASSOCIATED( grid%z0 ) ) THEN DEALLOCATE(grid%z0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z0. ') endif NULLIFY(grid%z0) ENDIF IF ( ASSOCIATED( grid%qshltr ) ) THEN DEALLOCATE(grid%qshltr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qshltr. ') endif NULLIFY(grid%qshltr) ENDIF IF ( ASSOCIATED( grid%rc_up ) ) THEN DEALLOCATE(grid%rc_up,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rc_up. ') endif NULLIFY(grid%rc_up) ENDIF IF ( ASSOCIATED( grid%wupd_temf ) ) THEN DEALLOCATE(grid%wupd_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wupd_temf. ') endif NULLIFY(grid%wupd_temf) ENDIF IF ( ASSOCIATED( grid%qshear ) ) THEN DEALLOCATE(grid%qshear,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qshear. ') endif NULLIFY(grid%qshear) ENDIF IF ( ASSOCIATED( grid%edmf_w ) ) THEN DEALLOCATE(grid%edmf_w,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edmf_w. ') endif NULLIFY(grid%edmf_w) ENDIF IF ( ASSOCIATED( grid%fgdp ) ) THEN DEALLOCATE(grid%fgdp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fgdp. ') endif NULLIFY(grid%fgdp) ENDIF IF ( ASSOCIATED( grid%oa3 ) ) THEN DEALLOCATE(grid%oa3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa3. ') endif NULLIFY(grid%oa3) ENDIF IF ( ASSOCIATED( grid%dtaux3d_fd ) ) THEN DEALLOCATE(grid%dtaux3d_fd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtaux3d_fd. ') endif NULLIFY(grid%dtaux3d_fd) ENDIF IF ( ASSOCIATED( grid%oa1ls ) ) THEN DEALLOCATE(grid%oa1ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa1ls. ') endif NULLIFY(grid%oa1ls) ENDIF IF ( ASSOCIATED( grid%oa3ss ) ) THEN DEALLOCATE(grid%oa3ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa3ss. ') endif NULLIFY(grid%oa3ss) ENDIF IF ( ASSOCIATED( grid%a_e_bep ) ) THEN DEALLOCATE(grid%a_e_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%a_e_bep. ') endif NULLIFY(grid%a_e_bep) ENDIF IF ( ASSOCIATED( grid%diss_pbl ) ) THEN DEALLOCATE(grid%diss_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%diss_pbl. ') endif NULLIFY(grid%diss_pbl) ENDIF IF ( ASSOCIATED( grid%cubot ) ) THEN DEALLOCATE(grid%cubot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cubot. ') endif NULLIFY(grid%cubot) ENDIF IF ( ASSOCIATED( grid%o3rad ) ) THEN DEALLOCATE(grid%o3rad,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%o3rad. ') endif NULLIFY(grid%o3rad) ENDIF IF ( ASSOCIATED( grid%m_ps_1 ) ) THEN DEALLOCATE(grid%m_ps_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%m_ps_1. ') endif NULLIFY(grid%m_ps_1) ENDIF IF ( ASSOCIATED( grid%m_ps_2 ) ) THEN DEALLOCATE(grid%m_ps_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%m_ps_2. ') endif NULLIFY(grid%m_ps_2) ENDIF IF ( ASSOCIATED( grid%om_lat ) ) THEN DEALLOCATE(grid%om_lat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_lat. ') endif NULLIFY(grid%om_lat) ENDIF IF ( ASSOCIATED( grid%tactive ) ) THEN DEALLOCATE(grid%tactive,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tactive. ') endif NULLIFY(grid%tactive) ENDIF IF ( ASSOCIATED( grid%wulcl_cup ) ) THEN DEALLOCATE(grid%wulcl_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wulcl_cup. ') endif NULLIFY(grid%wulcl_cup) ENDIF IF ( ASSOCIATED( grid%qv_diabatic ) ) THEN DEALLOCATE(grid%qv_diabatic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_diabatic. ') endif NULLIFY(grid%qv_diabatic) ENDIF IF ( ASSOCIATED( grid%f ) ) THEN DEALLOCATE(grid%f,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%f. ') endif NULLIFY(grid%f) ENDIF IF ( ASSOCIATED( grid%physe ) ) THEN DEALLOCATE(grid%physe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%physe. ') endif NULLIFY(grid%physe) ENDIF IF ( ASSOCIATED( grid%preci3d ) ) THEN DEALLOCATE(grid%preci3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%preci3d. ') endif NULLIFY(grid%preci3d) ENDIF IF ( ASSOCIATED( grid%sswup ) ) THEN DEALLOCATE(grid%sswup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sswup. ') endif NULLIFY(grid%sswup) ENDIF IF ( ASSOCIATED( grid%rqcnshten ) ) THEN DEALLOCATE(grid%rqcnshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqcnshten. ') endif NULLIFY(grid%rqcnshten) ENDIF IF ( ASSOCIATED( grid%pblmax ) ) THEN DEALLOCATE(grid%pblmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pblmax. ') endif NULLIFY(grid%pblmax) ENDIF IF ( ASSOCIATED( grid%wsubsid ) ) THEN DEALLOCATE(grid%wsubsid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wsubsid. ') endif NULLIFY(grid%wsubsid) ENDIF IF ( ASSOCIATED( grid%qcconv ) ) THEN DEALLOCATE(grid%qcconv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qcconv. ') endif NULLIFY(grid%qcconv) ENDIF IF ( ASSOCIATED( grid%rainbl ) ) THEN DEALLOCATE(grid%rainbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainbl. ') endif NULLIFY(grid%rainbl) ENDIF IF ( ASSOCIATED( grid%di3d ) ) THEN DEALLOCATE(grid%di3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%di3d. ') endif NULLIFY(grid%di3d) ENDIF IF ( ASSOCIATED( grid%itype_2 ) ) THEN DEALLOCATE(grid%itype_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%itype_2. ') endif NULLIFY(grid%itype_2) ENDIF IF ( ASSOCIATED( grid%der_kf ) ) THEN DEALLOCATE(grid%der_kf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%der_kf. ') endif NULLIFY(grid%der_kf) ENDIF IF ( ASSOCIATED( grid%k22_shallow ) ) THEN DEALLOCATE(grid%k22_shallow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%k22_shallow. ') endif NULLIFY(grid%k22_shallow) ENDIF IF ( ASSOCIATED( grid%cugd_qcten ) ) THEN DEALLOCATE(grid%cugd_qcten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cugd_qcten. ') endif NULLIFY(grid%cugd_qcten) ENDIF IF ( ASSOCIATED( grid%nc_cu ) ) THEN DEALLOCATE(grid%nc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nc_cu. ') endif NULLIFY(grid%nc_cu) ENDIF IF ( ASSOCIATED( grid%wact ) ) THEN DEALLOCATE(grid%wact,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wact. ') endif NULLIFY(grid%wact) ENDIF IF ( ASSOCIATED( grid%rqvften ) ) THEN DEALLOCATE(grid%rqvften,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqvften. ') endif NULLIFY(grid%rqvften) ENDIF IF ( ASSOCIATED( grid%cldt ) ) THEN DEALLOCATE(grid%cldt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldt. ') endif NULLIFY(grid%cldt) ENDIF IF ( ASSOCIATED( grid%swddni ) ) THEN DEALLOCATE(grid%swddni,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddni. ') endif NULLIFY(grid%swddni) ENDIF IF ( ASSOCIATED( grid%swddir_ref ) ) THEN DEALLOCATE(grid%swddir_ref,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddir_ref. ') endif NULLIFY(grid%swddir_ref) ENDIF IF ( ASSOCIATED( grid%t2mean ) ) THEN DEALLOCATE(grid%t2mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2mean. ') endif NULLIFY(grid%t2mean) ENDIF IF ( ASSOCIATED( grid%skintempmean ) ) THEN DEALLOCATE(grid%skintempmean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%skintempmean. ') endif NULLIFY(grid%skintempmean) ENDIF IF ( ASSOCIATED( grid%raincvmax ) ) THEN DEALLOCATE(grid%raincvmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%raincvmax. ') endif NULLIFY(grid%raincvmax) ENDIF IF ( ASSOCIATED( grid%acswdntc ) ) THEN DEALLOCATE(grid%acswdntc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswdntc. ') endif NULLIFY(grid%acswdntc) ENDIF IF ( ASSOCIATED( grid%aclwdnbc ) ) THEN DEALLOCATE(grid%aclwdnbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwdnbc. ') endif NULLIFY(grid%aclwdnbc) ENDIF IF ( ASSOCIATED( grid%i_aclwdntc ) ) THEN DEALLOCATE(grid%i_aclwdntc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwdntc. ') endif NULLIFY(grid%i_aclwdntc) ENDIF IF ( ASSOCIATED( grid%swupbc ) ) THEN DEALLOCATE(grid%swupbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupbc. ') endif NULLIFY(grid%swupbc) ENDIF IF ( ASSOCIATED( grid%lwupbc ) ) THEN DEALLOCATE(grid%lwupbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupbc. ') endif NULLIFY(grid%lwupbc) ENDIF IF ( ASSOCIATED( grid%albedo ) ) THEN DEALLOCATE(grid%albedo,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albedo. ') endif NULLIFY(grid%albedo) ENDIF IF ( ASSOCIATED( grid%rqvblten ) ) THEN DEALLOCATE(grid%rqvblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqvblten. ') endif NULLIFY(grid%rqvblten) ENDIF IF ( ASSOCIATED( grid%sh2o_mosaic ) ) THEN DEALLOCATE(grid%sh2o_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sh2o_mosaic. ') endif NULLIFY(grid%sh2o_mosaic) ENDIF IF ( ASSOCIATED( grid%rs_mosaic ) ) THEN DEALLOCATE(grid%rs_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rs_mosaic. ') endif NULLIFY(grid%rs_mosaic) ENDIF IF ( ASSOCIATED( grid%qc_urb2d_mosaic ) ) THEN DEALLOCATE(grid%qc_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_urb2d_mosaic. ') endif NULLIFY(grid%qc_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%tbpvs_state ) ) THEN DEALLOCATE(grid%tbpvs_state,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tbpvs_state. ') endif NULLIFY(grid%tbpvs_state) ENDIF IF ( ASSOCIATED( grid%v_phy ) ) THEN DEALLOCATE(grid%v_phy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_phy. ') endif NULLIFY(grid%v_phy) ENDIF IF ( ASSOCIATED( grid%xland ) ) THEN DEALLOCATE(grid%xland,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xland. ') endif NULLIFY(grid%xland) ENDIF IF ( ASSOCIATED( grid%pblh ) ) THEN DEALLOCATE(grid%pblh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pblh. ') endif NULLIFY(grid%pblh) ENDIF IF ( ASSOCIATED( grid%qvg ) ) THEN DEALLOCATE(grid%qvg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qvg. ') endif NULLIFY(grid%qvg) ENDIF IF ( ASSOCIATED( grid%tkesfcf ) ) THEN DEALLOCATE(grid%tkesfcf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tkesfcf. ') endif NULLIFY(grid%tkesfcf) ENDIF IF ( ASSOCIATED( grid%defor13 ) ) THEN DEALLOCATE(grid%defor13,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%defor13. ') endif NULLIFY(grid%defor13) ENDIF IF ( ASSOCIATED( grid%rundgdten ) ) THEN DEALLOCATE(grid%rundgdten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rundgdten. ') endif NULLIFY(grid%rundgdten) ENDIF IF ( ASSOCIATED( grid%t2_ndg_old ) ) THEN DEALLOCATE(grid%t2_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2_ndg_old. ') endif NULLIFY(grid%t2_ndg_old) ENDIF IF ( ASSOCIATED( grid%tob_ndg_old ) ) THEN DEALLOCATE(grid%tob_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tob_ndg_old. ') endif NULLIFY(grid%tob_ndg_old) ENDIF IF ( ASSOCIATED( grid%up_heli_max ) ) THEN DEALLOCATE(grid%up_heli_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%up_heli_max. ') endif NULLIFY(grid%up_heli_max) ENDIF IF ( ASSOCIATED( grid%snow_acc_nc ) ) THEN DEALLOCATE(grid%snow_acc_nc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snow_acc_nc. ') endif NULLIFY(grid%snow_acc_nc) ENDIF IF ( ASSOCIATED( grid%track_p ) ) THEN DEALLOCATE(grid%track_p,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_p. ') endif NULLIFY(grid%track_p) ENDIF IF ( ASSOCIATED( grid%track_qgraup ) ) THEN DEALLOCATE(grid%track_qgraup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_qgraup. ') endif NULLIFY(grid%track_qgraup) ENDIF IF ( ASSOCIATED( grid%athshten ) ) THEN DEALLOCATE(grid%athshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%athshten. ') endif NULLIFY(grid%athshten) ENDIF IF ( ASSOCIATED( grid%hailcast_diam_mean ) ) THEN DEALLOCATE(grid%hailcast_diam_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_diam_mean. ') endif NULLIFY(grid%hailcast_diam_mean) ENDIF IF ( ASSOCIATED( grid%t_xxx ) ) THEN DEALLOCATE(grid%t_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_xxx. ') endif NULLIFY(grid%t_xxx) ENDIF IF ( ASSOCIATED( grid%mf_xxx ) ) THEN DEALLOCATE(grid%mf_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mf_xxx. ') endif NULLIFY(grid%mf_xxx) ENDIF IF ( ASSOCIATED( grid%dzdyf ) ) THEN DEALLOCATE(grid%dzdyf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzdyf. ') endif NULLIFY(grid%dzdyf) ENDIF IF ( ASSOCIATED( grid%grnqfx_fu ) ) THEN DEALLOCATE(grid%grnqfx_fu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grnqfx_fu. ') endif NULLIFY(grid%grnqfx_fu) ENDIF IF ( ASSOCIATED( grid%vf ) ) THEN DEALLOCATE(grid%vf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vf. ') endif NULLIFY(grid%vf) ENDIF IF ( ASSOCIATED( grid%fmep ) ) THEN DEALLOCATE(grid%fmep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fmep. ') endif NULLIFY(grid%fmep) ENDIF IF ( ASSOCIATED( grid%r_0 ) ) THEN DEALLOCATE(grid%r_0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%r_0. ') endif NULLIFY(grid%r_0) ENDIF IF ( ASSOCIATED( grid%tracer ) ) THEN DEALLOCATE(grid%tracer,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer. ') endif NULLIFY(grid%tracer) ENDIF IF ( ASSOCIATED( grid%fs_fire_rosdt ) ) THEN DEALLOCATE(grid%fs_fire_rosdt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_fire_rosdt. ') endif NULLIFY(grid%fs_fire_rosdt) ENDIF IF ( ASSOCIATED( grid%fs_p_x ) ) THEN DEALLOCATE(grid%fs_p_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_x. ') endif NULLIFY(grid%fs_p_x) ENDIF IF ( ASSOCIATED( grid%avgflx_cfu1 ) ) THEN DEALLOCATE(grid%avgflx_cfu1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_cfu1. ') endif NULLIFY(grid%avgflx_cfu1) ENDIF IF ( ASSOCIATED( grid%pattern_spp_pbl ) ) THEN DEALLOCATE(grid%pattern_spp_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pattern_spp_pbl. ') endif NULLIFY(grid%pattern_spp_pbl) ENDIF IF ( ASSOCIATED( grid%spforcs ) ) THEN DEALLOCATE(grid%spforcs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcs. ') endif NULLIFY(grid%spforcs) ENDIF IF ( ASSOCIATED( grid%spforcs5 ) ) THEN DEALLOCATE(grid%spforcs5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcs5. ') endif NULLIFY(grid%spforcs5) ENDIF IF ( ASSOCIATED( grid%iseedarr_spp_lsm ) ) THEN DEALLOCATE(grid%iseedarr_spp_lsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iseedarr_spp_lsm. ') endif NULLIFY(grid%iseedarr_spp_lsm) ENDIF IF ( ASSOCIATED( grid%vertstrucs3d ) ) THEN DEALLOCATE(grid%vertstrucs3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertstrucs3d. ') endif NULLIFY(grid%vertstrucs3d) ENDIF IF ( ASSOCIATED( grid%wsedl3d ) ) THEN DEALLOCATE(grid%wsedl3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wsedl3d. ') endif NULLIFY(grid%wsedl3d) ENDIF IF ( ASSOCIATED( grid%zmflxprc ) ) THEN DEALLOCATE(grid%zmflxprc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmflxprc. ') endif NULLIFY(grid%zmflxprc) ENDIF IF ( ASSOCIATED( grid%zmmu ) ) THEN DEALLOCATE(grid%zmmu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmmu. ') endif NULLIFY(grid%zmmu) ENDIF IF ( ASSOCIATED( grid%rprddp3d ) ) THEN DEALLOCATE(grid%rprddp3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rprddp3d. ') endif NULLIFY(grid%rprddp3d) ENDIF IF ( ASSOCIATED( grid%cmfsl ) ) THEN DEALLOCATE(grid%cmfsl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmfsl. ') endif NULLIFY(grid%cmfsl) ENDIF IF ( ASSOCIATED( grid%shfrc3d ) ) THEN DEALLOCATE(grid%shfrc3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%shfrc3d. ') endif NULLIFY(grid%shfrc3d) ENDIF IF ( ASSOCIATED( grid%cbmf_cu ) ) THEN DEALLOCATE(grid%cbmf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cbmf_cu. ') endif NULLIFY(grid%cbmf_cu) ENDIF IF ( ASSOCIATED( grid%thvlsrc_cu ) ) THEN DEALLOCATE(grid%thvlsrc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thvlsrc_cu. ') endif NULLIFY(grid%thvlsrc_cu) ENDIF IF ( ASSOCIATED( grid%ufrc_cu ) ) THEN DEALLOCATE(grid%ufrc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ufrc_cu. ') endif NULLIFY(grid%ufrc_cu) ENDIF IF ( ASSOCIATED( grid%qcu_cu ) ) THEN DEALLOCATE(grid%qcu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qcu_cu. ') endif NULLIFY(grid%qcu_cu) ENDIF IF ( ASSOCIATED( grid%ntraprd_cu ) ) THEN DEALLOCATE(grid%ntraprd_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ntraprd_cu. ') endif NULLIFY(grid%ntraprd_cu) ENDIF IF ( ASSOCIATED( grid%exit_klclmkx_cu ) ) THEN DEALLOCATE(grid%exit_klclmkx_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_klclmkx_cu. ') endif NULLIFY(grid%exit_klclmkx_cu) ENDIF IF ( ASSOCIATED( grid%limit_ppen_cu ) ) THEN DEALLOCATE(grid%limit_ppen_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_ppen_cu. ') endif NULLIFY(grid%limit_ppen_cu) ENDIF IF ( ASSOCIATED( grid%iradius ) ) THEN DEALLOCATE(grid%iradius,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iradius. ') endif NULLIFY(grid%iradius) ENDIF IF ( ASSOCIATED( grid%lhveg ) ) THEN DEALLOCATE(grid%lhveg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lhveg. ') endif NULLIFY(grid%lhveg) ENDIF IF ( ASSOCIATED( grid%fsun24 ) ) THEN DEALLOCATE(grid%fsun24,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsun24. ') endif NULLIFY(grid%fsun24) ENDIF IF ( ASSOCIATED( grid%t_ref2m ) ) THEN DEALLOCATE(grid%t_ref2m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_ref2m. ') endif NULLIFY(grid%t_ref2m) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq6 ) ) THEN DEALLOCATE(grid%h2osoi_liq6,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq6. ') endif NULLIFY(grid%h2osoi_liq6) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice3 ) ) THEN DEALLOCATE(grid%h2osoi_ice3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice3. ') endif NULLIFY(grid%h2osoi_ice3) ENDIF IF ( ASSOCIATED( grid%t_soisno_s5 ) ) THEN DEALLOCATE(grid%t_soisno_s5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno_s5. ') endif NULLIFY(grid%t_soisno_s5) ENDIF IF ( ASSOCIATED( grid%dzsnow2 ) ) THEN DEALLOCATE(grid%dzsnow2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzsnow2. ') endif NULLIFY(grid%dzsnow2) ENDIF IF ( ASSOCIATED( grid%t_lake4 ) ) THEN DEALLOCATE(grid%t_lake4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake4. ') endif NULLIFY(grid%t_lake4) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol6 ) ) THEN DEALLOCATE(grid%h2osoi_vol6,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol6. ') endif NULLIFY(grid%h2osoi_vol6) ENDIF IF ( ASSOCIATED( grid%nrasubgrid ) ) THEN DEALLOCATE(grid%nrasubgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nrasubgrid. ') endif NULLIFY(grid%nrasubgrid) ENDIF IF ( ASSOCIATED( grid%dz_lake3d ) ) THEN DEALLOCATE(grid%dz_lake3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dz_lake3d. ') endif NULLIFY(grid%dz_lake3d) ENDIF IF ( ASSOCIATED( grid%tksatu3d ) ) THEN DEALLOCATE(grid%tksatu3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tksatu3d. ') endif NULLIFY(grid%tksatu3d) ENDIF IF ( ASSOCIATED( grid%ssib_shf ) ) THEN DEALLOCATE(grid%ssib_shf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_shf. ') endif NULLIFY(grid%ssib_shf) ENDIF IF ( ASSOCIATED( grid%ssib_shc ) ) THEN DEALLOCATE(grid%ssib_shc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_shc. ') endif NULLIFY(grid%ssib_shc) ENDIF IF ( ASSOCIATED( grid%wo1 ) ) THEN DEALLOCATE(grid%wo1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wo1. ') endif NULLIFY(grid%wo1) ENDIF IF ( ASSOCIATED( grid%wo2 ) ) THEN DEALLOCATE(grid%wo2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wo2. ') endif NULLIFY(grid%wo2) ENDIF IF ( ASSOCIATED( grid%wo3 ) ) THEN DEALLOCATE(grid%wo3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wo3. ') endif NULLIFY(grid%wo3) ENDIF IF ( ASSOCIATED( grid%wo4 ) ) THEN DEALLOCATE(grid%wo4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wo4. ') endif NULLIFY(grid%wo4) ENDIF IF ( ASSOCIATED( grid%tvxy ) ) THEN DEALLOCATE(grid%tvxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tvxy. ') endif NULLIFY(grid%tvxy) ENDIF IF ( ASSOCIATED( grid%qrainxy ) ) THEN DEALLOCATE(grid%qrainxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qrainxy. ') endif NULLIFY(grid%qrainxy) ENDIF IF ( ASSOCIATED( grid%woodxy ) ) THEN DEALLOCATE(grid%woodxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%woodxy. ') endif NULLIFY(grid%woodxy) ENDIF IF ( ASSOCIATED( grid%nppxy ) ) THEN DEALLOCATE(grid%nppxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nppxy. ') endif NULLIFY(grid%nppxy) ENDIF IF ( ASSOCIATED( grid%savxy ) ) THEN DEALLOCATE(grid%savxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%savxy. ') endif NULLIFY(grid%savxy) ENDIF IF ( ASSOCIATED( grid%shbxy ) ) THEN DEALLOCATE(grid%shbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%shbxy. ') endif NULLIFY(grid%shbxy) ENDIF IF ( ASSOCIATED( grid%chv2xy ) ) THEN DEALLOCATE(grid%chv2xy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chv2xy. ') endif NULLIFY(grid%chv2xy) ENDIF IF ( ASSOCIATED( grid%qspringsxy ) ) THEN DEALLOCATE(grid%qspringsxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qspringsxy. ') endif NULLIFY(grid%qspringsxy) ENDIF IF ( ASSOCIATED( grid%qintrxy ) ) THEN DEALLOCATE(grid%qintrxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qintrxy. ') endif NULLIFY(grid%qintrxy) ENDIF IF ( ASSOCIATED( grid%qmeltcxy ) ) THEN DEALLOCATE(grid%qmeltcxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qmeltcxy. ') endif NULLIFY(grid%qmeltcxy) ENDIF IF ( ASSOCIATED( grid%soilcomp ) ) THEN DEALLOCATE(grid%soilcomp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcomp. ') endif NULLIFY(grid%soilcomp) ENDIF IF ( ASSOCIATED( grid%forcqlsm ) ) THEN DEALLOCATE(grid%forcqlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%forcqlsm. ') endif NULLIFY(grid%forcqlsm) ENDIF IF ( ASSOCIATED( grid%acetlsm ) ) THEN DEALLOCATE(grid%acetlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acetlsm. ') endif NULLIFY(grid%acetlsm) ENDIF IF ( ASSOCIATED( grid%acdrips ) ) THEN DEALLOCATE(grid%acdrips,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acdrips. ') endif NULLIFY(grid%acdrips) ENDIF IF ( ASSOCIATED( grid%acghv ) ) THEN DEALLOCATE(grid%acghv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acghv. ') endif NULLIFY(grid%acghv) ENDIF IF ( ASSOCIATED( grid%acshflsm ) ) THEN DEALLOCATE(grid%acshflsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acshflsm. ') endif NULLIFY(grid%acshflsm) ENDIF IF ( ASSOCIATED( grid%eflxbxy ) ) THEN DEALLOCATE(grid%eflxbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%eflxbxy. ') endif NULLIFY(grid%eflxbxy) ENDIF IF ( ASSOCIATED( grid%cropcat ) ) THEN DEALLOCATE(grid%cropcat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cropcat. ') endif NULLIFY(grid%cropcat) ENDIF IF ( ASSOCIATED( grid%irwatsi ) ) THEN DEALLOCATE(grid%irwatsi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irwatsi. ') endif NULLIFY(grid%irwatsi) ENDIF IF ( ASSOCIATED( grid%kext_qs ) ) THEN DEALLOCATE(grid%kext_qs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_qs. ') endif NULLIFY(grid%kext_qs) ENDIF IF ( ASSOCIATED( grid%sbmradar ) ) THEN DEALLOCATE(grid%sbmradar,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sbmradar. ') endif NULLIFY(grid%sbmradar) ENDIF IF ( ASSOCIATED( grid%icingbot ) ) THEN DEALLOCATE(grid%icingbot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icingbot. ') endif NULLIFY(grid%icingbot) ENDIF IF ( ASSOCIATED( grid%afwa_tlyrtop ) ) THEN DEALLOCATE(grid%afwa_tlyrtop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_tlyrtop. ') endif NULLIFY(grid%afwa_tlyrtop) ENDIF IF ( ASSOCIATED( grid%afwa_snowfall ) ) THEN DEALLOCATE(grid%afwa_snowfall,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_snowfall. ') endif NULLIFY(grid%afwa_snowfall) ENDIF IF ( ASSOCIATED( grid%afwa_lidx ) ) THEN DEALLOCATE(grid%afwa_lidx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_lidx. ') endif NULLIFY(grid%afwa_lidx) ENDIF IF ( ASSOCIATED( grid%q2_mean ) ) THEN DEALLOCATE(grid%q2_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2_mean. ') endif NULLIFY(grid%q2_mean) ENDIF IF ( ASSOCIATED( grid%lwdnt_mean ) ) THEN DEALLOCATE(grid%lwdnt_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdnt_mean. ') endif NULLIFY(grid%lwdnt_mean) ENDIF IF ( ASSOCIATED( grid%swdnb_diurn ) ) THEN DEALLOCATE(grid%swdnb_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnb_diurn. ') endif NULLIFY(grid%swdnb_diurn) ENDIF IF ( ASSOCIATED( grid%t2_dtmp ) ) THEN DEALLOCATE(grid%t2_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2_dtmp. ') endif NULLIFY(grid%t2_dtmp) ENDIF IF ( ASSOCIATED( grid%swdnt_dtmp ) ) THEN DEALLOCATE(grid%swdnt_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnt_dtmp. ') endif NULLIFY(grid%swdnt_dtmp) ENDIF IF ( ASSOCIATED( grid%pot ) ) THEN DEALLOCATE(grid%pot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pot. ') endif NULLIFY(grid%pot) ENDIF IF ( ASSOCIATED( grid%c2f ) ) THEN DEALLOCATE(grid%c2f,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c2f. ') endif NULLIFY(grid%c2f) ENDIF IF ( ASSOCIATED( grid%p_wif_jul ) ) THEN DEALLOCATE(grid%p_wif_jul,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_jul. ') endif NULLIFY(grid%p_wif_jul) ENDIF IF ( ASSOCIATED( grid%w_wif_jun ) ) THEN DEALLOCATE(grid%w_wif_jun,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_jun. ') endif NULLIFY(grid%w_wif_jun) ENDIF IF ( ASSOCIATED( grid%i_wif_may ) ) THEN DEALLOCATE(grid%i_wif_may,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_may. ') endif NULLIFY(grid%i_wif_may) ENDIF IF ( ASSOCIATED( grid%b_wif_apr ) ) THEN DEALLOCATE(grid%b_wif_apr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_apr. ') endif NULLIFY(grid%b_wif_apr) ENDIF IF ( ASSOCIATED( grid%geoheight ) ) THEN DEALLOCATE(grid%geoheight,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%geoheight. ') endif NULLIFY(grid%geoheight) ENDIF IF ( ASSOCIATED( grid%qc_tot ) ) THEN DEALLOCATE(grid%qc_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_tot. ') endif NULLIFY(grid%qc_tot) ENDIF IF ( ASSOCIATED( grid%re_qi ) ) THEN DEALLOCATE(grid%re_qi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_qi. ') endif NULLIFY(grid%re_qi) ENDIF IF ( ASSOCIATED( grid%ctopht_tot ) ) THEN DEALLOCATE(grid%ctopht_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ctopht_tot. ') endif NULLIFY(grid%ctopht_tot) ENDIF IF ( ASSOCIATED( grid%ts_wp_tot_sum ) ) THEN DEALLOCATE(grid%ts_wp_tot_sum,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_wp_tot_sum. ') endif NULLIFY(grid%ts_wp_tot_sum) ENDIF IF ( ASSOCIATED( grid%ts_ctopht ) ) THEN DEALLOCATE(grid%ts_ctopht,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_ctopht. ') endif NULLIFY(grid%ts_ctopht) ENDIF IF ( ASSOCIATED( grid%ts_swddni2 ) ) THEN DEALLOCATE(grid%ts_swddni2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swddni2. ') endif NULLIFY(grid%ts_swddni2) ENDIF IF ( ASSOCIATED( grid%p_pl ) ) THEN DEALLOCATE(grid%p_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_pl. ') endif NULLIFY(grid%p_pl) ENDIF IF ( ASSOCIATED( grid%p_zl ) ) THEN DEALLOCATE(grid%p_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_zl. ') endif NULLIFY(grid%p_zl) ENDIF IF ( ASSOCIATED( grid%qs_iau ) ) THEN DEALLOCATE(grid%qs_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qs_iau. ') endif NULLIFY(grid%qs_iau) ENDIF IF ( ASSOCIATED( grid%rqgiauten ) ) THEN DEALLOCATE(grid%rqgiauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqgiauten. ') endif NULLIFY(grid%rqgiauten) ENDIF IF ( ASSOCIATED( grid%sst_input ) ) THEN DEALLOCATE(grid%sst_input,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sst_input. ') endif NULLIFY(grid%sst_input) ENDIF END SUBROUTINE deallocs_5 !ENDOFREGISTRYGENERATEDINCLUDE