!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_4.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_4( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%znu ) ) THEN DEALLOCATE(grid%znu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%znu. ') endif NULLIFY(grid%znu) ENDIF IF ( ASSOCIATED( grid%rh_gc ) ) THEN DEALLOCATE(grid%rh_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_gc. ') endif NULLIFY(grid%rh_gc) ENDIF IF ( ASSOCIATED( grid%pslv_gc ) ) THEN DEALLOCATE(grid%pslv_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pslv_gc. ') endif NULLIFY(grid%pslv_gc) ENDIF IF ( ASSOCIATED( grid%sh_gc ) ) THEN DEALLOCATE(grid%sh_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sh_gc. ') endif NULLIFY(grid%sh_gc) ENDIF IF ( ASSOCIATED( grid%qnc_gc ) ) THEN DEALLOCATE(grid%qnc_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnc_gc. ') endif NULLIFY(grid%qnc_gc) ENDIF IF ( ASSOCIATED( grid%min_p ) ) THEN DEALLOCATE(grid%min_p,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%min_p. ') endif NULLIFY(grid%min_p) ENDIF IF ( ASSOCIATED( grid%vtrop ) ) THEN DEALLOCATE(grid%vtrop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vtrop. ') endif NULLIFY(grid%vtrop) ENDIF IF ( ASSOCIATED( grid%z_force ) ) THEN DEALLOCATE(grid%z_force,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z_force. ') endif NULLIFY(grid%z_force) ENDIF IF ( ASSOCIATED( grid%v_g ) ) THEN DEALLOCATE(grid%v_g,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_g. ') endif NULLIFY(grid%v_g) ENDIF IF ( ASSOCIATED( grid%th_upstream_x ) ) THEN DEALLOCATE(grid%th_upstream_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_upstream_x. ') endif NULLIFY(grid%th_upstream_x) ENDIF IF ( ASSOCIATED( grid%u_upstream_x ) ) THEN DEALLOCATE(grid%u_upstream_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_upstream_x. ') endif NULLIFY(grid%u_upstream_x) ENDIF IF ( ASSOCIATED( grid%qv_largescale ) ) THEN DEALLOCATE(grid%qv_largescale,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_largescale. ') endif NULLIFY(grid%qv_largescale) ENDIF IF ( ASSOCIATED( grid%tau_y ) ) THEN DEALLOCATE(grid%tau_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_y. ') endif NULLIFY(grid%tau_y) ENDIF IF ( ASSOCIATED( grid%muv ) ) THEN DEALLOCATE(grid%muv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%muv. ') endif NULLIFY(grid%muv) ENDIF IF ( ASSOCIATED( grid%zx ) ) THEN DEALLOCATE(grid%zx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zx. ') endif NULLIFY(grid%zx) ENDIF IF ( ASSOCIATED( grid%z_at_w ) ) THEN DEALLOCATE(grid%z_at_w,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z_at_w. ') endif NULLIFY(grid%z_at_w) ENDIF IF ( ASSOCIATED( grid%tratx ) ) THEN DEALLOCATE(grid%tratx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tratx. ') endif NULLIFY(grid%tratx) ENDIF IF ( ASSOCIATED( grid%moist_btxs ) ) THEN DEALLOCATE(grid%moist_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%moist_btxs. ') endif NULLIFY(grid%moist_btxs) ENDIF IF ( ASSOCIATED( grid%moist_btxe ) ) THEN DEALLOCATE(grid%moist_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%moist_btxe. ') endif NULLIFY(grid%moist_btxe) ENDIF IF ( ASSOCIATED( grid%moist_btys ) ) THEN DEALLOCATE(grid%moist_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%moist_btys. ') endif NULLIFY(grid%moist_btys) ENDIF IF ( ASSOCIATED( grid%moist_btye ) ) THEN DEALLOCATE(grid%moist_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%moist_btye. ') endif NULLIFY(grid%moist_btye) ENDIF IF ( ASSOCIATED( grid%re_ice ) ) THEN DEALLOCATE(grid%re_ice,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_ice. ') endif NULLIFY(grid%re_ice) ENDIF IF ( ASSOCIATED( grid%dfi_re_rain_gsfc ) ) THEN DEALLOCATE(grid%dfi_re_rain_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_rain_gsfc. ') endif NULLIFY(grid%dfi_re_rain_gsfc) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_bxs ) ) THEN DEALLOCATE(grid%dfi_scalar_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_bxs. ') endif NULLIFY(grid%dfi_scalar_bxs) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_bxe ) ) THEN DEALLOCATE(grid%dfi_scalar_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_bxe. ') endif NULLIFY(grid%dfi_scalar_bxe) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_bys ) ) THEN DEALLOCATE(grid%dfi_scalar_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_bys. ') endif NULLIFY(grid%dfi_scalar_bys) ENDIF IF ( ASSOCIATED( grid%dfi_scalar_bye ) ) THEN DEALLOCATE(grid%dfi_scalar_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_scalar_bye. ') endif NULLIFY(grid%dfi_scalar_bye) ENDIF IF ( ASSOCIATED( grid%sm000007 ) ) THEN DEALLOCATE(grid%sm000007,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm000007. ') endif NULLIFY(grid%sm000007) ENDIF IF ( ASSOCIATED( grid%sm010200 ) ) THEN DEALLOCATE(grid%sm010200,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm010200. ') endif NULLIFY(grid%sm010200) ENDIF IF ( ASSOCIATED( grid%soilw000 ) ) THEN DEALLOCATE(grid%soilw000,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilw000. ') endif NULLIFY(grid%soilw000) ENDIF IF ( ASSOCIATED( grid%soilt005 ) ) THEN DEALLOCATE(grid%soilt005,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt005. ') endif NULLIFY(grid%soilt005) ENDIF IF ( ASSOCIATED( grid%shdavg ) ) THEN DEALLOCATE(grid%shdavg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%shdavg. ') endif NULLIFY(grid%shdavg) ENDIF IF ( ASSOCIATED( grid%ts_hour ) ) THEN DEALLOCATE(grid%ts_hour,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_hour. ') endif NULLIFY(grid%ts_hour) ENDIF IF ( ASSOCIATED( grid%ts_clw ) ) THEN DEALLOCATE(grid%ts_clw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_clw. ') endif NULLIFY(grid%ts_clw) ENDIF IF ( ASSOCIATED( grid%dzg ) ) THEN DEALLOCATE(grid%dzg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzg. ') endif NULLIFY(grid%dzg) ENDIF IF ( ASSOCIATED( grid%ahe ) ) THEN DEALLOCATE(grid%ahe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ahe. ') endif NULLIFY(grid%ahe) ENDIF IF ( ASSOCIATED( grid%sfcheadrt ) ) THEN DEALLOCATE(grid%sfcheadrt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfcheadrt. ') endif NULLIFY(grid%sfcheadrt) ENDIF IF ( ASSOCIATED( grid%sfcexc ) ) THEN DEALLOCATE(grid%sfcexc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfcexc. ') endif NULLIFY(grid%sfcexc) ENDIF IF ( ASSOCIATED( grid%xlaidyn ) ) THEN DEALLOCATE(grid%xlaidyn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xlaidyn. ') endif NULLIFY(grid%xlaidyn) ENDIF IF ( ASSOCIATED( grid%dfi_phb ) ) THEN DEALLOCATE(grid%dfi_phb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_phb. ') endif NULLIFY(grid%dfi_phb) ENDIF IF ( ASSOCIATED( grid%dfi_tke ) ) THEN DEALLOCATE(grid%dfi_tke,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_tke. ') endif NULLIFY(grid%dfi_tke) ENDIF IF ( ASSOCIATED( grid%tb_urb2d ) ) THEN DEALLOCATE(grid%tb_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tb_urb2d. ') endif NULLIFY(grid%tb_urb2d) ENDIF IF ( ASSOCIATED( grid%drelg_urb2d ) ) THEN DEALLOCATE(grid%drelg_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%drelg_urb2d. ') endif NULLIFY(grid%drelg_urb2d) ENDIF IF ( ASSOCIATED( grid%rn_urb2d ) ) THEN DEALLOCATE(grid%rn_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rn_urb2d. ') endif NULLIFY(grid%rn_urb2d) ENDIF IF ( ASSOCIATED( grid%tglev_urb3d ) ) THEN DEALLOCATE(grid%tglev_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tglev_urb3d. ') endif NULLIFY(grid%tglev_urb3d) ENDIF IF ( ASSOCIATED( grid%sfg_urb3d ) ) THEN DEALLOCATE(grid%sfg_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfg_urb3d. ') endif NULLIFY(grid%sfg_urb3d) ENDIF IF ( ASSOCIATED( grid%dg_urb3d ) ) THEN DEALLOCATE(grid%dg_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dg_urb3d. ') endif NULLIFY(grid%dg_urb3d) ENDIF IF ( ASSOCIATED( grid%swnirdir ) ) THEN DEALLOCATE(grid%swnirdir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swnirdir. ') endif NULLIFY(grid%swnirdir) ENDIF IF ( ASSOCIATED( grid%imperv ) ) THEN DEALLOCATE(grid%imperv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%imperv. ') endif NULLIFY(grid%imperv) ENDIF IF ( ASSOCIATED( grid%fh ) ) THEN DEALLOCATE(grid%fh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fh. ') endif NULLIFY(grid%fh) ENDIF IF ( ASSOCIATED( grid%thz0 ) ) THEN DEALLOCATE(grid%thz0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thz0. ') endif NULLIFY(grid%thz0) ENDIF IF ( ASSOCIATED( grid%tshltr ) ) THEN DEALLOCATE(grid%tshltr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tshltr. ') endif NULLIFY(grid%tshltr) ENDIF IF ( ASSOCIATED( grid%rt_up ) ) THEN DEALLOCATE(grid%rt_up,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rt_up. ') endif NULLIFY(grid%rt_up) ENDIF IF ( ASSOCIATED( grid%vw_temf ) ) THEN DEALLOCATE(grid%vw_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vw_temf. ') endif NULLIFY(grid%vw_temf) ENDIF IF ( ASSOCIATED( grid%qke ) ) THEN DEALLOCATE(grid%qke,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qke. ') endif NULLIFY(grid%qke) ENDIF IF ( ASSOCIATED( grid%edmf_a ) ) THEN DEALLOCATE(grid%edmf_a,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edmf_a. ') endif NULLIFY(grid%edmf_a) ENDIF IF ( ASSOCIATED( grid%ztop_plume ) ) THEN DEALLOCATE(grid%ztop_plume,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ztop_plume. ') endif NULLIFY(grid%ztop_plume) ENDIF IF ( ASSOCIATED( grid%oa2 ) ) THEN DEALLOCATE(grid%oa2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa2. ') endif NULLIFY(grid%oa2) ENDIF IF ( ASSOCIATED( grid%dtauy3d_ss ) ) THEN DEALLOCATE(grid%dtauy3d_ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtauy3d_ss. ') endif NULLIFY(grid%dtauy3d_ss) ENDIF IF ( ASSOCIATED( grid%oc12dls ) ) THEN DEALLOCATE(grid%oc12dls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oc12dls. ') endif NULLIFY(grid%oc12dls) ENDIF IF ( ASSOCIATED( grid%oa2ss ) ) THEN DEALLOCATE(grid%oa2ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa2ss. ') endif NULLIFY(grid%oa2ss) ENDIF IF ( ASSOCIATED( grid%a_q_bep ) ) THEN DEALLOCATE(grid%a_q_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%a_q_bep. ') endif NULLIFY(grid%a_q_bep) ENDIF IF ( ASSOCIATED( grid%el_pbl ) ) THEN DEALLOCATE(grid%el_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%el_pbl. ') endif NULLIFY(grid%el_pbl) ENDIF IF ( ASSOCIATED( grid%cutop ) ) THEN DEALLOCATE(grid%cutop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cutop. ') endif NULLIFY(grid%cutop) ENDIF IF ( ASSOCIATED( grid%ncfrcv ) ) THEN DEALLOCATE(grid%ncfrcv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ncfrcv. ') endif NULLIFY(grid%ncfrcv) ENDIF IF ( ASSOCIATED( grid%pin ) ) THEN DEALLOCATE(grid%pin,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pin. ') endif NULLIFY(grid%pin) ENDIF IF ( ASSOCIATED( grid%om_v ) ) THEN DEALLOCATE(grid%om_v,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_v. ') endif NULLIFY(grid%om_v) ENDIF IF ( ASSOCIATED( grid%taucloud ) ) THEN DEALLOCATE(grid%taucloud,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%taucloud. ') endif NULLIFY(grid%taucloud) ENDIF IF ( ASSOCIATED( grid%wact_cup ) ) THEN DEALLOCATE(grid%wact_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wact_cup. ') endif NULLIFY(grid%wact_cup) ENDIF IF ( ASSOCIATED( grid%h_diabatic ) ) THEN DEALLOCATE(grid%h_diabatic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h_diabatic. ') endif NULLIFY(grid%h_diabatic) ENDIF IF ( ASSOCIATED( grid%msfvy ) ) THEN DEALLOCATE(grid%msfvy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msfvy. ') endif NULLIFY(grid%msfvy) ENDIF IF ( ASSOCIATED( grid%ht_shad_btxs ) ) THEN DEALLOCATE(grid%ht_shad_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_shad_btxs. ') endif NULLIFY(grid%ht_shad_btxs) ENDIF IF ( ASSOCIATED( grid%ht_shad_btxe ) ) THEN DEALLOCATE(grid%ht_shad_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_shad_btxe. ') endif NULLIFY(grid%ht_shad_btxe) ENDIF IF ( ASSOCIATED( grid%ht_shad_btys ) ) THEN DEALLOCATE(grid%ht_shad_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_shad_btys. ') endif NULLIFY(grid%ht_shad_btys) ENDIF IF ( ASSOCIATED( grid%ht_shad_btye ) ) THEN DEALLOCATE(grid%ht_shad_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_shad_btye. ') endif NULLIFY(grid%ht_shad_btye) ENDIF IF ( ASSOCIATED( grid%physc ) ) THEN DEALLOCATE(grid%physc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%physc. ') endif NULLIFY(grid%physc) ENDIF IF ( ASSOCIATED( grid%acphysf ) ) THEN DEALLOCATE(grid%acphysf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acphysf. ') endif NULLIFY(grid%acphysf) ENDIF IF ( ASSOCIATED( grid%sswdn ) ) THEN DEALLOCATE(grid%sswdn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sswdn. ') endif NULLIFY(grid%sswdn) ENDIF IF ( ASSOCIATED( grid%rqgshten ) ) THEN DEALLOCATE(grid%rqgshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqgshten. ') endif NULLIFY(grid%rqgshten) ENDIF IF ( ASSOCIATED( grid%cldtopb ) ) THEN DEALLOCATE(grid%cldtopb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldtopb. ') endif NULLIFY(grid%cldtopb) ENDIF IF ( ASSOCIATED( grid%tkeavg ) ) THEN DEALLOCATE(grid%tkeavg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tkeavg. ') endif NULLIFY(grid%tkeavg) ENDIF IF ( ASSOCIATED( grid%w0avg ) ) THEN DEALLOCATE(grid%w0avg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w0avg. ') endif NULLIFY(grid%w0avg) ENDIF IF ( ASSOCIATED( grid%rainncv ) ) THEN DEALLOCATE(grid%rainncv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainncv. ') endif NULLIFY(grid%rainncv) ENDIF IF ( ASSOCIATED( grid%vmi3d ) ) THEN DEALLOCATE(grid%vmi3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vmi3d. ') endif NULLIFY(grid%vmi3d) ENDIF IF ( ASSOCIATED( grid%itype ) ) THEN DEALLOCATE(grid%itype,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%itype. ') endif NULLIFY(grid%itype) ENDIF IF ( ASSOCIATED( grid%uer_kf ) ) THEN DEALLOCATE(grid%uer_kf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uer_kf. ') endif NULLIFY(grid%uer_kf) ENDIF IF ( ASSOCIATED( grid%xmb_shallow ) ) THEN DEALLOCATE(grid%xmb_shallow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xmb_shallow. ') endif NULLIFY(grid%xmb_shallow) ENDIF IF ( ASSOCIATED( grid%cugd_qvtens ) ) THEN DEALLOCATE(grid%cugd_qvtens,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cugd_qvtens. ') endif NULLIFY(grid%cugd_qvtens) ENDIF IF ( ASSOCIATED( grid%qs_cu ) ) THEN DEALLOCATE(grid%qs_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qs_cu. ') endif NULLIFY(grid%qs_cu) ENDIF IF ( ASSOCIATED( grid%efss ) ) THEN DEALLOCATE(grid%efss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%efss. ') endif NULLIFY(grid%efss) ENDIF IF ( ASSOCIATED( grid%rthften ) ) THEN DEALLOCATE(grid%rthften,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthften. ') endif NULLIFY(grid%rthften) ENDIF IF ( ASSOCIATED( grid%cldfra_bl ) ) THEN DEALLOCATE(grid%cldfra_bl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra_bl. ') endif NULLIFY(grid%cldfra_bl) ENDIF IF ( ASSOCIATED( grid%swddirc ) ) THEN DEALLOCATE(grid%swddirc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddirc. ') endif NULLIFY(grid%swddirc) ENDIF IF ( ASSOCIATED( grid%swdown_ref ) ) THEN DEALLOCATE(grid%swdown_ref,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdown_ref. ') endif NULLIFY(grid%swdown_ref) ENDIF IF ( ASSOCIATED( grid%tt2max ) ) THEN DEALLOCATE(grid%tt2max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tt2max. ') endif NULLIFY(grid%tt2max) ENDIF IF ( ASSOCIATED( grid%tskintempmax ) ) THEN DEALLOCATE(grid%tskintempmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tskintempmax. ') endif NULLIFY(grid%tskintempmax) ENDIF IF ( ASSOCIATED( grid%spduv10std ) ) THEN DEALLOCATE(grid%spduv10std,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spduv10std. ') endif NULLIFY(grid%spduv10std) ENDIF IF ( ASSOCIATED( grid%acswdnt ) ) THEN DEALLOCATE(grid%acswdnt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswdnt. ') endif NULLIFY(grid%acswdnt) ENDIF IF ( ASSOCIATED( grid%aclwdnb ) ) THEN DEALLOCATE(grid%aclwdnb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwdnb. ') endif NULLIFY(grid%aclwdnb) ENDIF IF ( ASSOCIATED( grid%i_aclwdnt ) ) THEN DEALLOCATE(grid%i_aclwdnt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwdnt. ') endif NULLIFY(grid%i_aclwdnt) ENDIF IF ( ASSOCIATED( grid%swupb ) ) THEN DEALLOCATE(grid%swupb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupb. ') endif NULLIFY(grid%swupb) ENDIF IF ( ASSOCIATED( grid%lwupb ) ) THEN DEALLOCATE(grid%lwupb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupb. ') endif NULLIFY(grid%lwupb) ENDIF IF ( ASSOCIATED( grid%xlong_v ) ) THEN DEALLOCATE(grid%xlong_v,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xlong_v. ') endif NULLIFY(grid%xlong_v) ENDIF IF ( ASSOCIATED( grid%rthblten ) ) THEN DEALLOCATE(grid%rthblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthblten. ') endif NULLIFY(grid%rthblten) ENDIF IF ( ASSOCIATED( grid%smois_mosaic ) ) THEN DEALLOCATE(grid%smois_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smois_mosaic. ') endif NULLIFY(grid%smois_mosaic) ENDIF IF ( ASSOCIATED( grid%lai_mosaic ) ) THEN DEALLOCATE(grid%lai_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lai_mosaic. ') endif NULLIFY(grid%lai_mosaic) ENDIF IF ( ASSOCIATED( grid%ts_rul2d_mosaic ) ) THEN DEALLOCATE(grid%ts_rul2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_rul2d_mosaic. ') endif NULLIFY(grid%ts_rul2d_mosaic) ENDIF IF ( ASSOCIATED( grid%mp_restart_state ) ) THEN DEALLOCATE(grid%mp_restart_state,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mp_restart_state. ') endif NULLIFY(grid%mp_restart_state) ENDIF IF ( ASSOCIATED( grid%u_phy ) ) THEN DEALLOCATE(grid%u_phy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_phy. ') endif NULLIFY(grid%u_phy) ENDIF IF ( ASSOCIATED( grid%mol ) ) THEN DEALLOCATE(grid%mol,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mol. ') endif NULLIFY(grid%mol) ENDIF IF ( ASSOCIATED( grid%qsg ) ) THEN DEALLOCATE(grid%qsg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsg. ') endif NULLIFY(grid%qsg) ENDIF IF ( ASSOCIATED( grid%mavail ) ) THEN DEALLOCATE(grid%mavail,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mavail. ') endif NULLIFY(grid%mavail) ENDIF IF ( ASSOCIATED( grid%defor33 ) ) THEN DEALLOCATE(grid%defor33,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%defor33. ') endif NULLIFY(grid%defor33) ENDIF IF ( ASSOCIATED( grid%v10_ndg_new ) ) THEN DEALLOCATE(grid%v10_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10_ndg_new. ') endif NULLIFY(grid%v10_ndg_new) ENDIF IF ( ASSOCIATED( grid%ps_ndg_new ) ) THEN DEALLOCATE(grid%ps_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ps_ndg_new. ') endif NULLIFY(grid%ps_ndg_new) ENDIF IF ( ASSOCIATED( grid%hfx_fdda ) ) THEN DEALLOCATE(grid%hfx_fdda,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfx_fdda. ') endif NULLIFY(grid%hfx_fdda) ENDIF IF ( ASSOCIATED( grid%refd_max ) ) THEN DEALLOCATE(grid%refd_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%refd_max. ') endif NULLIFY(grid%refd_max) ENDIF IF ( ASSOCIATED( grid%prec_acc_nc ) ) THEN DEALLOCATE(grid%prec_acc_nc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%prec_acc_nc. ') endif NULLIFY(grid%prec_acc_nc) ENDIF IF ( ASSOCIATED( grid%track_t ) ) THEN DEALLOCATE(grid%track_t,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_t. ') endif NULLIFY(grid%track_t) ENDIF IF ( ASSOCIATED( grid%track_qsnow ) ) THEN DEALLOCATE(grid%track_qsnow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_qsnow. ') endif NULLIFY(grid%track_qsnow) ENDIF IF ( ASSOCIATED( grid%avcuten ) ) THEN DEALLOCATE(grid%avcuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avcuten. ') endif NULLIFY(grid%avcuten) ENDIF IF ( ASSOCIATED( grid%hailcast_diam_max ) ) THEN DEALLOCATE(grid%hailcast_diam_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_diam_max. ') endif NULLIFY(grid%hailcast_diam_max) ENDIF IF ( ASSOCIATED( grid%ht_xxx ) ) THEN DEALLOCATE(grid%ht_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_xxx. ') endif NULLIFY(grid%ht_xxx) ENDIF IF ( ASSOCIATED( grid%dzdxf ) ) THEN DEALLOCATE(grid%dzdxf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzdxf. ') endif NULLIFY(grid%dzdxf) ENDIF IF ( ASSOCIATED( grid%grnhfx_fu ) ) THEN DEALLOCATE(grid%grnhfx_fu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grnhfx_fu. ') endif NULLIFY(grid%grnhfx_fu) ENDIF IF ( ASSOCIATED( grid%uf ) ) THEN DEALLOCATE(grid%uf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uf. ') endif NULLIFY(grid%uf) ENDIF IF ( ASSOCIATED( grid%fmc_gc ) ) THEN DEALLOCATE(grid%fmc_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fmc_gc. ') endif NULLIFY(grid%fmc_gc) ENDIF IF ( ASSOCIATED( grid%phiwc ) ) THEN DEALLOCATE(grid%phiwc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%phiwc. ') endif NULLIFY(grid%phiwc) ENDIF IF ( ASSOCIATED( grid%fs_p_dt ) ) THEN DEALLOCATE(grid%fs_p_dt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_dt. ') endif NULLIFY(grid%fs_p_dt) ENDIF IF ( ASSOCIATED( grid%efd1 ) ) THEN DEALLOCATE(grid%efd1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%efd1. ') endif NULLIFY(grid%efd1) ENDIF IF ( ASSOCIATED( grid%pattern_spp_conv ) ) THEN DEALLOCATE(grid%pattern_spp_conv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pattern_spp_conv. ') endif NULLIFY(grid%pattern_spp_conv) ENDIF IF ( ASSOCIATED( grid%spforcc ) ) THEN DEALLOCATE(grid%spforcc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcc. ') endif NULLIFY(grid%spforcc) ENDIF IF ( ASSOCIATED( grid%spforcc5 ) ) THEN DEALLOCATE(grid%spforcc5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcc5. ') endif NULLIFY(grid%spforcc5) ENDIF IF ( ASSOCIATED( grid%iseedarr_spp_pbl ) ) THEN DEALLOCATE(grid%iseedarr_spp_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iseedarr_spp_pbl. ') endif NULLIFY(grid%iseedarr_spp_pbl) ENDIF IF ( ASSOCIATED( grid%vertstrucc3d ) ) THEN DEALLOCATE(grid%vertstrucc3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertstrucc3d. ') endif NULLIFY(grid%vertstrucc3d) ENDIF IF ( ASSOCIATED( grid%smaw3d ) ) THEN DEALLOCATE(grid%smaw3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smaw3d. ') endif NULLIFY(grid%smaw3d) ENDIF IF ( ASSOCIATED( grid%evapqzm ) ) THEN DEALLOCATE(grid%evapqzm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%evapqzm. ') endif NULLIFY(grid%evapqzm) ENDIF IF ( ASSOCIATED( grid%zmmtv ) ) THEN DEALLOCATE(grid%zmmtv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmmtv. ') endif NULLIFY(grid%zmmtv) ENDIF IF ( ASSOCIATED( grid%icwmrdp3d ) ) THEN DEALLOCATE(grid%icwmrdp3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icwmrdp3d. ') endif NULLIFY(grid%icwmrdp3d) ENDIF IF ( ASSOCIATED( grid%lengath2d ) ) THEN DEALLOCATE(grid%lengath2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lengath2d. ') endif NULLIFY(grid%lengath2d) ENDIF IF ( ASSOCIATED( grid%dlf2 ) ) THEN DEALLOCATE(grid%dlf2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dlf2. ') endif NULLIFY(grid%dlf2) ENDIF IF ( ASSOCIATED( grid%qiten_cu ) ) THEN DEALLOCATE(grid%qiten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qiten_cu. ') endif NULLIFY(grid%qiten_cu) ENDIF IF ( ASSOCIATED( grid%thlsrc_cu ) ) THEN DEALLOCATE(grid%thlsrc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thlsrc_cu. ') endif NULLIFY(grid%thlsrc_cu) ENDIF IF ( ASSOCIATED( grid%wu_cu ) ) THEN DEALLOCATE(grid%wu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wu_cu. ') endif NULLIFY(grid%wu_cu) ENDIF IF ( ASSOCIATED( grid%uemf_cu ) ) THEN DEALLOCATE(grid%uemf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uemf_cu. ') endif NULLIFY(grid%uemf_cu) ENDIF IF ( ASSOCIATED( grid%flxsnow_cu ) ) THEN DEALLOCATE(grid%flxsnow_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flxsnow_cu. ') endif NULLIFY(grid%flxsnow_cu) ENDIF IF ( ASSOCIATED( grid%exit_conden_cu ) ) THEN DEALLOCATE(grid%exit_conden_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_conden_cu. ') endif NULLIFY(grid%exit_conden_cu) ENDIF IF ( ASSOCIATED( grid%limit_ufrc_cu ) ) THEN DEALLOCATE(grid%limit_ufrc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_ufrc_cu. ') endif NULLIFY(grid%limit_ufrc_cu) ENDIF IF ( ASSOCIATED( grid%cldfra_mp_all ) ) THEN DEALLOCATE(grid%cldfra_mp_all,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra_mp_all. ') endif NULLIFY(grid%cldfra_mp_all) ENDIF IF ( ASSOCIATED( grid%lhsoi ) ) THEN DEALLOCATE(grid%lhsoi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lhsoi. ') endif NULLIFY(grid%lhsoi) ENDIF IF ( ASSOCIATED( grid%fsun ) ) THEN DEALLOCATE(grid%fsun,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsun. ') endif NULLIFY(grid%fsun) ENDIF IF ( ASSOCIATED( grid%t2clm ) ) THEN DEALLOCATE(grid%t2clm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2clm. ') endif NULLIFY(grid%t2clm) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq5 ) ) THEN DEALLOCATE(grid%h2osoi_liq5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq5. ') endif NULLIFY(grid%h2osoi_liq5) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice2 ) ) THEN DEALLOCATE(grid%h2osoi_ice2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice2. ') endif NULLIFY(grid%h2osoi_ice2) ENDIF IF ( ASSOCIATED( grid%t_soisno_s4 ) ) THEN DEALLOCATE(grid%t_soisno_s4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno_s4. ') endif NULLIFY(grid%t_soisno_s4) ENDIF IF ( ASSOCIATED( grid%dzsnow1 ) ) THEN DEALLOCATE(grid%dzsnow1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzsnow1. ') endif NULLIFY(grid%dzsnow1) ENDIF IF ( ASSOCIATED( grid%t_lake3 ) ) THEN DEALLOCATE(grid%t_lake3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake3. ') endif NULLIFY(grid%t_lake3) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol5 ) ) THEN DEALLOCATE(grid%h2osoi_vol5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol5. ') endif NULLIFY(grid%h2osoi_vol5) ENDIF IF ( ASSOCIATED( grid%sabgsubgrid ) ) THEN DEALLOCATE(grid%sabgsubgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sabgsubgrid. ') endif NULLIFY(grid%sabgsubgrid) ENDIF IF ( ASSOCIATED( grid%z_lake3d ) ) THEN DEALLOCATE(grid%z_lake3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z_lake3d. ') endif NULLIFY(grid%z_lake3d) ENDIF IF ( ASSOCIATED( grid%tkdry3d ) ) THEN DEALLOCATE(grid%tkdry3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tkdry3d. ') endif NULLIFY(grid%tkdry3d) ENDIF IF ( ASSOCIATED( grid%ssib_lhf ) ) THEN DEALLOCATE(grid%ssib_lhf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_lhf. ') endif NULLIFY(grid%ssib_lhf) ENDIF IF ( ASSOCIATED( grid%ssib_wat ) ) THEN DEALLOCATE(grid%ssib_wat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_wat. ') endif NULLIFY(grid%ssib_wat) ENDIF IF ( ASSOCIATED( grid%dzo1 ) ) THEN DEALLOCATE(grid%dzo1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzo1. ') endif NULLIFY(grid%dzo1) ENDIF IF ( ASSOCIATED( grid%dzo2 ) ) THEN DEALLOCATE(grid%dzo2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzo2. ') endif NULLIFY(grid%dzo2) ENDIF IF ( ASSOCIATED( grid%dzo3 ) ) THEN DEALLOCATE(grid%dzo3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzo3. ') endif NULLIFY(grid%dzo3) ENDIF IF ( ASSOCIATED( grid%dzo4 ) ) THEN DEALLOCATE(grid%dzo4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzo4. ') endif NULLIFY(grid%dzo4) ENDIF IF ( ASSOCIATED( grid%isnowxy ) ) THEN DEALLOCATE(grid%isnowxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%isnowxy. ') endif NULLIFY(grid%isnowxy) ENDIF IF ( ASSOCIATED( grid%qsnowxy ) ) THEN DEALLOCATE(grid%qsnowxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsnowxy. ') endif NULLIFY(grid%qsnowxy) ENDIF IF ( ASSOCIATED( grid%stmassxy ) ) THEN DEALLOCATE(grid%stmassxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%stmassxy. ') endif NULLIFY(grid%stmassxy) ENDIF IF ( ASSOCIATED( grid%gppxy ) ) THEN DEALLOCATE(grid%gppxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gppxy. ') endif NULLIFY(grid%gppxy) ENDIF IF ( ASSOCIATED( grid%psnxy ) ) THEN DEALLOCATE(grid%psnxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psnxy. ') endif NULLIFY(grid%psnxy) ENDIF IF ( ASSOCIATED( grid%shcxy ) ) THEN DEALLOCATE(grid%shcxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%shcxy. ') endif NULLIFY(grid%shcxy) ENDIF IF ( ASSOCIATED( grid%chucxy ) ) THEN DEALLOCATE(grid%chucxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chucxy. ') endif NULLIFY(grid%chucxy) ENDIF IF ( ASSOCIATED( grid%qspringxy ) ) THEN DEALLOCATE(grid%qspringxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qspringxy. ') endif NULLIFY(grid%qspringxy) ENDIF IF ( ASSOCIATED( grid%qintsxy ) ) THEN DEALLOCATE(grid%qintsxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qintsxy. ') endif NULLIFY(grid%qintsxy) ENDIF IF ( ASSOCIATED( grid%qfrzcxy ) ) THEN DEALLOCATE(grid%qfrzcxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qfrzcxy. ') endif NULLIFY(grid%qfrzcxy) ENDIF IF ( ASSOCIATED( grid%snowlsm ) ) THEN DEALLOCATE(grid%snowlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowlsm. ') endif NULLIFY(grid%snowlsm) ENDIF IF ( ASSOCIATED( grid%forctlsm ) ) THEN DEALLOCATE(grid%forctlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%forctlsm. ') endif NULLIFY(grid%forctlsm) ENDIF IF ( ASSOCIATED( grid%acqrf ) ) THEN DEALLOCATE(grid%acqrf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acqrf. ') endif NULLIFY(grid%acqrf) ENDIF IF ( ASSOCIATED( grid%acrainsnow ) ) THEN DEALLOCATE(grid%acrainsnow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acrainsnow. ') endif NULLIFY(grid%acrainsnow) ENDIF IF ( ASSOCIATED( grid%acevg ) ) THEN DEALLOCATE(grid%acevg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acevg. ') endif NULLIFY(grid%acevg) ENDIF IF ( ASSOCIATED( grid%aclwuplsm ) ) THEN DEALLOCATE(grid%aclwuplsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwuplsm. ') endif NULLIFY(grid%aclwuplsm) ENDIF IF ( ASSOCIATED( grid%aceflxb ) ) THEN DEALLOCATE(grid%aceflxb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aceflxb. ') endif NULLIFY(grid%aceflxb) ENDIF IF ( ASSOCIATED( grid%season_gdd ) ) THEN DEALLOCATE(grid%season_gdd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%season_gdd. ') endif NULLIFY(grid%season_gdd) ENDIF IF ( ASSOCIATED( grid%irnumfi ) ) THEN DEALLOCATE(grid%irnumfi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irnumfi. ') endif NULLIFY(grid%irnumfi) ENDIF IF ( ASSOCIATED( grid%kext_qid ) ) THEN DEALLOCATE(grid%kext_qid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_qid. ') endif NULLIFY(grid%kext_qid) ENDIF IF ( ASSOCIATED( grid%icingtop ) ) THEN DEALLOCATE(grid%icingtop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icingtop. ') endif NULLIFY(grid%icingtop) ENDIF IF ( ASSOCIATED( grid%afwa_tlyrbot ) ) THEN DEALLOCATE(grid%afwa_tlyrbot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_tlyrbot. ') endif NULLIFY(grid%afwa_tlyrbot) ENDIF IF ( ASSOCIATED( grid%afwa_fzra ) ) THEN DEALLOCATE(grid%afwa_fzra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_fzra. ') endif NULLIFY(grid%afwa_fzra) ENDIF IF ( ASSOCIATED( grid%afwa_plfc ) ) THEN DEALLOCATE(grid%afwa_plfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_plfc. ') endif NULLIFY(grid%afwa_plfc) ENDIF IF ( ASSOCIATED( grid%th2_mean ) ) THEN DEALLOCATE(grid%th2_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th2_mean. ') endif NULLIFY(grid%th2_mean) ENDIF IF ( ASSOCIATED( grid%lwupt_mean ) ) THEN DEALLOCATE(grid%lwupt_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupt_mean. ') endif NULLIFY(grid%lwupt_mean) ENDIF IF ( ASSOCIATED( grid%lh_diurn ) ) THEN DEALLOCATE(grid%lh_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh_diurn. ') endif NULLIFY(grid%lh_diurn) ENDIF IF ( ASSOCIATED( grid%tsk_dtmp ) ) THEN DEALLOCATE(grid%tsk_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsk_dtmp. ') endif NULLIFY(grid%tsk_dtmp) ENDIF IF ( ASSOCIATED( grid%swupt_dtmp ) ) THEN DEALLOCATE(grid%swupt_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupt_dtmp. ') endif NULLIFY(grid%swupt_dtmp) ENDIF IF ( ASSOCIATED( grid%elecz ) ) THEN DEALLOCATE(grid%elecz,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%elecz. ') endif NULLIFY(grid%elecz) ENDIF IF ( ASSOCIATED( grid%c1f ) ) THEN DEALLOCATE(grid%c1f,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c1f. ') endif NULLIFY(grid%c1f) ENDIF IF ( ASSOCIATED( grid%p_wif_jun ) ) THEN DEALLOCATE(grid%p_wif_jun,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_jun. ') endif NULLIFY(grid%p_wif_jun) ENDIF IF ( ASSOCIATED( grid%w_wif_may ) ) THEN DEALLOCATE(grid%w_wif_may,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_may. ') endif NULLIFY(grid%w_wif_may) ENDIF IF ( ASSOCIATED( grid%i_wif_apr ) ) THEN DEALLOCATE(grid%i_wif_apr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_apr. ') endif NULLIFY(grid%i_wif_apr) ENDIF IF ( ASSOCIATED( grid%b_wif_mar ) ) THEN DEALLOCATE(grid%b_wif_mar,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_mar. ') endif NULLIFY(grid%b_wif_mar) ENDIF IF ( ASSOCIATED( grid%temperature ) ) THEN DEALLOCATE(grid%temperature,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%temperature. ') endif NULLIFY(grid%temperature) ENDIF IF ( ASSOCIATED( grid%re_qc ) ) THEN DEALLOCATE(grid%re_qc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_qc. ') endif NULLIFY(grid%re_qc) ENDIF IF ( ASSOCIATED( grid%cbaseht_tot ) ) THEN DEALLOCATE(grid%cbaseht_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cbaseht_tot. ') endif NULLIFY(grid%cbaseht_tot) ENDIF IF ( ASSOCIATED( grid%ts_iwp_tot ) ) THEN DEALLOCATE(grid%ts_iwp_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_iwp_tot. ') endif NULLIFY(grid%ts_iwp_tot) ENDIF IF ( ASSOCIATED( grid%ts_cbaseht ) ) THEN DEALLOCATE(grid%ts_cbaseht,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_cbaseht. ') endif NULLIFY(grid%ts_cbaseht) ENDIF IF ( ASSOCIATED( grid%ts_swdown2 ) ) THEN DEALLOCATE(grid%ts_swdown2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swdown2. ') endif NULLIFY(grid%ts_swdown2) ENDIF IF ( ASSOCIATED( grid%q_zl ) ) THEN DEALLOCATE(grid%q_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q_zl. ') endif NULLIFY(grid%q_zl) ENDIF IF ( ASSOCIATED( grid%qc_iau ) ) THEN DEALLOCATE(grid%qc_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_iau. ') endif NULLIFY(grid%qc_iau) ENDIF IF ( ASSOCIATED( grid%rqsiauten ) ) THEN DEALLOCATE(grid%rqsiauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqsiauten. ') endif NULLIFY(grid%rqsiauten) ENDIF IF ( ASSOCIATED( grid%sst ) ) THEN DEALLOCATE(grid%sst,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sst. ') endif NULLIFY(grid%sst) ENDIF END SUBROUTINE deallocs_4 !ENDOFREGISTRYGENERATEDINCLUDE