!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_6.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_6( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%zs ) ) THEN DEALLOCATE(grid%zs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zs. ') endif NULLIFY(grid%zs) ENDIF IF ( ASSOCIATED( grid%p_gc ) ) THEN DEALLOCATE(grid%p_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_gc. ') endif NULLIFY(grid%p_gc) ENDIF IF ( ASSOCIATED( grid%scb_dom_gc ) ) THEN DEALLOCATE(grid%scb_dom_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%scb_dom_gc. ') endif NULLIFY(grid%scb_dom_gc) ENDIF IF ( ASSOCIATED( grid%cf_gc ) ) THEN DEALLOCATE(grid%cf_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cf_gc. ') endif NULLIFY(grid%cf_gc) ENDIF IF ( ASSOCIATED( grid%qns_gc ) ) THEN DEALLOCATE(grid%qns_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qns_gc. ') endif NULLIFY(grid%qns_gc) ENDIF IF ( ASSOCIATED( grid%hgttrop ) ) THEN DEALLOCATE(grid%hgttrop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hgttrop. ') endif NULLIFY(grid%hgttrop) ENDIF IF ( ASSOCIATED( grid%bathymetry ) ) THEN DEALLOCATE(grid%bathymetry,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bathymetry. ') endif NULLIFY(grid%bathymetry) ENDIF IF ( ASSOCIATED( grid%u_g ) ) THEN DEALLOCATE(grid%u_g,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_g. ') endif NULLIFY(grid%u_g) ENDIF IF ( ASSOCIATED( grid%w_1 ) ) THEN DEALLOCATE(grid%w_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_1. ') endif NULLIFY(grid%w_1) ENDIF IF ( ASSOCIATED( grid%w_2 ) ) THEN DEALLOCATE(grid%w_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_2. ') endif NULLIFY(grid%w_2) ENDIF IF ( ASSOCIATED( grid%th_upstream_y ) ) THEN DEALLOCATE(grid%th_upstream_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_upstream_y. ') endif NULLIFY(grid%th_upstream_y) ENDIF IF ( ASSOCIATED( grid%u_upstream_y ) ) THEN DEALLOCATE(grid%u_upstream_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_upstream_y. ') endif NULLIFY(grid%u_upstream_y) ENDIF IF ( ASSOCIATED( grid%ql_largescale ) ) THEN DEALLOCATE(grid%ql_largescale,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ql_largescale. ') endif NULLIFY(grid%ql_largescale) ENDIF IF ( ASSOCIATED( grid%t_soil_forcing_val ) ) THEN DEALLOCATE(grid%t_soil_forcing_val,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soil_forcing_val. ') endif NULLIFY(grid%t_soil_forcing_val) ENDIF IF ( ASSOCIATED( grid%mu_1 ) ) THEN DEALLOCATE(grid%mu_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_1. ') endif NULLIFY(grid%mu_1) ENDIF IF ( ASSOCIATED( grid%mu_2 ) ) THEN DEALLOCATE(grid%mu_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_2. ') endif NULLIFY(grid%mu_2) ENDIF IF ( ASSOCIATED( grid%mut ) ) THEN DEALLOCATE(grid%mut,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mut. ') endif NULLIFY(grid%mut) ENDIF IF ( ASSOCIATED( grid%gamu ) ) THEN DEALLOCATE(grid%gamu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gamu. ') endif NULLIFY(grid%gamu) ENDIF IF ( ASSOCIATED( grid%rdz ) ) THEN DEALLOCATE(grid%rdz,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rdz. ') endif NULLIFY(grid%rdz) ENDIF IF ( ASSOCIATED( grid%p_hyd_w ) ) THEN DEALLOCATE(grid%p_hyd_w,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_hyd_w. ') endif NULLIFY(grid%p_hyd_w) ENDIF IF ( ASSOCIATED( grid%imask_nostag ) ) THEN DEALLOCATE(grid%imask_nostag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%imask_nostag. ') endif NULLIFY(grid%imask_nostag) ENDIF IF ( ASSOCIATED( grid%dfi_moist_bxs ) ) THEN DEALLOCATE(grid%dfi_moist_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_bxs. ') endif NULLIFY(grid%dfi_moist_bxs) ENDIF IF ( ASSOCIATED( grid%dfi_moist_bxe ) ) THEN DEALLOCATE(grid%dfi_moist_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_bxe. ') endif NULLIFY(grid%dfi_moist_bxe) ENDIF IF ( ASSOCIATED( grid%dfi_moist_bys ) ) THEN DEALLOCATE(grid%dfi_moist_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_bys. ') endif NULLIFY(grid%dfi_moist_bys) ENDIF IF ( ASSOCIATED( grid%dfi_moist_bye ) ) THEN DEALLOCATE(grid%dfi_moist_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_moist_bye. ') endif NULLIFY(grid%dfi_moist_bye) ENDIF IF ( ASSOCIATED( grid%re_cloud_gsfc ) ) THEN DEALLOCATE(grid%re_cloud_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_cloud_gsfc. ') endif NULLIFY(grid%re_cloud_gsfc) ENDIF IF ( ASSOCIATED( grid%dfi_re_snow_gsfc ) ) THEN DEALLOCATE(grid%dfi_re_snow_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_snow_gsfc. ') endif NULLIFY(grid%dfi_re_snow_gsfc) ENDIF IF ( ASSOCIATED( grid%fcx ) ) THEN DEALLOCATE(grid%fcx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fcx. ') endif NULLIFY(grid%fcx) ENDIF IF ( ASSOCIATED( grid%sm028100 ) ) THEN DEALLOCATE(grid%sm028100,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm028100. ') endif NULLIFY(grid%sm028100) ENDIF IF ( ASSOCIATED( grid%soilm005 ) ) THEN DEALLOCATE(grid%soilm005,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilm005. ') endif NULLIFY(grid%soilm005) ENDIF IF ( ASSOCIATED( grid%soilw020 ) ) THEN DEALLOCATE(grid%soilw020,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilw020. ') endif NULLIFY(grid%soilw020) ENDIF IF ( ASSOCIATED( grid%soilt040 ) ) THEN DEALLOCATE(grid%soilt040,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt040. ') endif NULLIFY(grid%soilt040) ENDIF IF ( ASSOCIATED( grid%toposoil ) ) THEN DEALLOCATE(grid%toposoil,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%toposoil. ') endif NULLIFY(grid%toposoil) ENDIF IF ( ASSOCIATED( grid%ts_v ) ) THEN DEALLOCATE(grid%ts_v,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_v. ') endif NULLIFY(grid%ts_v) ENDIF IF ( ASSOCIATED( grid%ts_rainnc ) ) THEN DEALLOCATE(grid%ts_rainnc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_rainnc. ') endif NULLIFY(grid%ts_rainnc) ENDIF IF ( ASSOCIATED( grid%lp_urb2d ) ) THEN DEALLOCATE(grid%lp_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lp_urb2d. ') endif NULLIFY(grid%lp_urb2d) ENDIF IF ( ASSOCIATED( grid%sh2o ) ) THEN DEALLOCATE(grid%sh2o,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sh2o. ') endif NULLIFY(grid%sh2o) ENDIF IF ( ASSOCIATED( grid%qtiledrain ) ) THEN DEALLOCATE(grid%qtiledrain,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtiledrain. ') endif NULLIFY(grid%qtiledrain) ENDIF IF ( ASSOCIATED( grid%acrunoff ) ) THEN DEALLOCATE(grid%acrunoff,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acrunoff. ') endif NULLIFY(grid%acrunoff) ENDIF IF ( ASSOCIATED( grid%lake_depth ) ) THEN DEALLOCATE(grid%lake_depth,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lake_depth. ') endif NULLIFY(grid%lake_depth) ENDIF IF ( ASSOCIATED( grid%dfi_php ) ) THEN DEALLOCATE(grid%dfi_php,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_php. ') endif NULLIFY(grid%dfi_php) ENDIF IF ( ASSOCIATED( grid%dfi_tslb ) ) THEN DEALLOCATE(grid%dfi_tslb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_tslb. ') endif NULLIFY(grid%dfi_tslb) ENDIF IF ( ASSOCIATED( grid%tc_urb2d ) ) THEN DEALLOCATE(grid%tc_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tc_urb2d. ') endif NULLIFY(grid%tc_urb2d) ENDIF IF ( ASSOCIATED( grid%flxhumb_urb2d ) ) THEN DEALLOCATE(grid%flxhumb_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flxhumb_urb2d. ') endif NULLIFY(grid%flxhumb_urb2d) ENDIF IF ( ASSOCIATED( grid%frc_urb2d ) ) THEN DEALLOCATE(grid%frc_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%frc_urb2d. ') endif NULLIFY(grid%frc_urb2d) ENDIF IF ( ASSOCIATED( grid%sf_ac_urb3d ) ) THEN DEALLOCATE(grid%sf_ac_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sf_ac_urb3d. ') endif NULLIFY(grid%sf_ac_urb3d) ENDIF IF ( ASSOCIATED( grid%t_pv_urb3d ) ) THEN DEALLOCATE(grid%t_pv_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_pv_urb3d. ') endif NULLIFY(grid%t_pv_urb3d) ENDIF IF ( ASSOCIATED( grid%lfg_urb3d ) ) THEN DEALLOCATE(grid%lfg_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfg_urb3d. ') endif NULLIFY(grid%lfg_urb3d) ENDIF IF ( ASSOCIATED( grid%hrang ) ) THEN DEALLOCATE(grid%hrang,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hrang. ') endif NULLIFY(grid%hrang) ENDIF IF ( ASSOCIATED( grid%alswvisdir ) ) THEN DEALLOCATE(grid%alswvisdir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%alswvisdir. ') endif NULLIFY(grid%alswvisdir) ENDIF IF ( ASSOCIATED( grid%lai_px ) ) THEN DEALLOCATE(grid%lai_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lai_px. ') endif NULLIFY(grid%lai_px) ENDIF IF ( ASSOCIATED( grid%qz0 ) ) THEN DEALLOCATE(grid%qz0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qz0. ') endif NULLIFY(grid%qz0) ENDIF IF ( ASSOCIATED( grid%pshltr ) ) THEN DEALLOCATE(grid%pshltr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pshltr. ') endif NULLIFY(grid%pshltr) ENDIF IF ( ASSOCIATED( grid%u_up ) ) THEN DEALLOCATE(grid%u_up,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_up. ') endif NULLIFY(grid%u_up) ENDIF IF ( ASSOCIATED( grid%mf_temf ) ) THEN DEALLOCATE(grid%mf_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mf_temf. ') endif NULLIFY(grid%mf_temf) ENDIF IF ( ASSOCIATED( grid%qbuoy ) ) THEN DEALLOCATE(grid%qbuoy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qbuoy. ') endif NULLIFY(grid%qbuoy) ENDIF IF ( ASSOCIATED( grid%edmf_thl ) ) THEN DEALLOCATE(grid%edmf_thl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edmf_thl. ') endif NULLIFY(grid%edmf_thl) ENDIF IF ( ASSOCIATED( grid%dfgdp ) ) THEN DEALLOCATE(grid%dfgdp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfgdp. ') endif NULLIFY(grid%dfgdp) ENDIF IF ( ASSOCIATED( grid%oa4 ) ) THEN DEALLOCATE(grid%oa4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa4. ') endif NULLIFY(grid%oa4) ENDIF IF ( ASSOCIATED( grid%dtauy3d_fd ) ) THEN DEALLOCATE(grid%dtauy3d_fd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtauy3d_fd. ') endif NULLIFY(grid%dtauy3d_fd) ENDIF IF ( ASSOCIATED( grid%oa2ls ) ) THEN DEALLOCATE(grid%oa2ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa2ls. ') endif NULLIFY(grid%oa2ls) ENDIF IF ( ASSOCIATED( grid%oa4ss ) ) THEN DEALLOCATE(grid%oa4ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oa4ss. ') endif NULLIFY(grid%oa4ss) ENDIF IF ( ASSOCIATED( grid%b_u_bep ) ) THEN DEALLOCATE(grid%b_u_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_u_bep. ') endif NULLIFY(grid%b_u_bep) ENDIF IF ( ASSOCIATED( grid%tpe_pbl ) ) THEN DEALLOCATE(grid%tpe_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tpe_pbl. ') endif NULLIFY(grid%tpe_pbl) ENDIF IF ( ASSOCIATED( grid%cuppt ) ) THEN DEALLOCATE(grid%cuppt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cuppt. ') endif NULLIFY(grid%cuppt) ENDIF IF ( ASSOCIATED( grid%o3_gfs_du ) ) THEN DEALLOCATE(grid%o3_gfs_du,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%o3_gfs_du. ') endif NULLIFY(grid%o3_gfs_du) ENDIF IF ( ASSOCIATED( grid%aerosolc_1 ) ) THEN DEALLOCATE(grid%aerosolc_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerosolc_1. ') endif NULLIFY(grid%aerosolc_1) ENDIF IF ( ASSOCIATED( grid%aerosolc_2 ) ) THEN DEALLOCATE(grid%aerosolc_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerosolc_2. ') endif NULLIFY(grid%aerosolc_2) ENDIF IF ( ASSOCIATED( grid%om_lon ) ) THEN DEALLOCATE(grid%om_lon,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_lon. ') endif NULLIFY(grid%om_lon) ENDIF IF ( ASSOCIATED( grid%tcloud_cup ) ) THEN DEALLOCATE(grid%tcloud_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tcloud_cup. ') endif NULLIFY(grid%tcloud_cup) ENDIF IF ( ASSOCIATED( grid%mfup_cup ) ) THEN DEALLOCATE(grid%mfup_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mfup_cup. ') endif NULLIFY(grid%mfup_cup) ENDIF IF ( ASSOCIATED( grid%qc_diabatic ) ) THEN DEALLOCATE(grid%qc_diabatic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_diabatic. ') endif NULLIFY(grid%qc_diabatic) ENDIF IF ( ASSOCIATED( grid%e ) ) THEN DEALLOCATE(grid%e,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%e. ') endif NULLIFY(grid%e) ENDIF IF ( ASSOCIATED( grid%shadowmask ) ) THEN DEALLOCATE(grid%shadowmask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%shadowmask. ') endif NULLIFY(grid%shadowmask) ENDIF IF ( ASSOCIATED( grid%physd ) ) THEN DEALLOCATE(grid%physd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%physd. ') endif NULLIFY(grid%physd) ENDIF IF ( ASSOCIATED( grid%precs3d ) ) THEN DEALLOCATE(grid%precs3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%precs3d. ') endif NULLIFY(grid%precs3d) ENDIF IF ( ASSOCIATED( grid%cod2d_out ) ) THEN DEALLOCATE(grid%cod2d_out,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cod2d_out. ') endif NULLIFY(grid%cod2d_out) ENDIF IF ( ASSOCIATED( grid%rqinshten ) ) THEN DEALLOCATE(grid%rqinshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqinshten. ') endif NULLIFY(grid%rqinshten) ENDIF IF ( ASSOCIATED( grid%wub ) ) THEN DEALLOCATE(grid%wub,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wub. ') endif NULLIFY(grid%wub) ENDIF IF ( ASSOCIATED( grid%rucuten ) ) THEN DEALLOCATE(grid%rucuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rucuten. ') endif NULLIFY(grid%rucuten) ENDIF IF ( ASSOCIATED( grid%qiconv ) ) THEN DEALLOCATE(grid%qiconv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qiconv. ') endif NULLIFY(grid%qiconv) ENDIF IF ( ASSOCIATED( grid%snownc ) ) THEN DEALLOCATE(grid%snownc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snownc. ') endif NULLIFY(grid%snownc) ENDIF IF ( ASSOCIATED( grid%rhopo3d ) ) THEN DEALLOCATE(grid%rhopo3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rhopo3d. ') endif NULLIFY(grid%rhopo3d) ENDIF IF ( ASSOCIATED( grid%itype_3 ) ) THEN DEALLOCATE(grid%itype_3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%itype_3. ') endif NULLIFY(grid%itype_3) ENDIF IF ( ASSOCIATED( grid%timec_kf ) ) THEN DEALLOCATE(grid%timec_kf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%timec_kf. ') endif NULLIFY(grid%timec_kf) ENDIF IF ( ASSOCIATED( grid%kbcon_shallow ) ) THEN DEALLOCATE(grid%kbcon_shallow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kbcon_shallow. ') endif NULLIFY(grid%kbcon_shallow) ENDIF IF ( ASSOCIATED( grid%gd_cloud ) ) THEN DEALLOCATE(grid%gd_cloud,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gd_cloud. ') endif NULLIFY(grid%gd_cloud) ENDIF IF ( ASSOCIATED( grid%ni_cu ) ) THEN DEALLOCATE(grid%ni_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ni_cu. ') endif NULLIFY(grid%ni_cu) ENDIF IF ( ASSOCIATED( grid%ccn1_gs ) ) THEN DEALLOCATE(grid%ccn1_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn1_gs. ') endif NULLIFY(grid%ccn1_gs) ENDIF IF ( ASSOCIATED( grid%swdown ) ) THEN DEALLOCATE(grid%swdown,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdown. ') endif NULLIFY(grid%swdown) ENDIF IF ( ASSOCIATED( grid%swddni2 ) ) THEN DEALLOCATE(grid%swddni2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddni2. ') endif NULLIFY(grid%swddni2) ENDIF IF ( ASSOCIATED( grid%aod5502d ) ) THEN DEALLOCATE(grid%aod5502d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aod5502d. ') endif NULLIFY(grid%aod5502d) ENDIF IF ( ASSOCIATED( grid%t2std ) ) THEN DEALLOCATE(grid%t2std,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2std. ') endif NULLIFY(grid%t2std) ENDIF IF ( ASSOCIATED( grid%skintempstd ) ) THEN DEALLOCATE(grid%skintempstd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%skintempstd. ') endif NULLIFY(grid%skintempstd) ENDIF IF ( ASSOCIATED( grid%rainncvmax ) ) THEN DEALLOCATE(grid%rainncvmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainncvmax. ') endif NULLIFY(grid%rainncvmax) ENDIF IF ( ASSOCIATED( grid%acswupb ) ) THEN DEALLOCATE(grid%acswupb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswupb. ') endif NULLIFY(grid%acswupb) ENDIF IF ( ASSOCIATED( grid%i_acswupt ) ) THEN DEALLOCATE(grid%i_acswupt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswupt. ') endif NULLIFY(grid%i_acswupt) ENDIF IF ( ASSOCIATED( grid%i_aclwupb ) ) THEN DEALLOCATE(grid%i_aclwupb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwupb. ') endif NULLIFY(grid%i_aclwupb) ENDIF IF ( ASSOCIATED( grid%swupbcln ) ) THEN DEALLOCATE(grid%swupbcln,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupbcln. ') endif NULLIFY(grid%swupbcln) ENDIF IF ( ASSOCIATED( grid%lwupbcln ) ) THEN DEALLOCATE(grid%lwupbcln,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupbcln. ') endif NULLIFY(grid%lwupbcln) ENDIF IF ( ASSOCIATED( grid%clat ) ) THEN DEALLOCATE(grid%clat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%clat. ') endif NULLIFY(grid%clat) ENDIF IF ( ASSOCIATED( grid%rqcblten ) ) THEN DEALLOCATE(grid%rqcblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqcblten. ') endif NULLIFY(grid%rqcblten) ENDIF IF ( ASSOCIATED( grid%canwat_mosaic ) ) THEN DEALLOCATE(grid%canwat_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%canwat_mosaic. ') endif NULLIFY(grid%canwat_mosaic) ENDIF IF ( ASSOCIATED( grid%hfx_mosaic ) ) THEN DEALLOCATE(grid%hfx_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfx_mosaic. ') endif NULLIFY(grid%hfx_mosaic) ENDIF IF ( ASSOCIATED( grid%uc_urb2d_mosaic ) ) THEN DEALLOCATE(grid%uc_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uc_urb2d_mosaic. ') endif NULLIFY(grid%uc_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%tbpvs0_state ) ) THEN DEALLOCATE(grid%tbpvs0_state,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tbpvs0_state. ') endif NULLIFY(grid%tbpvs0_state) ENDIF IF ( ASSOCIATED( grid%cplmask ) ) THEN DEALLOCATE(grid%cplmask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cplmask. ') endif NULLIFY(grid%cplmask) ENDIF IF ( ASSOCIATED( grid%capg ) ) THEN DEALLOCATE(grid%capg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%capg. ') endif NULLIFY(grid%capg) ENDIF IF ( ASSOCIATED( grid%dfi_qvg ) ) THEN DEALLOCATE(grid%dfi_qvg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_qvg. ') endif NULLIFY(grid%dfi_qvg) ENDIF IF ( ASSOCIATED( grid%sr ) ) THEN DEALLOCATE(grid%sr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sr. ') endif NULLIFY(grid%sr) ENDIF IF ( ASSOCIATED( grid%defor23 ) ) THEN DEALLOCATE(grid%defor23,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%defor23. ') endif NULLIFY(grid%defor23) ENDIF IF ( ASSOCIATED( grid%rvndgdten ) ) THEN DEALLOCATE(grid%rvndgdten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rvndgdten. ') endif NULLIFY(grid%rvndgdten) ENDIF IF ( ASSOCIATED( grid%t2_ndg_new ) ) THEN DEALLOCATE(grid%t2_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2_ndg_new. ') endif NULLIFY(grid%t2_ndg_new) ENDIF IF ( ASSOCIATED( grid%odis_ndg_old ) ) THEN DEALLOCATE(grid%odis_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%odis_ndg_old. ') endif NULLIFY(grid%odis_ndg_old) ENDIF IF ( ASSOCIATED( grid%abstot ) ) THEN DEALLOCATE(grid%abstot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%abstot. ') endif NULLIFY(grid%abstot) ENDIF IF ( ASSOCIATED( grid%w_mean ) ) THEN DEALLOCATE(grid%w_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_mean. ') endif NULLIFY(grid%w_mean) ENDIF IF ( ASSOCIATED( grid%advh_t ) ) THEN DEALLOCATE(grid%advh_t,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%advh_t. ') endif NULLIFY(grid%advh_t) ENDIF IF ( ASSOCIATED( grid%track_u ) ) THEN DEALLOCATE(grid%track_u,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_u. ') endif NULLIFY(grid%track_u) ENDIF IF ( ASSOCIATED( grid%track_qvapor ) ) THEN DEALLOCATE(grid%track_qvapor,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_qvapor. ') endif NULLIFY(grid%track_qvapor) ENDIF IF ( ASSOCIATED( grid%aqvshten ) ) THEN DEALLOCATE(grid%aqvshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aqvshten. ') endif NULLIFY(grid%aqvshten) ENDIF IF ( ASSOCIATED( grid%hailcast_diam_std ) ) THEN DEALLOCATE(grid%hailcast_diam_std,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_diam_std. ') endif NULLIFY(grid%hailcast_diam_std) ENDIF IF ( ASSOCIATED( grid%u_xxx ) ) THEN DEALLOCATE(grid%u_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_xxx. ') endif NULLIFY(grid%u_xxx) ENDIF IF ( ASSOCIATED( grid%dif_analysis ) ) THEN DEALLOCATE(grid%dif_analysis,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dif_analysis. ') endif NULLIFY(grid%dif_analysis) ENDIF IF ( ASSOCIATED( grid%tign_g ) ) THEN DEALLOCATE(grid%tign_g,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tign_g. ') endif NULLIFY(grid%tign_g) ENDIF IF ( ASSOCIATED( grid%lfn ) ) THEN DEALLOCATE(grid%lfn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn. ') endif NULLIFY(grid%lfn) ENDIF IF ( ASSOCIATED( grid%fgrnhfx ) ) THEN DEALLOCATE(grid%fgrnhfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fgrnhfx. ') endif NULLIFY(grid%fgrnhfx) ENDIF IF ( ASSOCIATED( grid%fmc_equi ) ) THEN DEALLOCATE(grid%fmc_equi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fmc_equi. ') endif NULLIFY(grid%fmc_equi) ENDIF IF ( ASSOCIATED( grid%fgip ) ) THEN DEALLOCATE(grid%fgip,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fgip. ') endif NULLIFY(grid%fgip) ENDIF IF ( ASSOCIATED( grid%tracer_bxs ) ) THEN DEALLOCATE(grid%tracer_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_bxs. ') endif NULLIFY(grid%tracer_bxs) ENDIF IF ( ASSOCIATED( grid%tracer_bxe ) ) THEN DEALLOCATE(grid%tracer_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_bxe. ') endif NULLIFY(grid%tracer_bxe) ENDIF IF ( ASSOCIATED( grid%tracer_bys ) ) THEN DEALLOCATE(grid%tracer_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_bys. ') endif NULLIFY(grid%tracer_bys) ENDIF IF ( ASSOCIATED( grid%tracer_bye ) ) THEN DEALLOCATE(grid%tracer_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tracer_bye. ') endif NULLIFY(grid%tracer_bye) ENDIF IF ( ASSOCIATED( grid%fs_fire_area ) ) THEN DEALLOCATE(grid%fs_fire_area,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_fire_area. ') endif NULLIFY(grid%fs_fire_area) ENDIF IF ( ASSOCIATED( grid%fs_p_y ) ) THEN DEALLOCATE(grid%fs_p_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_y. ') endif NULLIFY(grid%fs_p_y) ENDIF IF ( ASSOCIATED( grid%avgflx_cfd1 ) ) THEN DEALLOCATE(grid%avgflx_cfd1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_cfd1. ') endif NULLIFY(grid%avgflx_cfd1) ENDIF IF ( ASSOCIATED( grid%pattern_spp_lsm ) ) THEN DEALLOCATE(grid%pattern_spp_lsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pattern_spp_lsm. ') endif NULLIFY(grid%pattern_spp_lsm) ENDIF IF ( ASSOCIATED( grid%sp_amp ) ) THEN DEALLOCATE(grid%sp_amp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sp_amp. ') endif NULLIFY(grid%sp_amp) ENDIF IF ( ASSOCIATED( grid%sp_amp5 ) ) THEN DEALLOCATE(grid%sp_amp5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sp_amp5. ') endif NULLIFY(grid%sp_amp5) ENDIF IF ( ASSOCIATED( grid%rand_real_xxx ) ) THEN DEALLOCATE(grid%rand_real_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rand_real_xxx. ') endif NULLIFY(grid%rand_real_xxx) ENDIF IF ( ASSOCIATED( grid%gridpt_stddev_mult3d ) ) THEN DEALLOCATE(grid%gridpt_stddev_mult3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gridpt_stddev_mult3d. ') endif NULLIFY(grid%gridpt_stddev_mult3d) ENDIF IF ( ASSOCIATED( grid%vertampt3d ) ) THEN DEALLOCATE(grid%vertampt3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertampt3d. ') endif NULLIFY(grid%vertampt3d) ENDIF IF ( ASSOCIATED( grid%nba_mij ) ) THEN DEALLOCATE(grid%nba_mij,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nba_mij. ') endif NULLIFY(grid%nba_mij) ENDIF IF ( ASSOCIATED( grid%rliq ) ) THEN DEALLOCATE(grid%rliq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rliq. ') endif NULLIFY(grid%rliq) ENDIF IF ( ASSOCIATED( grid%zmflxsnw ) ) THEN DEALLOCATE(grid%zmflxsnw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmflxsnw. ') endif NULLIFY(grid%zmflxsnw) ENDIF IF ( ASSOCIATED( grid%zmmd ) ) THEN DEALLOCATE(grid%zmmd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmmd. ') endif NULLIFY(grid%zmmd) ENDIF IF ( ASSOCIATED( grid%dp3d ) ) THEN DEALLOCATE(grid%dp3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dp3d. ') endif NULLIFY(grid%dp3d) ENDIF IF ( ASSOCIATED( grid%cmflq ) ) THEN DEALLOCATE(grid%cmflq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmflq. ') endif NULLIFY(grid%cmflq) ENDIF IF ( ASSOCIATED( grid%qtflx_cu ) ) THEN DEALLOCATE(grid%qtflx_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtflx_cu. ') endif NULLIFY(grid%qtflx_cu) ENDIF IF ( ASSOCIATED( grid%ufrcinvbase_cu ) ) THEN DEALLOCATE(grid%ufrcinvbase_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ufrcinvbase_cu. ') endif NULLIFY(grid%ufrcinvbase_cu) ENDIF IF ( ASSOCIATED( grid%emkfbup_cu ) ) THEN DEALLOCATE(grid%emkfbup_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%emkfbup_cu. ') endif NULLIFY(grid%emkfbup_cu) ENDIF IF ( ASSOCIATED( grid%qtu_cu ) ) THEN DEALLOCATE(grid%qtu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtu_cu. ') endif NULLIFY(grid%qtu_cu) ENDIF IF ( ASSOCIATED( grid%qlu_cu ) ) THEN DEALLOCATE(grid%qlu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qlu_cu. ') endif NULLIFY(grid%qlu_cu) ENDIF IF ( ASSOCIATED( grid%ntsnprd_cu ) ) THEN DEALLOCATE(grid%ntsnprd_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ntsnprd_cu. ') endif NULLIFY(grid%ntsnprd_cu) ENDIF IF ( ASSOCIATED( grid%exit_klfcmkx_cu ) ) THEN DEALLOCATE(grid%exit_klfcmkx_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_klfcmkx_cu. ') endif NULLIFY(grid%exit_klfcmkx_cu) ENDIF IF ( ASSOCIATED( grid%limit_emf_cu ) ) THEN DEALLOCATE(grid%limit_emf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_emf_cu. ') endif NULLIFY(grid%limit_emf_cu) ENDIF IF ( ASSOCIATED( grid%lradius ) ) THEN DEALLOCATE(grid%lradius,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lradius. ') endif NULLIFY(grid%lradius) ENDIF IF ( ASSOCIATED( grid%lhtran ) ) THEN DEALLOCATE(grid%lhtran,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lhtran. ') endif NULLIFY(grid%lhtran) ENDIF IF ( ASSOCIATED( grid%fsun240 ) ) THEN DEALLOCATE(grid%fsun240,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsun240. ') endif NULLIFY(grid%fsun240) ENDIF IF ( ASSOCIATED( grid%q_ref2m ) ) THEN DEALLOCATE(grid%q_ref2m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q_ref2m. ') endif NULLIFY(grid%q_ref2m) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq7 ) ) THEN DEALLOCATE(grid%h2osoi_liq7,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq7. ') endif NULLIFY(grid%h2osoi_liq7) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice4 ) ) THEN DEALLOCATE(grid%h2osoi_ice4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice4. ') endif NULLIFY(grid%h2osoi_ice4) ENDIF IF ( ASSOCIATED( grid%t_soisno1 ) ) THEN DEALLOCATE(grid%t_soisno1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno1. ') endif NULLIFY(grid%t_soisno1) ENDIF IF ( ASSOCIATED( grid%dzsnow3 ) ) THEN DEALLOCATE(grid%dzsnow3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzsnow3. ') endif NULLIFY(grid%dzsnow3) ENDIF IF ( ASSOCIATED( grid%t_lake5 ) ) THEN DEALLOCATE(grid%t_lake5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake5. ') endif NULLIFY(grid%t_lake5) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol7 ) ) THEN DEALLOCATE(grid%h2osoi_vol7,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol7. ') endif NULLIFY(grid%h2osoi_vol7) ENDIF IF ( ASSOCIATED( grid%swupsubgrid ) ) THEN DEALLOCATE(grid%swupsubgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupsubgrid. ') endif NULLIFY(grid%swupsubgrid) ENDIF IF ( ASSOCIATED( grid%t_soisno3d ) ) THEN DEALLOCATE(grid%t_soisno3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno3d. ') endif NULLIFY(grid%t_soisno3d) ENDIF IF ( ASSOCIATED( grid%ssib_ghf ) ) THEN DEALLOCATE(grid%ssib_ghf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_ghf. ') endif NULLIFY(grid%ssib_ghf) ENDIF IF ( ASSOCIATED( grid%ssib_shg ) ) THEN DEALLOCATE(grid%ssib_shg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_shg. ') endif NULLIFY(grid%ssib_shg) ENDIF IF ( ASSOCIATED( grid%tssn1 ) ) THEN DEALLOCATE(grid%tssn1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssn1. ') endif NULLIFY(grid%tssn1) ENDIF IF ( ASSOCIATED( grid%tssn2 ) ) THEN DEALLOCATE(grid%tssn2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssn2. ') endif NULLIFY(grid%tssn2) ENDIF IF ( ASSOCIATED( grid%tssn3 ) ) THEN DEALLOCATE(grid%tssn3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssn3. ') endif NULLIFY(grid%tssn3) ENDIF IF ( ASSOCIATED( grid%tssn4 ) ) THEN DEALLOCATE(grid%tssn4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tssn4. ') endif NULLIFY(grid%tssn4) ENDIF IF ( ASSOCIATED( grid%tgxy ) ) THEN DEALLOCATE(grid%tgxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgxy. ') endif NULLIFY(grid%tgxy) ENDIF IF ( ASSOCIATED( grid%wslakexy ) ) THEN DEALLOCATE(grid%wslakexy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wslakexy. ') endif NULLIFY(grid%wslakexy) ENDIF IF ( ASSOCIATED( grid%stblcpxy ) ) THEN DEALLOCATE(grid%stblcpxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%stblcpxy. ') endif NULLIFY(grid%stblcpxy) ENDIF IF ( ASSOCIATED( grid%fvegxy ) ) THEN DEALLOCATE(grid%fvegxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fvegxy. ') endif NULLIFY(grid%fvegxy) ENDIF IF ( ASSOCIATED( grid%sagxy ) ) THEN DEALLOCATE(grid%sagxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sagxy. ') endif NULLIFY(grid%sagxy) ENDIF IF ( ASSOCIATED( grid%evgxy ) ) THEN DEALLOCATE(grid%evgxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%evgxy. ') endif NULLIFY(grid%evgxy) ENDIF IF ( ASSOCIATED( grid%chb2xy ) ) THEN DEALLOCATE(grid%chb2xy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chb2xy. ') endif NULLIFY(grid%chb2xy) ENDIF IF ( ASSOCIATED( grid%acqspring ) ) THEN DEALLOCATE(grid%acqspring,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acqspring. ') endif NULLIFY(grid%acqspring) ENDIF IF ( ASSOCIATED( grid%qdripsxy ) ) THEN DEALLOCATE(grid%qdripsxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qdripsxy. ') endif NULLIFY(grid%qdripsxy) ENDIF IF ( ASSOCIATED( grid%qsnbotxy ) ) THEN DEALLOCATE(grid%qsnbotxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsnbotxy. ') endif NULLIFY(grid%qsnbotxy) ENDIF IF ( ASSOCIATED( grid%soilcl1 ) ) THEN DEALLOCATE(grid%soilcl1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcl1. ') endif NULLIFY(grid%soilcl1) ENDIF IF ( ASSOCIATED( grid%forcplsm ) ) THEN DEALLOCATE(grid%forcplsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%forcplsm. ') endif NULLIFY(grid%forcplsm) ENDIF IF ( ASSOCIATED( grid%acsnowlsm ) ) THEN DEALLOCATE(grid%acsnowlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsnowlsm. ') endif NULLIFY(grid%acsnowlsm) ENDIF IF ( ASSOCIATED( grid%acthros ) ) THEN DEALLOCATE(grid%acthros,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acthros. ') endif NULLIFY(grid%acthros) ENDIF IF ( ASSOCIATED( grid%acpahg ) ) THEN DEALLOCATE(grid%acpahg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acpahg. ') endif NULLIFY(grid%acpahg) ENDIF IF ( ASSOCIATED( grid%aclhflsm ) ) THEN DEALLOCATE(grid%aclhflsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclhflsm. ') endif NULLIFY(grid%aclhflsm) ENDIF IF ( ASSOCIATED( grid%acc_dwaterxy ) ) THEN DEALLOCATE(grid%acc_dwaterxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_dwaterxy. ') endif NULLIFY(grid%acc_dwaterxy) ENDIF IF ( ASSOCIATED( grid%pgsxy ) ) THEN DEALLOCATE(grid%pgsxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pgsxy. ') endif NULLIFY(grid%pgsxy) ENDIF IF ( ASSOCIATED( grid%irwatmi ) ) THEN DEALLOCATE(grid%irwatmi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irwatmi. ') endif NULLIFY(grid%irwatmi) ENDIF IF ( ASSOCIATED( grid%kext_qg ) ) THEN DEALLOCATE(grid%kext_qg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_qg. ') endif NULLIFY(grid%kext_qg) ENDIF IF ( ASSOCIATED( grid%qicing_lg ) ) THEN DEALLOCATE(grid%qicing_lg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qicing_lg. ') endif NULLIFY(grid%qicing_lg) ENDIF IF ( ASSOCIATED( grid%afwa_turb ) ) THEN DEALLOCATE(grid%afwa_turb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_turb. ') endif NULLIFY(grid%afwa_turb) ENDIF IF ( ASSOCIATED( grid%afwa_vis ) ) THEN DEALLOCATE(grid%afwa_vis,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_vis. ') endif NULLIFY(grid%afwa_vis) ENDIF IF ( ASSOCIATED( grid%afwa_pwat ) ) THEN DEALLOCATE(grid%afwa_pwat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_pwat. ') endif NULLIFY(grid%afwa_pwat) ENDIF IF ( ASSOCIATED( grid%u10_mean ) ) THEN DEALLOCATE(grid%u10_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10_mean. ') endif NULLIFY(grid%u10_mean) ENDIF IF ( ASSOCIATED( grid%glw_diurn ) ) THEN DEALLOCATE(grid%glw_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%glw_diurn. ') endif NULLIFY(grid%glw_diurn) ENDIF IF ( ASSOCIATED( grid%th2_dtmp ) ) THEN DEALLOCATE(grid%th2_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th2_dtmp. ') endif NULLIFY(grid%th2_dtmp) ENDIF IF ( ASSOCIATED( grid%lwupt_dtmp ) ) THEN DEALLOCATE(grid%lwupt_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupt_dtmp. ') endif NULLIFY(grid%lwupt_dtmp) ENDIF IF ( ASSOCIATED( grid%light ) ) THEN DEALLOCATE(grid%light,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%light. ') endif NULLIFY(grid%light) ENDIF IF ( ASSOCIATED( grid%c3h ) ) THEN DEALLOCATE(grid%c3h,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c3h. ') endif NULLIFY(grid%c3h) ENDIF IF ( ASSOCIATED( grid%qnwfa_gc ) ) THEN DEALLOCATE(grid%qnwfa_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnwfa_gc. ') endif NULLIFY(grid%qnwfa_gc) ENDIF IF ( ASSOCIATED( grid%p_wif_aug ) ) THEN DEALLOCATE(grid%p_wif_aug,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_aug. ') endif NULLIFY(grid%p_wif_aug) ENDIF IF ( ASSOCIATED( grid%w_wif_jul ) ) THEN DEALLOCATE(grid%w_wif_jul,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_jul. ') endif NULLIFY(grid%w_wif_jul) ENDIF IF ( ASSOCIATED( grid%i_wif_jun ) ) THEN DEALLOCATE(grid%i_wif_jun,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_jun. ') endif NULLIFY(grid%i_wif_jun) ENDIF IF ( ASSOCIATED( grid%b_wif_may ) ) THEN DEALLOCATE(grid%b_wif_may,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_may. ') endif NULLIFY(grid%b_wif_may) ENDIF IF ( ASSOCIATED( grid%pressure ) ) THEN DEALLOCATE(grid%pressure,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pressure. ') endif NULLIFY(grid%pressure) ENDIF IF ( ASSOCIATED( grid%qi_tot ) ) THEN DEALLOCATE(grid%qi_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qi_tot. ') endif NULLIFY(grid%qi_tot) ENDIF IF ( ASSOCIATED( grid%re_qs ) ) THEN DEALLOCATE(grid%re_qs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_qs. ') endif NULLIFY(grid%re_qs) ENDIF IF ( ASSOCIATED( grid%clrnidx ) ) THEN DEALLOCATE(grid%clrnidx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%clrnidx. ') endif NULLIFY(grid%clrnidx) ENDIF IF ( ASSOCIATED( grid%ts_re_qc ) ) THEN DEALLOCATE(grid%ts_re_qc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_re_qc. ') endif NULLIFY(grid%ts_re_qc) ENDIF IF ( ASSOCIATED( grid%ts_cbaseht_tot ) ) THEN DEALLOCATE(grid%ts_cbaseht_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_cbaseht_tot. ') endif NULLIFY(grid%ts_cbaseht_tot) ENDIF IF ( ASSOCIATED( grid%ts_swddif2 ) ) THEN DEALLOCATE(grid%ts_swddif2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swddif2. ') endif NULLIFY(grid%ts_swddif2) ENDIF IF ( ASSOCIATED( grid%u_pl ) ) THEN DEALLOCATE(grid%u_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_pl. ') endif NULLIFY(grid%u_pl) ENDIF IF ( ASSOCIATED( grid%qi_iau ) ) THEN DEALLOCATE(grid%qi_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qi_iau. ') endif NULLIFY(grid%qi_iau) ENDIF IF ( ASSOCIATED( grid%rmuiauten ) ) THEN DEALLOCATE(grid%rmuiauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rmuiauten. ') endif NULLIFY(grid%rmuiauten) ENDIF END SUBROUTINE deallocs_6 !ENDOFREGISTRYGENERATEDINCLUDE