!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_11.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_11( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%traj_long ) ) THEN DEALLOCATE(grid%traj_long,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%traj_long. ') endif NULLIFY(grid%traj_long) ENDIF IF ( ASSOCIATED( grid%var_sso ) ) THEN DEALLOCATE(grid%var_sso,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%var_sso. ') endif NULLIFY(grid%var_sso) ENDIF IF ( ASSOCIATED( grid%pdrho_gc ) ) THEN DEALLOCATE(grid%pdrho_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pdrho_gc. ') endif NULLIFY(grid%pdrho_gc) ENDIF IF ( ASSOCIATED( grid%qs_gc ) ) THEN DEALLOCATE(grid%qs_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qs_gc. ') endif NULLIFY(grid%qs_gc) ENDIF IF ( ASSOCIATED( grid%t_max_p ) ) THEN DEALLOCATE(grid%t_max_p,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_max_p. ') endif NULLIFY(grid%t_max_p) ENDIF IF ( ASSOCIATED( grid%tmaxw ) ) THEN DEALLOCATE(grid%tmaxw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tmaxw. ') endif NULLIFY(grid%tmaxw) ENDIF IF ( ASSOCIATED( grid%ru ) ) THEN DEALLOCATE(grid%ru,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ru. ') endif NULLIFY(grid%ru) ENDIF IF ( ASSOCIATED( grid%rv ) ) THEN DEALLOCATE(grid%rv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rv. ') endif NULLIFY(grid%rv) ENDIF IF ( ASSOCIATED( grid%ph_btxs ) ) THEN DEALLOCATE(grid%ph_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_btxs. ') endif NULLIFY(grid%ph_btxs) ENDIF IF ( ASSOCIATED( grid%ph_btxe ) ) THEN DEALLOCATE(grid%ph_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_btxe. ') endif NULLIFY(grid%ph_btxe) ENDIF IF ( ASSOCIATED( grid%ph_btys ) ) THEN DEALLOCATE(grid%ph_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_btys. ') endif NULLIFY(grid%ph_btys) ENDIF IF ( ASSOCIATED( grid%ph_btye ) ) THEN DEALLOCATE(grid%ph_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_btye. ') endif NULLIFY(grid%ph_btye) ENDIF IF ( ASSOCIATED( grid%t_init ) ) THEN DEALLOCATE(grid%t_init,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_init. ') endif NULLIFY(grid%t_init) ENDIF IF ( ASSOCIATED( grid%qv_upstream_y_tend ) ) THEN DEALLOCATE(grid%qv_upstream_y_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_upstream_y_tend. ') endif NULLIFY(grid%qv_upstream_y_tend) ENDIF IF ( ASSOCIATED( grid%v_upstream_y_tend ) ) THEN DEALLOCATE(grid%v_upstream_y_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_upstream_y_tend. ') endif NULLIFY(grid%v_upstream_y_tend) ENDIF IF ( ASSOCIATED( grid%v_largescale_tend ) ) THEN DEALLOCATE(grid%v_largescale_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_largescale_tend. ') endif NULLIFY(grid%v_largescale_tend) ENDIF IF ( ASSOCIATED( grid%soil_depth_force ) ) THEN DEALLOCATE(grid%soil_depth_force,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soil_depth_force. ') endif NULLIFY(grid%soil_depth_force) ENDIF IF ( ASSOCIATED( grid%mub_save ) ) THEN DEALLOCATE(grid%mub_save,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mub_save. ') endif NULLIFY(grid%mub_save) ENDIF IF ( ASSOCIATED( grid%xkmv_meso ) ) THEN DEALLOCATE(grid%xkmv_meso,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xkmv_meso. ') endif NULLIFY(grid%xkmv_meso) ENDIF IF ( ASSOCIATED( grid%rdn ) ) THEN DEALLOCATE(grid%rdn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rdn. ') endif NULLIFY(grid%rdn) ENDIF IF ( ASSOCIATED( grid%u10 ) ) THEN DEALLOCATE(grid%u10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10. ') endif NULLIFY(grid%u10) ENDIF IF ( ASSOCIATED( grid%qnifa2d ) ) THEN DEALLOCATE(grid%qnifa2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnifa2d. ') endif NULLIFY(grid%qnifa2d) ENDIF IF ( ASSOCIATED( grid%re_hail_gsfc ) ) THEN DEALLOCATE(grid%re_hail_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_hail_gsfc. ') endif NULLIFY(grid%re_hail_gsfc) ENDIF IF ( ASSOCIATED( grid%st ) ) THEN DEALLOCATE(grid%st,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st. ') endif NULLIFY(grid%st) ENDIF IF ( ASSOCIATED( grid%st100255 ) ) THEN DEALLOCATE(grid%st100255,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st100255. ') endif NULLIFY(grid%st100255) ENDIF IF ( ASSOCIATED( grid%sw000010 ) ) THEN DEALLOCATE(grid%sw000010,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sw000010. ') endif NULLIFY(grid%sw000010) ENDIF IF ( ASSOCIATED( grid%st010040 ) ) THEN DEALLOCATE(grid%st010040,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st010040. ') endif NULLIFY(grid%st010040) ENDIF IF ( ASSOCIATED( grid%toposlpy ) ) THEN DEALLOCATE(grid%toposlpy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%toposlpy. ') endif NULLIFY(grid%toposlpy) ENDIF IF ( ASSOCIATED( grid%vegcat ) ) THEN DEALLOCATE(grid%vegcat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vegcat. ') endif NULLIFY(grid%vegcat) ENDIF IF ( ASSOCIATED( grid%ts_gsw ) ) THEN DEALLOCATE(grid%ts_gsw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_gsw. ') endif NULLIFY(grid%ts_gsw) ENDIF IF ( ASSOCIATED( grid%ts_th_profile ) ) THEN DEALLOCATE(grid%ts_th_profile,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_th_profile. ') endif NULLIFY(grid%ts_th_profile) ENDIF IF ( ASSOCIATED( grid%stdh_urb2d ) ) THEN DEALLOCATE(grid%stdh_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%stdh_urb2d. ') endif NULLIFY(grid%stdh_urb2d) ENDIF IF ( ASSOCIATED( grid%albsi ) ) THEN DEALLOCATE(grid%albsi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albsi. ') endif NULLIFY(grid%albsi) ENDIF IF ( ASSOCIATED( grid%isltyp ) ) THEN DEALLOCATE(grid%isltyp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%isltyp. ') endif NULLIFY(grid%isltyp) ENDIF IF ( ASSOCIATED( grid%hcoeff ) ) THEN DEALLOCATE(grid%hcoeff,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hcoeff. ') endif NULLIFY(grid%hcoeff) ENDIF IF ( ASSOCIATED( grid%dfi_t ) ) THEN DEALLOCATE(grid%dfi_t,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_t. ') endif NULLIFY(grid%dfi_t) ENDIF IF ( ASSOCIATED( grid%dfi_smfr3d ) ) THEN DEALLOCATE(grid%dfi_smfr3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_smfr3d. ') endif NULLIFY(grid%dfi_smfr3d) ENDIF IF ( ASSOCIATED( grid%xxxg_urb2d ) ) THEN DEALLOCATE(grid%xxxg_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xxxg_urb2d. ') endif NULLIFY(grid%xxxg_urb2d) ENDIF IF ( ASSOCIATED( grid%tbl_urb3d ) ) THEN DEALLOCATE(grid%tbl_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tbl_urb3d. ') endif NULLIFY(grid%tbl_urb3d) ENDIF IF ( ASSOCIATED( grid%tgb_urb4d ) ) THEN DEALLOCATE(grid%tgb_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgb_urb4d. ') endif NULLIFY(grid%tgb_urb4d) ENDIF IF ( ASSOCIATED( grid%sfwin1_urb3d ) ) THEN DEALLOCATE(grid%sfwin1_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfwin1_urb3d. ') endif NULLIFY(grid%sfwin1_urb3d) ENDIF IF ( ASSOCIATED( grid%drain_urb4d ) ) THEN DEALLOCATE(grid%drain_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%drain_urb4d. ') endif NULLIFY(grid%drain_urb4d) ENDIF IF ( ASSOCIATED( grid%cmgr_sfcdif ) ) THEN DEALLOCATE(grid%cmgr_sfcdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmgr_sfcdif. ') endif NULLIFY(grid%cmgr_sfcdif) ENDIF IF ( ASSOCIATED( grid%precipfr ) ) THEN DEALLOCATE(grid%precipfr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%precipfr. ') endif NULLIFY(grid%precipfr) ENDIF IF ( ASSOCIATED( grid%rs ) ) THEN DEALLOCATE(grid%rs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rs. ') endif NULLIFY(grid%rs) ENDIF IF ( ASSOCIATED( grid%csand_px ) ) THEN DEALLOCATE(grid%csand_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%csand_px. ') endif NULLIFY(grid%csand_px) ENDIF IF ( ASSOCIATED( grid%pek_pbl ) ) THEN DEALLOCATE(grid%pek_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pek_pbl. ') endif NULLIFY(grid%pek_pbl) ENDIF IF ( ASSOCIATED( grid%akms ) ) THEN DEALLOCATE(grid%akms,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%akms. ') endif NULLIFY(grid%akms) ENDIF IF ( ASSOCIATED( grid%entr_edkf ) ) THEN DEALLOCATE(grid%entr_edkf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%entr_edkf. ') endif NULLIFY(grid%entr_edkf) ENDIF IF ( ASSOCIATED( grid%kh_temf ) ) THEN DEALLOCATE(grid%kh_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kh_temf. ') endif NULLIFY(grid%kh_temf) ENDIF IF ( ASSOCIATED( grid%hd_temf ) ) THEN DEALLOCATE(grid%hd_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hd_temf. ') endif NULLIFY(grid%hd_temf) ENDIF IF ( ASSOCIATED( grid%qsq ) ) THEN DEALLOCATE(grid%qsq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsq. ') endif NULLIFY(grid%qsq) ENDIF IF ( ASSOCIATED( grid%sub_sqv3d ) ) THEN DEALLOCATE(grid%sub_sqv3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sub_sqv3d. ') endif NULLIFY(grid%sub_sqv3d) ENDIF IF ( ASSOCIATED( grid%dusfcg ) ) THEN DEALLOCATE(grid%dusfcg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dusfcg. ') endif NULLIFY(grid%dusfcg) ENDIF IF ( ASSOCIATED( grid%dtaux3d_ls ) ) THEN DEALLOCATE(grid%dtaux3d_ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtaux3d_ls. ') endif NULLIFY(grid%dtaux3d_ls) ENDIF IF ( ASSOCIATED( grid%dusfcg_ss ) ) THEN DEALLOCATE(grid%dusfcg_ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dusfcg_ss. ') endif NULLIFY(grid%dusfcg_ss) ENDIF IF ( ASSOCIATED( grid%ol3ls ) ) THEN DEALLOCATE(grid%ol3ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol3ls. ') endif NULLIFY(grid%ol3ls) ENDIF IF ( ASSOCIATED( grid%ctopo ) ) THEN DEALLOCATE(grid%ctopo,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ctopo. ') endif NULLIFY(grid%ctopo) ENDIF IF ( ASSOCIATED( grid%dlg_bep ) ) THEN DEALLOCATE(grid%dlg_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dlg_bep. ') endif NULLIFY(grid%dlg_bep) ENDIF IF ( ASSOCIATED( grid%wq_tur ) ) THEN DEALLOCATE(grid%wq_tur,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wq_tur. ') endif NULLIFY(grid%wq_tur) ENDIF IF ( ASSOCIATED( grid%cfracm ) ) THEN DEALLOCATE(grid%cfracm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cfracm. ') endif NULLIFY(grid%cfracm) ENDIF IF ( ASSOCIATED( grid%aeromcu ) ) THEN DEALLOCATE(grid%aeromcu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aeromcu. ') endif NULLIFY(grid%aeromcu) ENDIF IF ( ASSOCIATED( grid%qndropsource ) ) THEN DEALLOCATE(grid%qndropsource,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qndropsource. ') endif NULLIFY(grid%qndropsource) ENDIF IF ( ASSOCIATED( grid%slopesfc ) ) THEN DEALLOCATE(grid%slopesfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%slopesfc. ') endif NULLIFY(grid%slopesfc) ENDIF IF ( ASSOCIATED( grid%updfra_cup ) ) THEN DEALLOCATE(grid%updfra_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%updfra_cup. ') endif NULLIFY(grid%updfra_cup) ENDIF IF ( ASSOCIATED( grid%fcvt_qc_to_qi_cup ) ) THEN DEALLOCATE(grid%fcvt_qc_to_qi_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fcvt_qc_to_qi_cup. ') endif NULLIFY(grid%fcvt_qc_to_qi_cup) ENDIF IF ( ASSOCIATED( grid%msfty ) ) THEN DEALLOCATE(grid%msfty,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msfty. ') endif NULLIFY(grid%msfty) ENDIF IF ( ASSOCIATED( grid%ht_int ) ) THEN DEALLOCATE(grid%ht_int,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_int. ') endif NULLIFY(grid%ht_int) ENDIF IF ( ASSOCIATED( grid%u_base ) ) THEN DEALLOCATE(grid%u_base,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_base. ') endif NULLIFY(grid%u_base) ENDIF IF ( ASSOCIATED( grid%acphysc ) ) THEN DEALLOCATE(grid%acphysc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acphysc. ') endif NULLIFY(grid%acphysc) ENDIF IF ( ASSOCIATED( grid%tlwup ) ) THEN DEALLOCATE(grid%tlwup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tlwup. ') endif NULLIFY(grid%tlwup) ENDIF IF ( ASSOCIATED( grid%rqvshten ) ) THEN DEALLOCATE(grid%rqvshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqvshten. ') endif NULLIFY(grid%rqvshten) ENDIF IF ( ASSOCIATED( grid%ca_rad ) ) THEN DEALLOCATE(grid%ca_rad,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ca_rad. ') endif NULLIFY(grid%ca_rad) ENDIF IF ( ASSOCIATED( grid%ltopb ) ) THEN DEALLOCATE(grid%ltopb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ltopb. ') endif NULLIFY(grid%ltopb) ENDIF IF ( ASSOCIATED( grid%rqccuten ) ) THEN DEALLOCATE(grid%rqccuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqccuten. ') endif NULLIFY(grid%rqccuten) ENDIF IF ( ASSOCIATED( grid%i_rainnc ) ) THEN DEALLOCATE(grid%i_rainnc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_rainnc. ') endif NULLIFY(grid%i_rainnc) ENDIF IF ( ASSOCIATED( grid%hailncv ) ) THEN DEALLOCATE(grid%hailncv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailncv. ') endif NULLIFY(grid%hailncv) ENDIF IF ( ASSOCIATED( grid%phii3d_2 ) ) THEN DEALLOCATE(grid%phii3d_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%phii3d_2. ') endif NULLIFY(grid%phii3d_2) ENDIF IF ( ASSOCIATED( grid%mass_flux ) ) THEN DEALLOCATE(grid%mass_flux,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mass_flux. ') endif NULLIFY(grid%mass_flux) ENDIF IF ( ASSOCIATED( grid%apr_as ) ) THEN DEALLOCATE(grid%apr_as,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_as. ') endif NULLIFY(grid%apr_as) ENDIF IF ( ASSOCIATED( grid%xf_ens ) ) THEN DEALLOCATE(grid%xf_ens,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xf_ens. ') endif NULLIFY(grid%xf_ens) ENDIF IF ( ASSOCIATED( grid%gd_cloud_a ) ) THEN DEALLOCATE(grid%gd_cloud_a,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gd_cloud_a. ') endif NULLIFY(grid%gd_cloud_a) ENDIF IF ( ASSOCIATED( grid%efcs ) ) THEN DEALLOCATE(grid%efcs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%efcs. ') endif NULLIFY(grid%efcs) ENDIF IF ( ASSOCIATED( grid%ccn6_gs ) ) THEN DEALLOCATE(grid%ccn6_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn6_gs. ') endif NULLIFY(grid%ccn6_gs) ENDIF IF ( ASSOCIATED( grid%rthratenswc ) ) THEN DEALLOCATE(grid%rthratenswc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthratenswc. ') endif NULLIFY(grid%rthratenswc) ENDIF IF ( ASSOCIATED( grid%glw ) ) THEN DEALLOCATE(grid%glw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%glw. ') endif NULLIFY(grid%glw) ENDIF IF ( ASSOCIATED( grid%gx ) ) THEN DEALLOCATE(grid%gx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gx. ') endif NULLIFY(grid%gx) ENDIF IF ( ASSOCIATED( grid%taod5503d ) ) THEN DEALLOCATE(grid%taod5503d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%taod5503d. ') endif NULLIFY(grid%taod5503d) ENDIF IF ( ASSOCIATED( grid%q2mean ) ) THEN DEALLOCATE(grid%q2mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2mean. ') endif NULLIFY(grid%q2mean) ENDIF IF ( ASSOCIATED( grid%u10mean ) ) THEN DEALLOCATE(grid%u10mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10mean. ') endif NULLIFY(grid%u10mean) ENDIF IF ( ASSOCIATED( grid%raincvstd ) ) THEN DEALLOCATE(grid%raincvstd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%raincvstd. ') endif NULLIFY(grid%raincvstd) ENDIF IF ( ASSOCIATED( grid%aclwuptc ) ) THEN DEALLOCATE(grid%aclwuptc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwuptc. ') endif NULLIFY(grid%aclwuptc) ENDIF IF ( ASSOCIATED( grid%i_acswupbc ) ) THEN DEALLOCATE(grid%i_acswupbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswupbc. ') endif NULLIFY(grid%i_acswupbc) ENDIF IF ( ASSOCIATED( grid%swuptc ) ) THEN DEALLOCATE(grid%swuptc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swuptc. ') endif NULLIFY(grid%swuptc) ENDIF IF ( ASSOCIATED( grid%lwuptc ) ) THEN DEALLOCATE(grid%lwuptc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwuptc. ') endif NULLIFY(grid%lwuptc) ENDIF IF ( ASSOCIATED( grid%lwcf ) ) THEN DEALLOCATE(grid%lwcf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwcf. ') endif NULLIFY(grid%lwcf) ENDIF IF ( ASSOCIATED( grid%noahres ) ) THEN DEALLOCATE(grid%noahres,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%noahres. ') endif NULLIFY(grid%noahres) ENDIF IF ( ASSOCIATED( grid%fbur ) ) THEN DEALLOCATE(grid%fbur,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fbur. ') endif NULLIFY(grid%fbur) ENDIF IF ( ASSOCIATED( grid%albbck_mosaic ) ) THEN DEALLOCATE(grid%albbck_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%albbck_mosaic. ') endif NULLIFY(grid%albbck_mosaic) ENDIF IF ( ASSOCIATED( grid%tr_urb2d_mosaic ) ) THEN DEALLOCATE(grid%tr_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tr_urb2d_mosaic. ') endif NULLIFY(grid%tr_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%lh_urb2d_mosaic ) ) THEN DEALLOCATE(grid%lh_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh_urb2d_mosaic. ') endif NULLIFY(grid%lh_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%lu_state ) ) THEN DEALLOCATE(grid%lu_state,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lu_state. ') endif NULLIFY(grid%lu_state) ENDIF IF ( ASSOCIATED( grid%tyr ) ) THEN DEALLOCATE(grid%tyr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tyr. ') endif NULLIFY(grid%tyr) ENDIF IF ( ASSOCIATED( grid%cda ) ) THEN DEALLOCATE(grid%cda,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cda. ') endif NULLIFY(grid%cda) ENDIF IF ( ASSOCIATED( grid%achfx ) ) THEN DEALLOCATE(grid%achfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%achfx. ') endif NULLIFY(grid%achfx) ENDIF IF ( ASSOCIATED( grid%tsnav ) ) THEN DEALLOCATE(grid%tsnav,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsnav. ') endif NULLIFY(grid%tsnav) ENDIF IF ( ASSOCIATED( grid%taucldi ) ) THEN DEALLOCATE(grid%taucldi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%taucldi. ') endif NULLIFY(grid%taucldi) ENDIF IF ( ASSOCIATED( grid%div ) ) THEN DEALLOCATE(grid%div,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%div. ') endif NULLIFY(grid%div) ENDIF IF ( ASSOCIATED( grid%fdda3d ) ) THEN DEALLOCATE(grid%fdda3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fdda3d. ') endif NULLIFY(grid%fdda3d) ENDIF IF ( ASSOCIATED( grid%rh_ndg_old ) ) THEN DEALLOCATE(grid%rh_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_ndg_old. ') endif NULLIFY(grid%rh_ndg_old) ENDIF IF ( ASSOCIATED( grid%sda_hfx ) ) THEN DEALLOCATE(grid%sda_hfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sda_hfx. ') endif NULLIFY(grid%sda_hfx) ENDIF IF ( ASSOCIATED( grid%pk1m ) ) THEN DEALLOCATE(grid%pk1m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pk1m. ') endif NULLIFY(grid%pk1m) ENDIF IF ( ASSOCIATED( grid%grpl_colint ) ) THEN DEALLOCATE(grid%grpl_colint,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grpl_colint. ') endif NULLIFY(grid%grpl_colint) ENDIF IF ( ASSOCIATED( grid%h0ml ) ) THEN DEALLOCATE(grid%h0ml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h0ml. ') endif NULLIFY(grid%h0ml) ENDIF IF ( ASSOCIATED( grid%track_ele ) ) THEN DEALLOCATE(grid%track_ele,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_ele. ') endif NULLIFY(grid%track_ele) ENDIF IF ( ASSOCIATED( grid%athmpten ) ) THEN DEALLOCATE(grid%athmpten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%athmpten. ') endif NULLIFY(grid%athmpten) ENDIF IF ( ASSOCIATED( grid%aublten ) ) THEN DEALLOCATE(grid%aublten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aublten. ') endif NULLIFY(grid%aublten) ENDIF IF ( ASSOCIATED( grid%hailcast_dhail1 ) ) THEN DEALLOCATE(grid%hailcast_dhail1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_dhail1. ') endif NULLIFY(grid%hailcast_dhail1) ENDIF IF ( ASSOCIATED( grid%ww_xxx ) ) THEN DEALLOCATE(grid%ww_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ww_xxx. ') endif NULLIFY(grid%ww_xxx) ENDIF IF ( ASSOCIATED( grid%grnqfx ) ) THEN DEALLOCATE(grid%grnqfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grnqfx. ') endif NULLIFY(grid%grnqfx) ENDIF IF ( ASSOCIATED( grid%lfn_s1 ) ) THEN DEALLOCATE(grid%lfn_s1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_s1. ') endif NULLIFY(grid%lfn_s1) ENDIF IF ( ASSOCIATED( grid%burnt_area_dt ) ) THEN DEALLOCATE(grid%burnt_area_dt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%burnt_area_dt. ') endif NULLIFY(grid%burnt_area_dt) ENDIF IF ( ASSOCIATED( grid%psfc_old ) ) THEN DEALLOCATE(grid%psfc_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psfc_old. ') endif NULLIFY(grid%psfc_old) ENDIF IF ( ASSOCIATED( grid%fxlong ) ) THEN DEALLOCATE(grid%fxlong,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fxlong. ') endif NULLIFY(grid%fxlong) ENDIF IF ( ASSOCIATED( grid%fs_gen_inst ) ) THEN DEALLOCATE(grid%fs_gen_inst,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_gen_inst. ') endif NULLIFY(grid%fs_gen_inst) ENDIF IF ( ASSOCIATED( grid%fs_p_temp ) ) THEN DEALLOCATE(grid%fs_p_temp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_temp. ') endif NULLIFY(grid%fs_p_temp) ENDIF IF ( ASSOCIATED( grid%cfu1 ) ) THEN DEALLOCATE(grid%cfu1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cfu1. ') endif NULLIFY(grid%cfu1) ENDIF IF ( ASSOCIATED( grid%field_conv ) ) THEN DEALLOCATE(grid%field_conv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%field_conv. ') endif NULLIFY(grid%field_conv) ENDIF IF ( ASSOCIATED( grid%spstreamforcs ) ) THEN DEALLOCATE(grid%spstreamforcs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spstreamforcs. ') endif NULLIFY(grid%spstreamforcs) ENDIF IF ( ASSOCIATED( grid%spforcs3 ) ) THEN DEALLOCATE(grid%spforcs3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcs3. ') endif NULLIFY(grid%spforcs3) ENDIF IF ( ASSOCIATED( grid%vertampuv ) ) THEN DEALLOCATE(grid%vertampuv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vertampuv. ') endif NULLIFY(grid%vertampuv) ENDIF IF ( ASSOCIATED( grid%iseed_mult3d ) ) THEN DEALLOCATE(grid%iseed_mult3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iseed_mult3d. ') endif NULLIFY(grid%iseed_mult3d) ENDIF IF ( ASSOCIATED( grid%tauresy2d ) ) THEN DEALLOCATE(grid%tauresy2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tauresy2d. ') endif NULLIFY(grid%tauresy2d) ENDIF IF ( ASSOCIATED( grid%zmdice ) ) THEN DEALLOCATE(grid%zmdice,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmdice. ') endif NULLIFY(grid%zmdice) ENDIF IF ( ASSOCIATED( grid%preccdzm ) ) THEN DEALLOCATE(grid%preccdzm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%preccdzm. ') endif NULLIFY(grid%preccdzm) ENDIF IF ( ASSOCIATED( grid%zmicuu ) ) THEN DEALLOCATE(grid%zmicuu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmicuu. ') endif NULLIFY(grid%zmicuu) ENDIF IF ( ASSOCIATED( grid%mu3d ) ) THEN DEALLOCATE(grid%mu3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu3d. ') endif NULLIFY(grid%mu3d) ENDIF IF ( ASSOCIATED( grid%evapcsh ) ) THEN DEALLOCATE(grid%evapcsh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%evapcsh. ') endif NULLIFY(grid%evapcsh) ENDIF IF ( ASSOCIATED( grid%slten_cu ) ) THEN DEALLOCATE(grid%slten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%slten_cu. ') endif NULLIFY(grid%slten_cu) ENDIF IF ( ASSOCIATED( grid%pinv_cu ) ) THEN DEALLOCATE(grid%pinv_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pinv_cu. ') endif NULLIFY(grid%pinv_cu) ENDIF IF ( ASSOCIATED( grid%zinv_cu ) ) THEN DEALLOCATE(grid%zinv_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zinv_cu. ') endif NULLIFY(grid%zinv_cu) ENDIF IF ( ASSOCIATED( grid%qtu_emf_cu ) ) THEN DEALLOCATE(grid%qtu_emf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtu_emf_cu. ') endif NULLIFY(grid%qtu_emf_cu) ENDIF IF ( ASSOCIATED( grid%dwten_cu ) ) THEN DEALLOCATE(grid%dwten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dwten_cu. ') endif NULLIFY(grid%dwten_cu) ENDIF IF ( ASSOCIATED( grid%bquad_cu ) ) THEN DEALLOCATE(grid%bquad_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bquad_cu. ') endif NULLIFY(grid%bquad_cu) ENDIF IF ( ASSOCIATED( grid%exit_cufliter_cu ) ) THEN DEALLOCATE(grid%exit_cufliter_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_cufliter_cu. ') endif NULLIFY(grid%exit_cufliter_cu) ENDIF IF ( ASSOCIATED( grid%ind_delcin_cu ) ) THEN DEALLOCATE(grid%ind_delcin_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ind_delcin_cu. ') endif NULLIFY(grid%ind_delcin_cu) ENDIF IF ( ASSOCIATED( grid%numc ) ) THEN DEALLOCATE(grid%numc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%numc. ') endif NULLIFY(grid%numc) ENDIF IF ( ASSOCIATED( grid%h2osno ) ) THEN DEALLOCATE(grid%h2osno,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osno. ') endif NULLIFY(grid%h2osno) ENDIF IF ( ASSOCIATED( grid%laip ) ) THEN DEALLOCATE(grid%laip,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%laip. ') endif NULLIFY(grid%laip) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq_s5 ) ) THEN DEALLOCATE(grid%h2osoi_liq_s5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq_s5. ') endif NULLIFY(grid%h2osoi_liq_s5) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice_s2 ) ) THEN DEALLOCATE(grid%h2osoi_ice_s2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice_s2. ') endif NULLIFY(grid%h2osoi_ice_s2) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice9 ) ) THEN DEALLOCATE(grid%h2osoi_ice9,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice9. ') endif NULLIFY(grid%h2osoi_ice9) ENDIF IF ( ASSOCIATED( grid%t_soisno6 ) ) THEN DEALLOCATE(grid%t_soisno6,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno6. ') endif NULLIFY(grid%t_soisno6) ENDIF IF ( ASSOCIATED( grid%snowrds3 ) ) THEN DEALLOCATE(grid%snowrds3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowrds3. ') endif NULLIFY(grid%snowrds3) ENDIF IF ( ASSOCIATED( grid%t_lake10 ) ) THEN DEALLOCATE(grid%t_lake10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake10. ') endif NULLIFY(grid%t_lake10) ENDIF IF ( ASSOCIATED( grid%lhsubgrid ) ) THEN DEALLOCATE(grid%lhsubgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lhsubgrid. ') endif NULLIFY(grid%lhsubgrid) ENDIF IF ( ASSOCIATED( grid%h2osno2d ) ) THEN DEALLOCATE(grid%h2osno2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osno2d. ') endif NULLIFY(grid%h2osno2d) ENDIF IF ( ASSOCIATED( grid%dz3d ) ) THEN DEALLOCATE(grid%dz3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dz3d. ') endif NULLIFY(grid%dz3d) ENDIF IF ( ASSOCIATED( grid%ssib_fm ) ) THEN DEALLOCATE(grid%ssib_fm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_fm. ') endif NULLIFY(grid%ssib_fm) ENDIF IF ( ASSOCIATED( grid%ssib_egt ) ) THEN DEALLOCATE(grid%ssib_egt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_egt. ') endif NULLIFY(grid%ssib_egt) ENDIF IF ( ASSOCIATED( grid%isnow ) ) THEN DEALLOCATE(grid%isnow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%isnow. ') endif NULLIFY(grid%isnow) ENDIF IF ( ASSOCIATED( grid%fio1 ) ) THEN DEALLOCATE(grid%fio1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fio1. ') endif NULLIFY(grid%fio1) ENDIF IF ( ASSOCIATED( grid%fio2 ) ) THEN DEALLOCATE(grid%fio2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fio2. ') endif NULLIFY(grid%fio2) ENDIF IF ( ASSOCIATED( grid%fio3 ) ) THEN DEALLOCATE(grid%fio3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fio3. ') endif NULLIFY(grid%fio3) ENDIF IF ( ASSOCIATED( grid%fio4 ) ) THEN DEALLOCATE(grid%fio4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fio4. ') endif NULLIFY(grid%fio4) ENDIF IF ( ASSOCIATED( grid%cmxy ) ) THEN DEALLOCATE(grid%cmxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmxy. ') endif NULLIFY(grid%cmxy) ENDIF IF ( ASSOCIATED( grid%zsnsoxy ) ) THEN DEALLOCATE(grid%zsnsoxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zsnsoxy. ') endif NULLIFY(grid%zsnsoxy) ENDIF IF ( ASSOCIATED( grid%t2mbxy ) ) THEN DEALLOCATE(grid%t2mbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2mbxy. ') endif NULLIFY(grid%t2mbxy) ENDIF IF ( ASSOCIATED( grid%edirxy ) ) THEN DEALLOCATE(grid%edirxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edirxy. ') endif NULLIFY(grid%edirxy) ENDIF IF ( ASSOCIATED( grid%tgvxy ) ) THEN DEALLOCATE(grid%tgvxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgvxy. ') endif NULLIFY(grid%tgvxy) ENDIF IF ( ASSOCIATED( grid%ircxy ) ) THEN DEALLOCATE(grid%ircxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ircxy. ') endif NULLIFY(grid%ircxy) ENDIF IF ( ASSOCIATED( grid%deeprechxy ) ) THEN DEALLOCATE(grid%deeprechxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%deeprechxy. ') endif NULLIFY(grid%deeprechxy) ENDIF IF ( ASSOCIATED( grid%rivercondxy ) ) THEN DEALLOCATE(grid%rivercondxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rivercondxy. ') endif NULLIFY(grid%rivercondxy) ENDIF IF ( ASSOCIATED( grid%qsnfroxy ) ) THEN DEALLOCATE(grid%qsnfroxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsnfroxy. ') endif NULLIFY(grid%qsnfroxy) ENDIF IF ( ASSOCIATED( grid%pahvxy ) ) THEN DEALLOCATE(grid%pahvxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pahvxy. ') endif NULLIFY(grid%pahvxy) ENDIF IF ( ASSOCIATED( grid%acintr ) ) THEN DEALLOCATE(grid%acintr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acintr. ') endif NULLIFY(grid%acintr) ENDIF IF ( ASSOCIATED( grid%acrunsf ) ) THEN DEALLOCATE(grid%acrunsf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acrunsf. ') endif NULLIFY(grid%acrunsf) ENDIF IF ( ASSOCIATED( grid%acsnbot ) ) THEN DEALLOCATE(grid%acsnbot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsnbot. ') endif NULLIFY(grid%acsnbot) ENDIF IF ( ASSOCIATED( grid%acghb ) ) THEN DEALLOCATE(grid%acghb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acghb. ') endif NULLIFY(grid%acghb) ENDIF IF ( ASSOCIATED( grid%actr ) ) THEN DEALLOCATE(grid%actr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%actr. ') endif NULLIFY(grid%actr) ENDIF IF ( ASSOCIATED( grid%snowenergy ) ) THEN DEALLOCATE(grid%snowenergy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowenergy. ') endif NULLIFY(grid%snowenergy) ENDIF IF ( ASSOCIATED( grid%grainxy ) ) THEN DEALLOCATE(grid%grainxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grainxy. ') endif NULLIFY(grid%grainxy) ENDIF IF ( ASSOCIATED( grid%sifract ) ) THEN DEALLOCATE(grid%sifract,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sifract. ') endif NULLIFY(grid%sifract) ENDIF IF ( ASSOCIATED( grid%ireloss ) ) THEN DEALLOCATE(grid%ireloss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ireloss. ') endif NULLIFY(grid%ireloss) ENDIF IF ( ASSOCIATED( grid%kext_ft_qid ) ) THEN DEALLOCATE(grid%kext_ft_qid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_ft_qid. ') endif NULLIFY(grid%kext_ft_qid) ENDIF IF ( ASSOCIATED( grid%refd ) ) THEN DEALLOCATE(grid%refd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%refd. ') endif NULLIFY(grid%refd) ENDIF IF ( ASSOCIATED( grid%icing_sm ) ) THEN DEALLOCATE(grid%icing_sm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icing_sm. ') endif NULLIFY(grid%icing_sm) ENDIF IF ( ASSOCIATED( grid%afwa_precip ) ) THEN DEALLOCATE(grid%afwa_precip,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_precip. ') endif NULLIFY(grid%afwa_precip) ENDIF IF ( ASSOCIATED( grid%afwa_cape ) ) THEN DEALLOCATE(grid%afwa_cape,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_cape. ') endif NULLIFY(grid%afwa_cape) ENDIF IF ( ASSOCIATED( grid%afwa_tornado ) ) THEN DEALLOCATE(grid%afwa_tornado,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_tornado. ') endif NULLIFY(grid%afwa_tornado) ENDIF IF ( ASSOCIATED( grid%glw_mean ) ) THEN DEALLOCATE(grid%glw_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%glw_mean. ') endif NULLIFY(grid%glw_mean) ENDIF IF ( ASSOCIATED( grid%th2_diurn ) ) THEN DEALLOCATE(grid%th2_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th2_diurn. ') endif NULLIFY(grid%th2_diurn) ENDIF IF ( ASSOCIATED( grid%lwupt_diurn ) ) THEN DEALLOCATE(grid%lwupt_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupt_diurn. ') endif NULLIFY(grid%lwupt_diurn) ENDIF IF ( ASSOCIATED( grid%lh_dtmp ) ) THEN DEALLOCATE(grid%lh_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh_dtmp. ') endif NULLIFY(grid%lh_dtmp) ENDIF IF ( ASSOCIATED( grid%noninduc ) ) THEN DEALLOCATE(grid%noninduc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%noninduc. ') endif NULLIFY(grid%noninduc) ENDIF IF ( ASSOCIATED( grid%flshp ) ) THEN DEALLOCATE(grid%flshp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flshp. ') endif NULLIFY(grid%flshp) ENDIF IF ( ASSOCIATED( grid%field_t_tend_perturb ) ) THEN DEALLOCATE(grid%field_t_tend_perturb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%field_t_tend_perturb. ') endif NULLIFY(grid%field_t_tend_perturb) ENDIF IF ( ASSOCIATED( grid%pc_1 ) ) THEN DEALLOCATE(grid%pc_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pc_1. ') endif NULLIFY(grid%pc_1) ENDIF IF ( ASSOCIATED( grid%pc_2 ) ) THEN DEALLOCATE(grid%pc_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pc_2. ') endif NULLIFY(grid%pc_2) ENDIF IF ( ASSOCIATED( grid%p_wif_jan ) ) THEN DEALLOCATE(grid%p_wif_jan,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_jan. ') endif NULLIFY(grid%p_wif_jan) ENDIF IF ( ASSOCIATED( grid%w_wif_now ) ) THEN DEALLOCATE(grid%w_wif_now,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_now. ') endif NULLIFY(grid%w_wif_now) ENDIF IF ( ASSOCIATED( grid%w_wif_dec ) ) THEN DEALLOCATE(grid%w_wif_dec,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_dec. ') endif NULLIFY(grid%w_wif_dec) ENDIF IF ( ASSOCIATED( grid%i_wif_nov ) ) THEN DEALLOCATE(grid%i_wif_nov,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_nov. ') endif NULLIFY(grid%i_wif_nov) ENDIF IF ( ASSOCIATED( grid%b_wif_oct ) ) THEN DEALLOCATE(grid%b_wif_oct,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_oct. ') endif NULLIFY(grid%b_wif_oct) ENDIF IF ( ASSOCIATED( grid%rain ) ) THEN DEALLOCATE(grid%rain,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rain. ') endif NULLIFY(grid%rain) ENDIF IF ( ASSOCIATED( grid%swp ) ) THEN DEALLOCATE(grid%swp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swp. ') endif NULLIFY(grid%swp) ENDIF IF ( ASSOCIATED( grid%tau_qs ) ) THEN DEALLOCATE(grid%tau_qs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_qs. ') endif NULLIFY(grid%tau_qs) ENDIF IF ( ASSOCIATED( grid%ts_lwp ) ) THEN DEALLOCATE(grid%ts_lwp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_lwp. ') endif NULLIFY(grid%ts_lwp) ENDIF IF ( ASSOCIATED( grid%ts_tau_qc ) ) THEN DEALLOCATE(grid%ts_tau_qc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_tau_qc. ') endif NULLIFY(grid%ts_tau_qc) ENDIF IF ( ASSOCIATED( grid%ts_swdown ) ) THEN DEALLOCATE(grid%ts_swdown,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swdown. ') endif NULLIFY(grid%ts_swdown) ENDIF IF ( ASSOCIATED( grid%s_pl ) ) THEN DEALLOCATE(grid%s_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%s_pl. ') endif NULLIFY(grid%s_pl) ENDIF IF ( ASSOCIATED( grid%t_zl ) ) THEN DEALLOCATE(grid%t_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_zl. ') endif NULLIFY(grid%t_zl) ENDIF IF ( ASSOCIATED( grid%p_iau ) ) THEN DEALLOCATE(grid%p_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_iau. ') endif NULLIFY(grid%p_iau) ENDIF IF ( ASSOCIATED( grid%rphiauten ) ) THEN DEALLOCATE(grid%rphiauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rphiauten. ') endif NULLIFY(grid%rphiauten) ENDIF END SUBROUTINE deallocs_11 !ENDOFREGISTRYGENERATEDINCLUDE