!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_8.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_8( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%traj_i ) ) THEN DEALLOCATE(grid%traj_i,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%traj_i. ') endif NULLIFY(grid%traj_i) ENDIF IF ( ASSOCIATED( grid%xlat_gc ) ) THEN DEALLOCATE(grid%xlat_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xlat_gc. ') endif NULLIFY(grid%xlat_gc) ENDIF IF ( ASSOCIATED( grid%albedo12m ) ) THEN DEALLOCATE(grid%albedo12m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albedo12m. ') endif NULLIFY(grid%albedo12m) ENDIF IF ( ASSOCIATED( grid%icepct ) ) THEN DEALLOCATE(grid%icepct,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icepct. ') endif NULLIFY(grid%icepct) ENDIF IF ( ASSOCIATED( grid%qnh_gc ) ) THEN DEALLOCATE(grid%qnh_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnh_gc. ') endif NULLIFY(grid%qnh_gc) ENDIF IF ( ASSOCIATED( grid%pmaxwnn ) ) THEN DEALLOCATE(grid%pmaxwnn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pmaxwnn. ') endif NULLIFY(grid%pmaxwnn) ENDIF IF ( ASSOCIATED( grid%u_1 ) ) THEN DEALLOCATE(grid%u_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_1. ') endif NULLIFY(grid%u_1) ENDIF IF ( ASSOCIATED( grid%u_2 ) ) THEN DEALLOCATE(grid%u_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_2. ') endif NULLIFY(grid%u_2) ENDIF IF ( ASSOCIATED( grid%v_1 ) ) THEN DEALLOCATE(grid%v_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_1. ') endif NULLIFY(grid%v_1) ENDIF IF ( ASSOCIATED( grid%v_2 ) ) THEN DEALLOCATE(grid%v_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_2. ') endif NULLIFY(grid%v_2) ENDIF IF ( ASSOCIATED( grid%w_btxs ) ) THEN DEALLOCATE(grid%w_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_btxs. ') endif NULLIFY(grid%w_btxs) ENDIF IF ( ASSOCIATED( grid%w_btxe ) ) THEN DEALLOCATE(grid%w_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_btxe. ') endif NULLIFY(grid%w_btxe) ENDIF IF ( ASSOCIATED( grid%w_btys ) ) THEN DEALLOCATE(grid%w_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_btys. ') endif NULLIFY(grid%w_btys) ENDIF IF ( ASSOCIATED( grid%w_btye ) ) THEN DEALLOCATE(grid%w_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_btye. ') endif NULLIFY(grid%w_btye) ENDIF IF ( ASSOCIATED( grid%w_subs_tend ) ) THEN DEALLOCATE(grid%w_subs_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_subs_tend. ') endif NULLIFY(grid%w_subs_tend) ENDIF IF ( ASSOCIATED( grid%t_1 ) ) THEN DEALLOCATE(grid%t_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_1. ') endif NULLIFY(grid%t_1) ENDIF IF ( ASSOCIATED( grid%t_2 ) ) THEN DEALLOCATE(grid%t_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_2. ') endif NULLIFY(grid%t_2) ENDIF IF ( ASSOCIATED( grid%qv_upstream_x ) ) THEN DEALLOCATE(grid%qv_upstream_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_upstream_x. ') endif NULLIFY(grid%qv_upstream_x) ENDIF IF ( ASSOCIATED( grid%v_upstream_x ) ) THEN DEALLOCATE(grid%v_upstream_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_upstream_x. ') endif NULLIFY(grid%v_upstream_x) ENDIF IF ( ASSOCIATED( grid%u_largescale ) ) THEN DEALLOCATE(grid%u_largescale,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_largescale. ') endif NULLIFY(grid%u_largescale) ENDIF IF ( ASSOCIATED( grid%q_soil_forcing_val ) ) THEN DEALLOCATE(grid%q_soil_forcing_val,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q_soil_forcing_val. ') endif NULLIFY(grid%q_soil_forcing_val) ENDIF IF ( ASSOCIATED( grid%mu_btxs ) ) THEN DEALLOCATE(grid%mu_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_btxs. ') endif NULLIFY(grid%mu_btxs) ENDIF IF ( ASSOCIATED( grid%mu_btxe ) ) THEN DEALLOCATE(grid%mu_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_btxe. ') endif NULLIFY(grid%mu_btxe) ENDIF IF ( ASSOCIATED( grid%mu_btys ) ) THEN DEALLOCATE(grid%mu_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_btys. ') endif NULLIFY(grid%mu_btys) ENDIF IF ( ASSOCIATED( grid%mu_btye ) ) THEN DEALLOCATE(grid%mu_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_btye. ') endif NULLIFY(grid%mu_btye) ENDIF IF ( ASSOCIATED( grid%dlk ) ) THEN DEALLOCATE(grid%dlk,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dlk. ') endif NULLIFY(grid%dlk) ENDIF IF ( ASSOCIATED( grid%pb ) ) THEN DEALLOCATE(grid%pb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pb. ') endif NULLIFY(grid%pb) ENDIF IF ( ASSOCIATED( grid%fnm ) ) THEN DEALLOCATE(grid%fnm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fnm. ') endif NULLIFY(grid%fnm) ENDIF IF ( ASSOCIATED( grid%t2 ) ) THEN DEALLOCATE(grid%t2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2. ') endif NULLIFY(grid%t2) ENDIF IF ( ASSOCIATED( grid%area2d ) ) THEN DEALLOCATE(grid%area2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%area2d. ') endif NULLIFY(grid%area2d) ENDIF IF ( ASSOCIATED( grid%imask_ystag ) ) THEN DEALLOCATE(grid%imask_ystag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%imask_ystag. ') endif NULLIFY(grid%imask_ystag) ENDIF IF ( ASSOCIATED( grid%qvold ) ) THEN DEALLOCATE(grid%qvold,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qvold. ') endif NULLIFY(grid%qvold) ENDIF IF ( ASSOCIATED( grid%re_ice_gsfc ) ) THEN DEALLOCATE(grid%re_ice_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_ice_gsfc. ') endif NULLIFY(grid%re_ice_gsfc) ENDIF IF ( ASSOCIATED( grid%dfi_re_hail_gsfc ) ) THEN DEALLOCATE(grid%dfi_re_hail_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_hail_gsfc. ') endif NULLIFY(grid%dfi_re_hail_gsfc) ENDIF IF ( ASSOCIATED( grid%st000007 ) ) THEN DEALLOCATE(grid%st000007,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st000007. ') endif NULLIFY(grid%st000007) ENDIF IF ( ASSOCIATED( grid%soilm040 ) ) THEN DEALLOCATE(grid%soilm040,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilm040. ') endif NULLIFY(grid%soilm040) ENDIF IF ( ASSOCIATED( grid%soilw160 ) ) THEN DEALLOCATE(grid%soilw160,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilw160. ') endif NULLIFY(grid%soilw160) ENDIF IF ( ASSOCIATED( grid%soilt300 ) ) THEN DEALLOCATE(grid%soilt300,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt300. ') endif NULLIFY(grid%soilt300) ENDIF IF ( ASSOCIATED( grid%soilctop ) ) THEN DEALLOCATE(grid%soilctop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilctop. ') endif NULLIFY(grid%soilctop) ENDIF IF ( ASSOCIATED( grid%ts_t ) ) THEN DEALLOCATE(grid%ts_t,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_t. ') endif NULLIFY(grid%ts_t) ENDIF IF ( ASSOCIATED( grid%ts_v_profile ) ) THEN DEALLOCATE(grid%ts_v_profile,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_v_profile. ') endif NULLIFY(grid%ts_v_profile) ENDIF IF ( ASSOCIATED( grid%lb_urb2d ) ) THEN DEALLOCATE(grid%lb_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lb_urb2d. ') endif NULLIFY(grid%lb_urb2d) ENDIF IF ( ASSOCIATED( grid%xice ) ) THEN DEALLOCATE(grid%xice,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xice. ') endif NULLIFY(grid%xice) ENDIF IF ( ASSOCIATED( grid%sfcrunoff ) ) THEN DEALLOCATE(grid%sfcrunoff,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfcrunoff. ') endif NULLIFY(grid%sfcrunoff) ENDIF IF ( ASSOCIATED( grid%snow ) ) THEN DEALLOCATE(grid%snow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snow. ') endif NULLIFY(grid%snow) ENDIF IF ( ASSOCIATED( grid%dtw ) ) THEN DEALLOCATE(grid%dtw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtw. ') endif NULLIFY(grid%dtw) ENDIF IF ( ASSOCIATED( grid%dfi_v ) ) THEN DEALLOCATE(grid%dfi_v,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_v. ') endif NULLIFY(grid%dfi_v) ENDIF IF ( ASSOCIATED( grid%dfi_snow ) ) THEN DEALLOCATE(grid%dfi_snow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_snow. ') endif NULLIFY(grid%dfi_snow) ENDIF IF ( ASSOCIATED( grid%uc_urb2d ) ) THEN DEALLOCATE(grid%uc_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uc_urb2d. ') endif NULLIFY(grid%uc_urb2d) ENDIF IF ( ASSOCIATED( grid%tgrl_urb3d ) ) THEN DEALLOCATE(grid%tgrl_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgrl_urb3d. ') endif NULLIFY(grid%tgrl_urb3d) ENDIF IF ( ASSOCIATED( grid%trb_urb4d ) ) THEN DEALLOCATE(grid%trb_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%trb_urb4d. ') endif NULLIFY(grid%trb_urb4d) ENDIF IF ( ASSOCIATED( grid%cm_ac_urb3d ) ) THEN DEALLOCATE(grid%cm_ac_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cm_ac_urb3d. ') endif NULLIFY(grid%cm_ac_urb3d) ENDIF IF ( ASSOCIATED( grid%qr_urb4d ) ) THEN DEALLOCATE(grid%qr_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qr_urb4d. ') endif NULLIFY(grid%qr_urb4d) ENDIF IF ( ASSOCIATED( grid%chr_sfcdif ) ) THEN DEALLOCATE(grid%chr_sfcdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chr_sfcdif. ') endif NULLIFY(grid%chr_sfcdif) ENDIF IF ( ASSOCIATED( grid%alswnirdir ) ) THEN DEALLOCATE(grid%alswnirdir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%alswnirdir. ') endif NULLIFY(grid%alswnirdir) ENDIF IF ( ASSOCIATED( grid%wfc_px ) ) THEN DEALLOCATE(grid%wfc_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wfc_px. ') endif NULLIFY(grid%wfc_px) ENDIF IF ( ASSOCIATED( grid%zol ) ) THEN DEALLOCATE(grid%zol,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zol. ') endif NULLIFY(grid%zol) ENDIF IF ( ASSOCIATED( grid%vz0 ) ) THEN DEALLOCATE(grid%vz0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vz0. ') endif NULLIFY(grid%vz0) ENDIF IF ( ASSOCIATED( grid%q10 ) ) THEN DEALLOCATE(grid%q10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q10. ') endif NULLIFY(grid%q10) ENDIF IF ( ASSOCIATED( grid%frac_up ) ) THEN DEALLOCATE(grid%frac_up,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%frac_up. ') endif NULLIFY(grid%frac_up) ENDIF IF ( ASSOCIATED( grid%qtup_temf ) ) THEN DEALLOCATE(grid%qtup_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtup_temf. ') endif NULLIFY(grid%qtup_temf) ENDIF IF ( ASSOCIATED( grid%qwt ) ) THEN DEALLOCATE(grid%qwt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qwt. ') endif NULLIFY(grid%qwt) ENDIF IF ( ASSOCIATED( grid%edmf_ent ) ) THEN DEALLOCATE(grid%edmf_ent,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edmf_ent. ') endif NULLIFY(grid%edmf_ent) ENDIF IF ( ASSOCIATED( grid%exch_tke ) ) THEN DEALLOCATE(grid%exch_tke,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exch_tke. ') endif NULLIFY(grid%exch_tke) ENDIF IF ( ASSOCIATED( grid%ol2 ) ) THEN DEALLOCATE(grid%ol2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol2. ') endif NULLIFY(grid%ol2) ENDIF IF ( ASSOCIATED( grid%dvsfcg_ls ) ) THEN DEALLOCATE(grid%dvsfcg_ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dvsfcg_ls. ') endif NULLIFY(grid%dvsfcg_ls) ENDIF IF ( ASSOCIATED( grid%oa4ls ) ) THEN DEALLOCATE(grid%oa4ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa4ls. ') endif NULLIFY(grid%oa4ls) ENDIF IF ( ASSOCIATED( grid%ol2ss ) ) THEN DEALLOCATE(grid%ol2ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol2ss. ') endif NULLIFY(grid%ol2ss) ENDIF IF ( ASSOCIATED( grid%b_t_bep ) ) THEN DEALLOCATE(grid%b_t_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_t_bep. ') endif NULLIFY(grid%b_t_bep) ENDIF IF ( ASSOCIATED( grid%wu_tur ) ) THEN DEALLOCATE(grid%wu_tur,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wu_tur. ') endif NULLIFY(grid%wu_tur) ENDIF IF ( ASSOCIATED( grid%rlwtoa ) ) THEN DEALLOCATE(grid%rlwtoa,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rlwtoa. ') endif NULLIFY(grid%rlwtoa) ENDIF IF ( ASSOCIATED( grid%pina ) ) THEN DEALLOCATE(grid%pina,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pina. ') endif NULLIFY(grid%pina) ENDIF IF ( ASSOCIATED( grid%f_ice_phy ) ) THEN DEALLOCATE(grid%f_ice_phy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%f_ice_phy. ') endif NULLIFY(grid%f_ice_phy) ENDIF IF ( ASSOCIATED( grid%om_tini ) ) THEN DEALLOCATE(grid%om_tini,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_tini. ') endif NULLIFY(grid%om_tini) ENDIF IF ( ASSOCIATED( grid%activefrac ) ) THEN DEALLOCATE(grid%activefrac,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%activefrac. ') endif NULLIFY(grid%activefrac) ENDIF IF ( ASSOCIATED( grid%mfdn_cup ) ) THEN DEALLOCATE(grid%mfdn_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mfdn_cup. ') endif NULLIFY(grid%mfdn_cup) ENDIF IF ( ASSOCIATED( grid%msfu ) ) THEN DEALLOCATE(grid%msfu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msfu. ') endif NULLIFY(grid%msfu) ENDIF IF ( ASSOCIATED( grid%cosa ) ) THEN DEALLOCATE(grid%cosa,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cosa. ') endif NULLIFY(grid%cosa) ENDIF IF ( ASSOCIATED( grid%tsk ) ) THEN DEALLOCATE(grid%tsk,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsk. ') endif NULLIFY(grid%tsk) ENDIF IF ( ASSOCIATED( grid%physm ) ) THEN DEALLOCATE(grid%physm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%physm. ') endif NULLIFY(grid%physm) ENDIF IF ( ASSOCIATED( grid%prech3d ) ) THEN DEALLOCATE(grid%prech3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%prech3d. ') endif NULLIFY(grid%prech3d) ENDIF IF ( ASSOCIATED( grid%rushten ) ) THEN DEALLOCATE(grid%rushten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rushten. ') endif NULLIFY(grid%rushten) ENDIF IF ( ASSOCIATED( grid%rqcdcshten ) ) THEN DEALLOCATE(grid%rqcdcshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqcdcshten. ') endif NULLIFY(grid%rqcdcshten) ENDIF IF ( ASSOCIATED( grid%capesave ) ) THEN DEALLOCATE(grid%capesave,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%capesave. ') endif NULLIFY(grid%capesave) ENDIF IF ( ASSOCIATED( grid%rthcuten ) ) THEN DEALLOCATE(grid%rthcuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthcuten. ') endif NULLIFY(grid%rthcuten) ENDIF IF ( ASSOCIATED( grid%rainsh ) ) THEN DEALLOCATE(grid%rainsh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainsh. ') endif NULLIFY(grid%rainsh) ENDIF IF ( ASSOCIATED( grid%hailnc ) ) THEN DEALLOCATE(grid%hailnc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailnc. ') endif NULLIFY(grid%hailnc) ENDIF IF ( ASSOCIATED( grid%vmi3d_2 ) ) THEN DEALLOCATE(grid%vmi3d_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vmi3d_2. ') endif NULLIFY(grid%vmi3d_2) ENDIF IF ( ASSOCIATED( grid%ssati ) ) THEN DEALLOCATE(grid%ssati,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssati. ') endif NULLIFY(grid%ssati) ENDIF IF ( ASSOCIATED( grid%apr_w ) ) THEN DEALLOCATE(grid%apr_w,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_w. ') endif NULLIFY(grid%apr_w) ENDIF IF ( ASSOCIATED( grid%k22_deep ) ) THEN DEALLOCATE(grid%k22_deep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%k22_deep. ') endif NULLIFY(grid%k22_deep) ENDIF IF ( ASSOCIATED( grid%gd_cldfr ) ) THEN DEALLOCATE(grid%gd_cldfr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gd_cldfr. ') endif NULLIFY(grid%gd_cldfr) ENDIF IF ( ASSOCIATED( grid%ns_cu ) ) THEN DEALLOCATE(grid%ns_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ns_cu. ') endif NULLIFY(grid%ns_cu) ENDIF IF ( ASSOCIATED( grid%ccn3_gs ) ) THEN DEALLOCATE(grid%ccn3_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn3_gs. ') endif NULLIFY(grid%ccn3_gs) ENDIF IF ( ASSOCIATED( grid%rthratenlw ) ) THEN DEALLOCATE(grid%rthratenlw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthratenlw. ') endif NULLIFY(grid%rthratenlw) ENDIF IF ( ASSOCIATED( grid%swdownc ) ) THEN DEALLOCATE(grid%swdownc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdownc. ') endif NULLIFY(grid%swdownc) ENDIF IF ( ASSOCIATED( grid%swddnic2 ) ) THEN DEALLOCATE(grid%swddnic2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddnic2. ') endif NULLIFY(grid%swddnic2) ENDIF IF ( ASSOCIATED( grid%aerssa2d ) ) THEN DEALLOCATE(grid%aerssa2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerssa2d. ') endif NULLIFY(grid%aerssa2d) ENDIF IF ( ASSOCIATED( grid%q2max ) ) THEN DEALLOCATE(grid%q2max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2max. ') endif NULLIFY(grid%q2max) ENDIF IF ( ASSOCIATED( grid%v10max ) ) THEN DEALLOCATE(grid%v10max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10max. ') endif NULLIFY(grid%v10max) ENDIF IF ( ASSOCIATED( grid%trainncvmax ) ) THEN DEALLOCATE(grid%trainncvmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%trainncvmax. ') endif NULLIFY(grid%trainncvmax) ENDIF IF ( ASSOCIATED( grid%acswdnb ) ) THEN DEALLOCATE(grid%acswdnb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswdnb. ') endif NULLIFY(grid%acswdnb) ENDIF IF ( ASSOCIATED( grid%i_acswdnt ) ) THEN DEALLOCATE(grid%i_acswdnt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswdnt. ') endif NULLIFY(grid%i_acswdnt) ENDIF IF ( ASSOCIATED( grid%i_aclwdnb ) ) THEN DEALLOCATE(grid%i_aclwdnb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwdnb. ') endif NULLIFY(grid%i_aclwdnb) ENDIF IF ( ASSOCIATED( grid%swdnbc ) ) THEN DEALLOCATE(grid%swdnbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnbc. ') endif NULLIFY(grid%swdnbc) ENDIF IF ( ASSOCIATED( grid%lwdnbc ) ) THEN DEALLOCATE(grid%lwdnbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdnbc. ') endif NULLIFY(grid%lwdnbc) ENDIF IF ( ASSOCIATED( grid%embck ) ) THEN DEALLOCATE(grid%embck,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%embck. ') endif NULLIFY(grid%embck) ENDIF IF ( ASSOCIATED( grid%rqniblten ) ) THEN DEALLOCATE(grid%rqniblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqniblten. ') endif NULLIFY(grid%rqniblten) ENDIF IF ( ASSOCIATED( grid%snowh_mosaic ) ) THEN DEALLOCATE(grid%snowh_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowh_mosaic. ') endif NULLIFY(grid%snowh_mosaic) ENDIF IF ( ASSOCIATED( grid%lh_mosaic ) ) THEN DEALLOCATE(grid%lh_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh_mosaic. ') endif NULLIFY(grid%lh_mosaic) ENDIF IF ( ASSOCIATED( grid%tbl_urb3d_mosaic ) ) THEN DEALLOCATE(grid%tbl_urb3d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tbl_urb3d_mosaic. ') endif NULLIFY(grid%tbl_urb3d_mosaic) ENDIF IF ( ASSOCIATED( grid%ck ) ) THEN DEALLOCATE(grid%ck,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ck. ') endif NULLIFY(grid%ck) ENDIF IF ( ASSOCIATED( grid%hfx ) ) THEN DEALLOCATE(grid%hfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfx. ') endif NULLIFY(grid%hfx) ENDIF IF ( ASSOCIATED( grid%dew ) ) THEN DEALLOCATE(grid%dew,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dew. ') endif NULLIFY(grid%dew) ENDIF IF ( ASSOCIATED( grid%snopcx ) ) THEN DEALLOCATE(grid%snopcx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snopcx. ') endif NULLIFY(grid%snopcx) ENDIF IF ( ASSOCIATED( grid%xkmh ) ) THEN DEALLOCATE(grid%xkmh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xkmh. ') endif NULLIFY(grid%xkmh) ENDIF IF ( ASSOCIATED( grid%rphndgdten ) ) THEN DEALLOCATE(grid%rphndgdten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rphndgdten. ') endif NULLIFY(grid%rphndgdten) ENDIF IF ( ASSOCIATED( grid%th2_ndg_new ) ) THEN DEALLOCATE(grid%th2_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th2_ndg_new. ') endif NULLIFY(grid%th2_ndg_new) ENDIF IF ( ASSOCIATED( grid%odis_ndg_new ) ) THEN DEALLOCATE(grid%odis_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%odis_ndg_new. ') endif NULLIFY(grid%odis_ndg_new) ENDIF IF ( ASSOCIATED( grid%emstot ) ) THEN DEALLOCATE(grid%emstot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%emstot. ') endif NULLIFY(grid%emstot) ENDIF IF ( ASSOCIATED( grid%uh ) ) THEN DEALLOCATE(grid%uh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uh. ') endif NULLIFY(grid%uh) ENDIF IF ( ASSOCIATED( grid%tml ) ) THEN DEALLOCATE(grid%tml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tml. ') endif NULLIFY(grid%tml) ENDIF IF ( ASSOCIATED( grid%track_w ) ) THEN DEALLOCATE(grid%track_w,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_w. ') endif NULLIFY(grid%track_w) ENDIF IF ( ASSOCIATED( grid%cldmask ) ) THEN DEALLOCATE(grid%cldmask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldmask. ') endif NULLIFY(grid%cldmask) ENDIF IF ( ASSOCIATED( grid%avshten ) ) THEN DEALLOCATE(grid%avshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avshten. ') endif NULLIFY(grid%avshten) ENDIF IF ( ASSOCIATED( grid%hailcast_wdur ) ) THEN DEALLOCATE(grid%hailcast_wdur,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_wdur. ') endif NULLIFY(grid%hailcast_wdur) ENDIF IF ( ASSOCIATED( grid%v_xxx ) ) THEN DEALLOCATE(grid%v_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_xxx. ') endif NULLIFY(grid%v_xxx) ENDIF IF ( ASSOCIATED( grid%dif_yyy ) ) THEN DEALLOCATE(grid%dif_yyy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dif_yyy. ') endif NULLIFY(grid%dif_yyy) ENDIF IF ( ASSOCIATED( grid%rqvfrten ) ) THEN DEALLOCATE(grid%rqvfrten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqvfrten. ') endif NULLIFY(grid%rqvfrten) ENDIF IF ( ASSOCIATED( grid%lfn_1 ) ) THEN DEALLOCATE(grid%lfn_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_1. ') endif NULLIFY(grid%lfn_1) ENDIF IF ( ASSOCIATED( grid%fcanhfx ) ) THEN DEALLOCATE(grid%fcanhfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fcanhfx. ') endif NULLIFY(grid%fcanhfx) ENDIF IF ( ASSOCIATED( grid%rain_old ) ) THEN DEALLOCATE(grid%rain_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rain_old. ') endif NULLIFY(grid%rain_old) ENDIF IF ( ASSOCIATED( grid%fz0 ) ) THEN DEALLOCATE(grid%fz0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fz0. ') endif NULLIFY(grid%fz0) ENDIF IF ( ASSOCIATED( grid%fs_count_landed_all ) ) THEN DEALLOCATE(grid%fs_count_landed_all,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_count_landed_all. ') endif NULLIFY(grid%fs_count_landed_all) ENDIF IF ( ASSOCIATED( grid%fs_p_mass ) ) THEN DEALLOCATE(grid%fs_p_mass,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_mass. ') endif NULLIFY(grid%fs_p_mass) ENDIF IF ( ASSOCIATED( grid%avgflx_efu1 ) ) THEN DEALLOCATE(grid%avgflx_efu1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_efu1. ') endif NULLIFY(grid%avgflx_efu1) ENDIF IF ( ASSOCIATED( grid%vertstrucs ) ) THEN DEALLOCATE(grid%vertstrucs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertstrucs. ') endif NULLIFY(grid%vertstrucs) ENDIF IF ( ASSOCIATED( grid%rand_real ) ) THEN DEALLOCATE(grid%rand_real,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rand_real. ') endif NULLIFY(grid%rand_real) ENDIF IF ( ASSOCIATED( grid%spforcs2 ) ) THEN DEALLOCATE(grid%spforcs2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcs2. ') endif NULLIFY(grid%spforcs2) ENDIF IF ( ASSOCIATED( grid%spptforcs ) ) THEN DEALLOCATE(grid%spptforcs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spptforcs. ') endif NULLIFY(grid%spptforcs) ENDIF IF ( ASSOCIATED( grid%rand_imag_xxx ) ) THEN DEALLOCATE(grid%rand_imag_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rand_imag_xxx. ') endif NULLIFY(grid%rand_imag_xxx) ENDIF IF ( ASSOCIATED( grid%lengthscale_mult3d ) ) THEN DEALLOCATE(grid%lengthscale_mult3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lengthscale_mult3d. ') endif NULLIFY(grid%lengthscale_mult3d) ENDIF IF ( ASSOCIATED( grid%precz ) ) THEN DEALLOCATE(grid%precz,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%precz. ') endif NULLIFY(grid%precz) ENDIF IF ( ASSOCIATED( grid%zmntsnpd ) ) THEN DEALLOCATE(grid%zmntsnpd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmntsnpd. ') endif NULLIFY(grid%zmntsnpd) ENDIF IF ( ASSOCIATED( grid%zmupgd ) ) THEN DEALLOCATE(grid%zmupgd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmupgd. ') endif NULLIFY(grid%zmupgd) ENDIF IF ( ASSOCIATED( grid%ed3d ) ) THEN DEALLOCATE(grid%ed3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ed3d. ') endif NULLIFY(grid%ed3d) ENDIF IF ( ASSOCIATED( grid%cmfmc2 ) ) THEN DEALLOCATE(grid%cmfmc2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmfmc2. ') endif NULLIFY(grid%cmfmc2) ENDIF IF ( ASSOCIATED( grid%uflx_cu ) ) THEN DEALLOCATE(grid%uflx_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uflx_cu. ') endif NULLIFY(grid%uflx_cu) ENDIF IF ( ASSOCIATED( grid%winvbase_cu ) ) THEN DEALLOCATE(grid%winvbase_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%winvbase_cu. ') endif NULLIFY(grid%winvbase_cu) ENDIF IF ( ASSOCIATED( grid%cinlcl_cu ) ) THEN DEALLOCATE(grid%cinlcl_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cinlcl_cu. ') endif NULLIFY(grid%cinlcl_cu) ENDIF IF ( ASSOCIATED( grid%thvu_cu ) ) THEN DEALLOCATE(grid%thvu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thvu_cu. ') endif NULLIFY(grid%thvu_cu) ENDIF IF ( ASSOCIATED( grid%cufrc_cu ) ) THEN DEALLOCATE(grid%cufrc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cufrc_cu. ') endif NULLIFY(grid%cufrc_cu) ENDIF IF ( ASSOCIATED( grid%excessu0_cu ) ) THEN DEALLOCATE(grid%excessu0_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%excessu0_cu. ') endif NULLIFY(grid%excessu0_cu) ENDIF IF ( ASSOCIATED( grid%exit_wtw_cu ) ) THEN DEALLOCATE(grid%exit_wtw_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_wtw_cu. ') endif NULLIFY(grid%exit_wtw_cu) ENDIF IF ( ASSOCIATED( grid%limit_cin_cu ) ) THEN DEALLOCATE(grid%limit_cin_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_cin_cu. ') endif NULLIFY(grid%limit_cin_cu) ENDIF IF ( ASSOCIATED( grid%cldfrai ) ) THEN DEALLOCATE(grid%cldfrai,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfrai. ') endif NULLIFY(grid%cldfrai) ENDIF IF ( ASSOCIATED( grid%snowdp ) ) THEN DEALLOCATE(grid%snowdp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowdp. ') endif NULLIFY(grid%snowdp) ENDIF IF ( ASSOCIATED( grid%fsd240 ) ) THEN DEALLOCATE(grid%fsd240,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsd240. ') endif NULLIFY(grid%fsd240) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq_s2 ) ) THEN DEALLOCATE(grid%h2osoi_liq_s2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq_s2. ') endif NULLIFY(grid%h2osoi_liq_s2) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq9 ) ) THEN DEALLOCATE(grid%h2osoi_liq9,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq9. ') endif NULLIFY(grid%h2osoi_liq9) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice6 ) ) THEN DEALLOCATE(grid%h2osoi_ice6,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice6. ') endif NULLIFY(grid%h2osoi_ice6) ENDIF IF ( ASSOCIATED( grid%t_soisno3 ) ) THEN DEALLOCATE(grid%t_soisno3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno3. ') endif NULLIFY(grid%t_soisno3) ENDIF IF ( ASSOCIATED( grid%dzsnow5 ) ) THEN DEALLOCATE(grid%dzsnow5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzsnow5. ') endif NULLIFY(grid%dzsnow5) ENDIF IF ( ASSOCIATED( grid%t_lake7 ) ) THEN DEALLOCATE(grid%t_lake7,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake7. ') endif NULLIFY(grid%t_lake7) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol9 ) ) THEN DEALLOCATE(grid%h2osoi_vol9,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol9. ') endif NULLIFY(grid%h2osoi_vol9) ENDIF IF ( ASSOCIATED( grid%lakedepth2d ) ) THEN DEALLOCATE(grid%lakedepth2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lakedepth2d. ') endif NULLIFY(grid%lakedepth2d) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq3d ) ) THEN DEALLOCATE(grid%h2osoi_liq3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq3d. ') endif NULLIFY(grid%h2osoi_liq3d) ENDIF IF ( ASSOCIATED( grid%ssib_eci ) ) THEN DEALLOCATE(grid%ssib_eci,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_eci. ') endif NULLIFY(grid%ssib_eci) ENDIF IF ( ASSOCIATED( grid%ssib_vcf ) ) THEN DEALLOCATE(grid%ssib_vcf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_vcf. ') endif NULLIFY(grid%ssib_vcf) ENDIF IF ( ASSOCIATED( grid%bwo1 ) ) THEN DEALLOCATE(grid%bwo1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bwo1. ') endif NULLIFY(grid%bwo1) ENDIF IF ( ASSOCIATED( grid%bwo2 ) ) THEN DEALLOCATE(grid%bwo2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bwo2. ') endif NULLIFY(grid%bwo2) ENDIF IF ( ASSOCIATED( grid%bwo3 ) ) THEN DEALLOCATE(grid%bwo3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bwo3. ') endif NULLIFY(grid%bwo3) ENDIF IF ( ASSOCIATED( grid%bwo4 ) ) THEN DEALLOCATE(grid%bwo4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bwo4. ') endif NULLIFY(grid%bwo4) ENDIF IF ( ASSOCIATED( grid%canliqxy ) ) THEN DEALLOCATE(grid%canliqxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%canliqxy. ') endif NULLIFY(grid%canliqxy) ENDIF IF ( ASSOCIATED( grid%waxy ) ) THEN DEALLOCATE(grid%waxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%waxy. ') endif NULLIFY(grid%waxy) ENDIF IF ( ASSOCIATED( grid%xsaixy ) ) THEN DEALLOCATE(grid%xsaixy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xsaixy. ') endif NULLIFY(grid%xsaixy) ENDIF IF ( ASSOCIATED( grid%runsfxy ) ) THEN DEALLOCATE(grid%runsfxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%runsfxy. ') endif NULLIFY(grid%runsfxy) ENDIF IF ( ASSOCIATED( grid%rsshaxy ) ) THEN DEALLOCATE(grid%rsshaxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rsshaxy. ') endif NULLIFY(grid%rsshaxy) ENDIF IF ( ASSOCIATED( grid%ghvxy ) ) THEN DEALLOCATE(grid%ghvxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ghvxy. ') endif NULLIFY(grid%ghvxy) ENDIF IF ( ASSOCIATED( grid%smoiseq ) ) THEN DEALLOCATE(grid%smoiseq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smoiseq. ') endif NULLIFY(grid%smoiseq) ENDIF IF ( ASSOCIATED( grid%qlatxy ) ) THEN DEALLOCATE(grid%qlatxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qlatxy. ') endif NULLIFY(grid%qlatxy) ENDIF IF ( ASSOCIATED( grid%qthrosxy ) ) THEN DEALLOCATE(grid%qthrosxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qthrosxy. ') endif NULLIFY(grid%qthrosxy) ENDIF IF ( ASSOCIATED( grid%pondingxy ) ) THEN DEALLOCATE(grid%pondingxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pondingxy. ') endif NULLIFY(grid%pondingxy) ENDIF IF ( ASSOCIATED( grid%soilcl3 ) ) THEN DEALLOCATE(grid%soilcl3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcl3. ') endif NULLIFY(grid%soilcl3) ENDIF IF ( ASSOCIATED( grid%forcwlsm ) ) THEN DEALLOCATE(grid%forcwlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%forcwlsm. ') endif NULLIFY(grid%forcwlsm) ENDIF IF ( ASSOCIATED( grid%acfroc ) ) THEN DEALLOCATE(grid%acfroc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acfroc. ') endif NULLIFY(grid%acfroc) ENDIF IF ( ASSOCIATED( grid%acirb ) ) THEN DEALLOCATE(grid%acirb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acirb. ') endif NULLIFY(grid%acirb) ENDIF IF ( ASSOCIATED( grid%acirc ) ) THEN DEALLOCATE(grid%acirc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acirc. ') endif NULLIFY(grid%acirc) ENDIF IF ( ASSOCIATED( grid%acpahlsm ) ) THEN DEALLOCATE(grid%acpahlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acpahlsm. ') endif NULLIFY(grid%acpahlsm) ENDIF IF ( ASSOCIATED( grid%acc_ecanxy ) ) THEN DEALLOCATE(grid%acc_ecanxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_ecanxy. ') endif NULLIFY(grid%acc_ecanxy) ENDIF IF ( ASSOCIATED( grid%td_fraction ) ) THEN DEALLOCATE(grid%td_fraction,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%td_fraction. ') endif NULLIFY(grid%td_fraction) ENDIF IF ( ASSOCIATED( grid%irsivol ) ) THEN DEALLOCATE(grid%irsivol,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irsivol. ') endif NULLIFY(grid%irsivol) ENDIF IF ( ASSOCIATED( grid%kext_qa ) ) THEN DEALLOCATE(grid%kext_qa,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_qa. ') endif NULLIFY(grid%kext_qa) ENDIF IF ( ASSOCIATED( grid%tcoli_max ) ) THEN DEALLOCATE(grid%tcoli_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tcoli_max. ') endif NULLIFY(grid%tcoli_max) ENDIF IF ( ASSOCIATED( grid%qicing_lg_max ) ) THEN DEALLOCATE(grid%qicing_lg_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qicing_lg_max. ') endif NULLIFY(grid%qicing_lg_max) ENDIF IF ( ASSOCIATED( grid%afwa_llturblgt ) ) THEN DEALLOCATE(grid%afwa_llturblgt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_llturblgt. ') endif NULLIFY(grid%afwa_llturblgt) ENDIF IF ( ASSOCIATED( grid%afwa_vis_dust ) ) THEN DEALLOCATE(grid%afwa_vis_dust,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_vis_dust. ') endif NULLIFY(grid%afwa_vis_dust) ENDIF IF ( ASSOCIATED( grid%midrh_min_old ) ) THEN DEALLOCATE(grid%midrh_min_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%midrh_min_old. ') endif NULLIFY(grid%midrh_min_old) ENDIF IF ( ASSOCIATED( grid%hfx_mean ) ) THEN DEALLOCATE(grid%hfx_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfx_mean. ') endif NULLIFY(grid%hfx_mean) ENDIF IF ( ASSOCIATED( grid%psfc_diurn ) ) THEN DEALLOCATE(grid%psfc_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psfc_diurn. ') endif NULLIFY(grid%psfc_diurn) ENDIF IF ( ASSOCIATED( grid%swupb_diurn ) ) THEN DEALLOCATE(grid%swupb_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupb_diurn. ') endif NULLIFY(grid%swupb_diurn) ENDIF IF ( ASSOCIATED( grid%u10_dtmp ) ) THEN DEALLOCATE(grid%u10_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10_dtmp. ') endif NULLIFY(grid%u10_dtmp) ENDIF IF ( ASSOCIATED( grid%lightdis ) ) THEN DEALLOCATE(grid%lightdis,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lightdis. ') endif NULLIFY(grid%lightdis) ENDIF IF ( ASSOCIATED( grid%c3f ) ) THEN DEALLOCATE(grid%c3f,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c3f. ') endif NULLIFY(grid%c3f) ENDIF IF ( ASSOCIATED( grid%qnbca_gc ) ) THEN DEALLOCATE(grid%qnbca_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnbca_gc. ') endif NULLIFY(grid%qnbca_gc) ENDIF IF ( ASSOCIATED( grid%p_wif_oct ) ) THEN DEALLOCATE(grid%p_wif_oct,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_oct. ') endif NULLIFY(grid%p_wif_oct) ENDIF IF ( ASSOCIATED( grid%w_wif_sep ) ) THEN DEALLOCATE(grid%w_wif_sep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_sep. ') endif NULLIFY(grid%w_wif_sep) ENDIF IF ( ASSOCIATED( grid%i_wif_aug ) ) THEN DEALLOCATE(grid%i_wif_aug,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_aug. ') endif NULLIFY(grid%i_wif_aug) ENDIF IF ( ASSOCIATED( grid%b_wif_jul ) ) THEN DEALLOCATE(grid%b_wif_jul,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_jul. ') endif NULLIFY(grid%b_wif_jul) ENDIF IF ( ASSOCIATED( grid%vmet ) ) THEN DEALLOCATE(grid%vmet,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vmet. ') endif NULLIFY(grid%vmet) ENDIF IF ( ASSOCIATED( grid%wvp ) ) THEN DEALLOCATE(grid%wvp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wvp. ') endif NULLIFY(grid%wvp) ENDIF IF ( ASSOCIATED( grid%re_qi_tot ) ) THEN DEALLOCATE(grid%re_qi_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_qi_tot. ') endif NULLIFY(grid%re_qi_tot) ENDIF IF ( ASSOCIATED( grid%ghi_accum ) ) THEN DEALLOCATE(grid%ghi_accum,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ghi_accum. ') endif NULLIFY(grid%ghi_accum) ENDIF IF ( ASSOCIATED( grid%ts_re_qs ) ) THEN DEALLOCATE(grid%ts_re_qs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_re_qs. ') endif NULLIFY(grid%ts_re_qs) ENDIF IF ( ASSOCIATED( grid%ts_clrnidx ) ) THEN DEALLOCATE(grid%ts_clrnidx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_clrnidx. ') endif NULLIFY(grid%ts_clrnidx) ENDIF IF ( ASSOCIATED( grid%ts_swddnic2 ) ) THEN DEALLOCATE(grid%ts_swddnic2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swddnic2. ') endif NULLIFY(grid%ts_swddnic2) ENDIF IF ( ASSOCIATED( grid%t_pl ) ) THEN DEALLOCATE(grid%t_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_pl. ') endif NULLIFY(grid%t_pl) ENDIF IF ( ASSOCIATED( grid%z_zl ) ) THEN DEALLOCATE(grid%z_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z_zl. ') endif NULLIFY(grid%z_zl) ENDIF IF ( ASSOCIATED( grid%u_iau ) ) THEN DEALLOCATE(grid%u_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_iau. ') endif NULLIFY(grid%u_iau) ENDIF IF ( ASSOCIATED( grid%ruiauten ) ) THEN DEALLOCATE(grid%ruiauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ruiauten. ') endif NULLIFY(grid%ruiauten) ENDIF END SUBROUTINE deallocs_8 !ENDOFREGISTRYGENERATEDINCLUDE