!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_0.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_0( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%xlat ) ) THEN DEALLOCATE(grid%xlat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xlat. ') endif NULLIFY(grid%xlat) ENDIF IF ( ASSOCIATED( grid%traj_lat ) ) THEN DEALLOCATE(grid%traj_lat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%traj_lat. ') endif NULLIFY(grid%traj_lat) ENDIF IF ( ASSOCIATED( grid%lap_hgt ) ) THEN DEALLOCATE(grid%lap_hgt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lap_hgt. ') endif NULLIFY(grid%lap_hgt) ENDIF IF ( ASSOCIATED( grid%psfc_gc ) ) THEN DEALLOCATE(grid%psfc_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psfc_gc. ') endif NULLIFY(grid%psfc_gc) ENDIF IF ( ASSOCIATED( grid%qi_gc ) ) THEN DEALLOCATE(grid%qi_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qi_gc. ') endif NULLIFY(grid%qi_gc) ENDIF IF ( ASSOCIATED( grid%ght_max_p ) ) THEN DEALLOCATE(grid%ght_max_p,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ght_max_p. ') endif NULLIFY(grid%ght_max_p) ENDIF IF ( ASSOCIATED( grid%ttrop ) ) THEN DEALLOCATE(grid%ttrop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ttrop. ') endif NULLIFY(grid%ttrop) ENDIF IF ( ASSOCIATED( grid%ru_m ) ) THEN DEALLOCATE(grid%ru_m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ru_m. ') endif NULLIFY(grid%ru_m) ENDIF IF ( ASSOCIATED( grid%rv_m ) ) THEN DEALLOCATE(grid%rv_m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rv_m. ') endif NULLIFY(grid%rv_m) ENDIF IF ( ASSOCIATED( grid%phb ) ) THEN DEALLOCATE(grid%phb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%phb. ') endif NULLIFY(grid%phb) ENDIF IF ( ASSOCIATED( grid%ql_upstream_x ) ) THEN DEALLOCATE(grid%ql_upstream_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ql_upstream_x. ') endif NULLIFY(grid%ql_upstream_x) ENDIF IF ( ASSOCIATED( grid%th_t_tend ) ) THEN DEALLOCATE(grid%th_t_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_t_tend. ') endif NULLIFY(grid%th_t_tend) ENDIF IF ( ASSOCIATED( grid%tau_largescale ) ) THEN DEALLOCATE(grid%tau_largescale,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_largescale. ') endif NULLIFY(grid%tau_largescale) ENDIF IF ( ASSOCIATED( grid%mu0 ) ) THEN DEALLOCATE(grid%mu0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu0. ') endif NULLIFY(grid%mu0) ENDIF IF ( ASSOCIATED( grid%nest_pos ) ) THEN DEALLOCATE(grid%nest_pos,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nest_pos. ') endif NULLIFY(grid%nest_pos) ENDIF IF ( ASSOCIATED( grid%p ) ) THEN DEALLOCATE(grid%p,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p. ') endif NULLIFY(grid%p) ENDIF IF ( ASSOCIATED( grid%dnw ) ) THEN DEALLOCATE(grid%dnw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dnw. ') endif NULLIFY(grid%dnw) ENDIF IF ( ASSOCIATED( grid%v10 ) ) THEN DEALLOCATE(grid%v10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10. ') endif NULLIFY(grid%v10) ENDIF IF ( ASSOCIATED( grid%qnbca2d ) ) THEN DEALLOCATE(grid%qnbca2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnbca2d. ') endif NULLIFY(grid%qnbca2d) ENDIF IF ( ASSOCIATED( grid%dfi_re_cloud ) ) THEN DEALLOCATE(grid%dfi_re_cloud,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_cloud. ') endif NULLIFY(grid%dfi_re_cloud) ENDIF IF ( ASSOCIATED( grid%scalar ) ) THEN DEALLOCATE(grid%scalar,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%scalar. ') endif NULLIFY(grid%scalar) ENDIF IF ( ASSOCIATED( grid%sm ) ) THEN DEALLOCATE(grid%sm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm. ') endif NULLIFY(grid%sm) ENDIF IF ( ASSOCIATED( grid%sm000010 ) ) THEN DEALLOCATE(grid%sm000010,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm000010. ') endif NULLIFY(grid%sm000010) ENDIF IF ( ASSOCIATED( grid%sw010040 ) ) THEN DEALLOCATE(grid%sw010040,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sw010040. ') endif NULLIFY(grid%sw010040) ENDIF IF ( ASSOCIATED( grid%st040100 ) ) THEN DEALLOCATE(grid%st040100,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st040100. ') endif NULLIFY(grid%st040100) ENDIF IF ( ASSOCIATED( grid%slope ) ) THEN DEALLOCATE(grid%slope,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%slope. ') endif NULLIFY(grid%slope) ENDIF IF ( ASSOCIATED( grid%pct_pft_input ) ) THEN DEALLOCATE(grid%pct_pft_input,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pct_pft_input. ') endif NULLIFY(grid%pct_pft_input) ENDIF IF ( ASSOCIATED( grid%ts_hfx ) ) THEN DEALLOCATE(grid%ts_hfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_hfx. ') endif NULLIFY(grid%ts_hfx) ENDIF IF ( ASSOCIATED( grid%ts_qv_profile ) ) THEN DEALLOCATE(grid%ts_qv_profile,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_qv_profile. ') endif NULLIFY(grid%ts_qv_profile) ENDIF IF ( ASSOCIATED( grid%lf_urb2d ) ) THEN DEALLOCATE(grid%lf_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lf_urb2d. ') endif NULLIFY(grid%lf_urb2d) ENDIF IF ( ASSOCIATED( grid%snowsi ) ) THEN DEALLOCATE(grid%snowsi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowsi. ') endif NULLIFY(grid%snowsi) ENDIF IF ( ASSOCIATED( grid%vegfra ) ) THEN DEALLOCATE(grid%vegfra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vegfra. ') endif NULLIFY(grid%vegfra) ENDIF IF ( ASSOCIATED( grid%dfi_rh ) ) THEN DEALLOCATE(grid%dfi_rh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_rh. ') endif NULLIFY(grid%dfi_rh) ENDIF IF ( ASSOCIATED( grid%dfi_keepfr3dflag ) ) THEN DEALLOCATE(grid%dfi_keepfr3dflag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_keepfr3dflag. ') endif NULLIFY(grid%dfi_keepfr3dflag) ENDIF IF ( ASSOCIATED( grid%xxxc_urb2d ) ) THEN DEALLOCATE(grid%xxxc_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xxxc_urb2d. ') endif NULLIFY(grid%xxxc_urb2d) ENDIF IF ( ASSOCIATED( grid%tgl_urb3d ) ) THEN DEALLOCATE(grid%tgl_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgl_urb3d. ') endif NULLIFY(grid%tgl_urb3d) ENDIF IF ( ASSOCIATED( grid%tlev_urb3d ) ) THEN DEALLOCATE(grid%tlev_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tlev_urb3d. ') endif NULLIFY(grid%tlev_urb3d) ENDIF IF ( ASSOCIATED( grid%sfwin2_urb3d ) ) THEN DEALLOCATE(grid%sfwin2_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfwin2_urb3d. ') endif NULLIFY(grid%sfwin2_urb3d) ENDIF IF ( ASSOCIATED( grid%draingr_urb3d ) ) THEN DEALLOCATE(grid%draingr_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%draingr_urb3d. ') endif NULLIFY(grid%draingr_urb3d) ENDIF IF ( ASSOCIATED( grid%chgr_sfcdif ) ) THEN DEALLOCATE(grid%chgr_sfcdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chgr_sfcdif. ') endif NULLIFY(grid%chgr_sfcdif) ENDIF IF ( ASSOCIATED( grid%smfr3d ) ) THEN DEALLOCATE(grid%smfr3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smfr3d. ') endif NULLIFY(grid%smfr3d) ENDIF IF ( ASSOCIATED( grid%lai ) ) THEN DEALLOCATE(grid%lai,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lai. ') endif NULLIFY(grid%lai) ENDIF IF ( ASSOCIATED( grid%fmsand_px ) ) THEN DEALLOCATE(grid%fmsand_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fmsand_px. ') endif NULLIFY(grid%fmsand_px) ENDIF IF ( ASSOCIATED( grid%pep_pbl ) ) THEN DEALLOCATE(grid%pep_pbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pep_pbl. ') endif NULLIFY(grid%pep_pbl) ENDIF IF ( ASSOCIATED( grid%kpbl ) ) THEN DEALLOCATE(grid%kpbl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kpbl. ') endif NULLIFY(grid%kpbl) ENDIF IF ( ASSOCIATED( grid%detr_edkf ) ) THEN DEALLOCATE(grid%detr_edkf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%detr_edkf. ') endif NULLIFY(grid%detr_edkf) ENDIF IF ( ASSOCIATED( grid%km_temf ) ) THEN DEALLOCATE(grid%km_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%km_temf. ') endif NULLIFY(grid%km_temf) ENDIF IF ( ASSOCIATED( grid%lcl_temf ) ) THEN DEALLOCATE(grid%lcl_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lcl_temf. ') endif NULLIFY(grid%lcl_temf) ENDIF IF ( ASSOCIATED( grid%cov ) ) THEN DEALLOCATE(grid%cov,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cov. ') endif NULLIFY(grid%cov) ENDIF IF ( ASSOCIATED( grid%det_thl3d ) ) THEN DEALLOCATE(grid%det_thl3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%det_thl3d. ') endif NULLIFY(grid%det_thl3d) ENDIF IF ( ASSOCIATED( grid%dvsfcg ) ) THEN DEALLOCATE(grid%dvsfcg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dvsfcg. ') endif NULLIFY(grid%dvsfcg) ENDIF IF ( ASSOCIATED( grid%dtauy3d_ls ) ) THEN DEALLOCATE(grid%dtauy3d_ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtauy3d_ls. ') endif NULLIFY(grid%dtauy3d_ls) ENDIF IF ( ASSOCIATED( grid%dvsfcg_ss ) ) THEN DEALLOCATE(grid%dvsfcg_ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dvsfcg_ss. ') endif NULLIFY(grid%dvsfcg_ss) ENDIF IF ( ASSOCIATED( grid%ol4ls ) ) THEN DEALLOCATE(grid%ol4ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol4ls. ') endif NULLIFY(grid%ol4ls) ENDIF IF ( ASSOCIATED( grid%ctopo2 ) ) THEN DEALLOCATE(grid%ctopo2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ctopo2. ') endif NULLIFY(grid%ctopo2) ENDIF IF ( ASSOCIATED( grid%dl_u_bep ) ) THEN DEALLOCATE(grid%dl_u_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dl_u_bep. ') endif NULLIFY(grid%dl_u_bep) ENDIF IF ( ASSOCIATED( grid%htop ) ) THEN DEALLOCATE(grid%htop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%htop. ') endif NULLIFY(grid%htop) ENDIF IF ( ASSOCIATED( grid%cfrach ) ) THEN DEALLOCATE(grid%cfrach,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cfrach. ') endif NULLIFY(grid%cfrach) ENDIF IF ( ASSOCIATED( grid%aeropcu ) ) THEN DEALLOCATE(grid%aeropcu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aeropcu. ') endif NULLIFY(grid%aeropcu) ENDIF IF ( ASSOCIATED( grid%om_tmp ) ) THEN DEALLOCATE(grid%om_tmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_tmp. ') endif NULLIFY(grid%om_tmp) ENDIF IF ( ASSOCIATED( grid%slopeez ) ) THEN DEALLOCATE(grid%slopeez,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%slopeez. ') endif NULLIFY(grid%slopeez) ENDIF IF ( ASSOCIATED( grid%qc_iu_cup ) ) THEN DEALLOCATE(grid%qc_iu_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qc_iu_cup. ') endif NULLIFY(grid%qc_iu_cup) ENDIF IF ( ASSOCIATED( grid%fcvt_qi_to_pr_cup ) ) THEN DEALLOCATE(grid%fcvt_qi_to_pr_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fcvt_qi_to_pr_cup. ') endif NULLIFY(grid%fcvt_qi_to_pr_cup) ENDIF IF ( ASSOCIATED( grid%msfux ) ) THEN DEALLOCATE(grid%msfux,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msfux. ') endif NULLIFY(grid%msfux) ENDIF IF ( ASSOCIATED( grid%ht_input ) ) THEN DEALLOCATE(grid%ht_input,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_input. ') endif NULLIFY(grid%ht_input) ENDIF IF ( ASSOCIATED( grid%v_base ) ) THEN DEALLOCATE(grid%v_base,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_base. ') endif NULLIFY(grid%v_base) ENDIF IF ( ASSOCIATED( grid%acphyse ) ) THEN DEALLOCATE(grid%acphyse,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acphyse. ') endif NULLIFY(grid%acphyse) ENDIF IF ( ASSOCIATED( grid%slwdn ) ) THEN DEALLOCATE(grid%slwdn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%slwdn. ') endif NULLIFY(grid%slwdn) ENDIF IF ( ASSOCIATED( grid%rqrshten ) ) THEN DEALLOCATE(grid%rqrshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqrshten. ') endif NULLIFY(grid%rqrshten) ENDIF IF ( ASSOCIATED( grid%cw_rad ) ) THEN DEALLOCATE(grid%cw_rad,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cw_rad. ') endif NULLIFY(grid%cw_rad) ENDIF IF ( ASSOCIATED( grid%kdcldtop ) ) THEN DEALLOCATE(grid%kdcldtop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kdcldtop. ') endif NULLIFY(grid%kdcldtop) ENDIF IF ( ASSOCIATED( grid%rqscuten ) ) THEN DEALLOCATE(grid%rqscuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqscuten. ') endif NULLIFY(grid%rqscuten) ENDIF IF ( ASSOCIATED( grid%pratec ) ) THEN DEALLOCATE(grid%pratec,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pratec. ') endif NULLIFY(grid%pratec) ENDIF IF ( ASSOCIATED( grid%refl_10cm ) ) THEN DEALLOCATE(grid%refl_10cm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%refl_10cm. ') endif NULLIFY(grid%refl_10cm) ENDIF IF ( ASSOCIATED( grid%vmi3d_3 ) ) THEN DEALLOCATE(grid%vmi3d_3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vmi3d_3. ') endif NULLIFY(grid%vmi3d_3) ENDIF IF ( ASSOCIATED( grid%cldfra_dp ) ) THEN DEALLOCATE(grid%cldfra_dp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra_dp. ') endif NULLIFY(grid%cldfra_dp) ENDIF IF ( ASSOCIATED( grid%apr_capma ) ) THEN DEALLOCATE(grid%apr_capma,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_capma. ') endif NULLIFY(grid%apr_capma) ENDIF IF ( ASSOCIATED( grid%pr_ens ) ) THEN DEALLOCATE(grid%pr_ens,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pr_ens. ') endif NULLIFY(grid%pr_ens) ENDIF IF ( ASSOCIATED( grid%gd_cloud2_a ) ) THEN DEALLOCATE(grid%gd_cloud2_a,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gd_cloud2_a. ') endif NULLIFY(grid%gd_cloud2_a) ENDIF IF ( ASSOCIATED( grid%efis ) ) THEN DEALLOCATE(grid%efis,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%efis. ') endif NULLIFY(grid%efis) ENDIF IF ( ASSOCIATED( grid%ccn7_gs ) ) THEN DEALLOCATE(grid%ccn7_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn7_gs. ') endif NULLIFY(grid%ccn7_gs) ENDIF IF ( ASSOCIATED( grid%cldfra ) ) THEN DEALLOCATE(grid%cldfra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra. ') endif NULLIFY(grid%cldfra) ENDIF IF ( ASSOCIATED( grid%swnorm ) ) THEN DEALLOCATE(grid%swnorm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swnorm. ') endif NULLIFY(grid%swnorm) ENDIF IF ( ASSOCIATED( grid%bx ) ) THEN DEALLOCATE(grid%bx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bx. ') endif NULLIFY(grid%bx) ENDIF IF ( ASSOCIATED( grid%taod5502d ) ) THEN DEALLOCATE(grid%taod5502d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%taod5502d. ') endif NULLIFY(grid%taod5502d) ENDIF IF ( ASSOCIATED( grid%q2std ) ) THEN DEALLOCATE(grid%q2std,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2std. ') endif NULLIFY(grid%q2std) ENDIF IF ( ASSOCIATED( grid%v10mean ) ) THEN DEALLOCATE(grid%v10mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10mean. ') endif NULLIFY(grid%v10mean) ENDIF IF ( ASSOCIATED( grid%rainncvstd ) ) THEN DEALLOCATE(grid%rainncvstd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainncvstd. ') endif NULLIFY(grid%rainncvstd) ENDIF IF ( ASSOCIATED( grid%aclwdnt ) ) THEN DEALLOCATE(grid%aclwdnt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwdnt. ') endif NULLIFY(grid%aclwdnt) ENDIF IF ( ASSOCIATED( grid%i_acswdnb ) ) THEN DEALLOCATE(grid%i_acswdnb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswdnb. ') endif NULLIFY(grid%i_acswdnb) ENDIF IF ( ASSOCIATED( grid%swuptcln ) ) THEN DEALLOCATE(grid%swuptcln,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swuptcln. ') endif NULLIFY(grid%swuptcln) ENDIF IF ( ASSOCIATED( grid%lwuptcln ) ) THEN DEALLOCATE(grid%lwuptcln,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwuptcln. ') endif NULLIFY(grid%lwuptcln) ENDIF IF ( ASSOCIATED( grid%olr ) ) THEN DEALLOCATE(grid%olr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%olr. ') endif NULLIFY(grid%olr) ENDIF IF ( ASSOCIATED( grid%cldefi ) ) THEN DEALLOCATE(grid%cldefi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldefi. ') endif NULLIFY(grid%cldefi) ENDIF IF ( ASSOCIATED( grid%fgsn ) ) THEN DEALLOCATE(grid%fgsn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fgsn. ') endif NULLIFY(grid%fgsn) ENDIF IF ( ASSOCIATED( grid%emiss_mosaic ) ) THEN DEALLOCATE(grid%emiss_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%emiss_mosaic. ') endif NULLIFY(grid%emiss_mosaic) ENDIF IF ( ASSOCIATED( grid%tb_urb2d_mosaic ) ) THEN DEALLOCATE(grid%tb_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tb_urb2d_mosaic. ') endif NULLIFY(grid%tb_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%g_urb2d_mosaic ) ) THEN DEALLOCATE(grid%g_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%g_urb2d_mosaic. ') endif NULLIFY(grid%g_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%tyra ) ) THEN DEALLOCATE(grid%tyra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tyra. ') endif NULLIFY(grid%tyra) ENDIF IF ( ASSOCIATED( grid%ust ) ) THEN DEALLOCATE(grid%ust,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ust. ') endif NULLIFY(grid%ust) ENDIF IF ( ASSOCIATED( grid%wstar ) ) THEN DEALLOCATE(grid%wstar,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wstar. ') endif NULLIFY(grid%wstar) ENDIF IF ( ASSOCIATED( grid%dfi_tsnav ) ) THEN DEALLOCATE(grid%dfi_tsnav,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_tsnav. ') endif NULLIFY(grid%dfi_tsnav) ENDIF IF ( ASSOCIATED( grid%taucldc ) ) THEN DEALLOCATE(grid%taucldc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%taucldc. ') endif NULLIFY(grid%taucldc) ENDIF IF ( ASSOCIATED( grid%bn2 ) ) THEN DEALLOCATE(grid%bn2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bn2. ') endif NULLIFY(grid%bn2) ENDIF IF ( ASSOCIATED( grid%fdda2d ) ) THEN DEALLOCATE(grid%fdda2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fdda2d. ') endif NULLIFY(grid%fdda2d) ENDIF IF ( ASSOCIATED( grid%rh_ndg_new ) ) THEN DEALLOCATE(grid%rh_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_ndg_new. ') endif NULLIFY(grid%rh_ndg_new) ENDIF IF ( ASSOCIATED( grid%sda_qfx ) ) THEN DEALLOCATE(grid%sda_qfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sda_qfx. ') endif NULLIFY(grid%sda_qfx) ENDIF IF ( ASSOCIATED( grid%mu_2m ) ) THEN DEALLOCATE(grid%mu_2m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mu_2m. ') endif NULLIFY(grid%mu_2m) ENDIF IF ( ASSOCIATED( grid%hail_maxk1 ) ) THEN DEALLOCATE(grid%hail_maxk1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hail_maxk1. ') endif NULLIFY(grid%hail_maxk1) ENDIF IF ( ASSOCIATED( grid%huml ) ) THEN DEALLOCATE(grid%huml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%huml. ') endif NULLIFY(grid%huml) ENDIF IF ( ASSOCIATED( grid%track_aircraft ) ) THEN DEALLOCATE(grid%track_aircraft,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_aircraft. ') endif NULLIFY(grid%track_aircraft) ENDIF IF ( ASSOCIATED( grid%aqvmpten ) ) THEN DEALLOCATE(grid%aqvmpten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aqvmpten. ') endif NULLIFY(grid%aqvmpten) ENDIF IF ( ASSOCIATED( grid%avblten ) ) THEN DEALLOCATE(grid%avblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avblten. ') endif NULLIFY(grid%avblten) ENDIF IF ( ASSOCIATED( grid%hailcast_dhail2 ) ) THEN DEALLOCATE(grid%hailcast_dhail2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_dhail2. ') endif NULLIFY(grid%hailcast_dhail2) ENDIF IF ( ASSOCIATED( grid%ic_flashcount ) ) THEN DEALLOCATE(grid%ic_flashcount,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ic_flashcount. ') endif NULLIFY(grid%ic_flashcount) ENDIF IF ( ASSOCIATED( grid%ph_xxx ) ) THEN DEALLOCATE(grid%ph_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_xxx. ') endif NULLIFY(grid%ph_xxx) ENDIF IF ( ASSOCIATED( grid%cloudnc ) ) THEN DEALLOCATE(grid%cloudnc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cloudnc. ') endif NULLIFY(grid%cloudnc) ENDIF IF ( ASSOCIATED( grid%lfn_hist ) ) THEN DEALLOCATE(grid%lfn_hist,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_hist. ') endif NULLIFY(grid%lfn_hist) ENDIF IF ( ASSOCIATED( grid%canhfx ) ) THEN DEALLOCATE(grid%canhfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%canhfx. ') endif NULLIFY(grid%canhfx) ENDIF IF ( ASSOCIATED( grid%lfn_s2 ) ) THEN DEALLOCATE(grid%lfn_s2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_s2. ') endif NULLIFY(grid%lfn_s2) ENDIF IF ( ASSOCIATED( grid%flame_length ) ) THEN DEALLOCATE(grid%flame_length,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flame_length. ') endif NULLIFY(grid%flame_length) ENDIF IF ( ASSOCIATED( grid%rh_fire ) ) THEN DEALLOCATE(grid%rh_fire,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_fire. ') endif NULLIFY(grid%rh_fire) ENDIF IF ( ASSOCIATED( grid%fxlat ) ) THEN DEALLOCATE(grid%fxlat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fxlat. ') endif NULLIFY(grid%fxlat) ENDIF IF ( ASSOCIATED( grid%fs_frac_landed ) ) THEN DEALLOCATE(grid%fs_frac_landed,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_frac_landed. ') endif NULLIFY(grid%fs_frac_landed) ENDIF IF ( ASSOCIATED( grid%fs_p_tvel ) ) THEN DEALLOCATE(grid%fs_p_tvel,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_tvel. ') endif NULLIFY(grid%fs_p_tvel) ENDIF IF ( ASSOCIATED( grid%cfd1 ) ) THEN DEALLOCATE(grid%cfd1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cfd1. ') endif NULLIFY(grid%cfd1) ENDIF IF ( ASSOCIATED( grid%ru_tendf_stoch ) ) THEN DEALLOCATE(grid%ru_tendf_stoch,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ru_tendf_stoch. ') endif NULLIFY(grid%ru_tendf_stoch) ENDIF IF ( ASSOCIATED( grid%spstream_amp ) ) THEN DEALLOCATE(grid%spstream_amp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spstream_amp. ') endif NULLIFY(grid%spstream_amp) ENDIF IF ( ASSOCIATED( grid%sp_amp3 ) ) THEN DEALLOCATE(grid%sp_amp3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sp_amp3. ') endif NULLIFY(grid%sp_amp3) ENDIF IF ( ASSOCIATED( grid%iseedarr_sppt ) ) THEN DEALLOCATE(grid%iseedarr_sppt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iseedarr_sppt. ') endif NULLIFY(grid%iseedarr_sppt) ENDIF IF ( ASSOCIATED( grid%iseedarr_mult3d ) ) THEN DEALLOCATE(grid%iseedarr_mult3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iseedarr_mult3d. ') endif NULLIFY(grid%iseedarr_mult3d) ENDIF IF ( ASSOCIATED( grid%spforcc3d ) ) THEN DEALLOCATE(grid%spforcc3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcc3d. ') endif NULLIFY(grid%spforcc3d) ENDIF IF ( ASSOCIATED( grid%tpert2d ) ) THEN DEALLOCATE(grid%tpert2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tpert2d. ') endif NULLIFY(grid%tpert2d) ENDIF IF ( ASSOCIATED( grid%zmdliq ) ) THEN DEALLOCATE(grid%zmdliq,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmdliq. ') endif NULLIFY(grid%zmdliq) ENDIF IF ( ASSOCIATED( grid%pconvb ) ) THEN DEALLOCATE(grid%pconvb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pconvb. ') endif NULLIFY(grid%pconvb) ENDIF IF ( ASSOCIATED( grid%zmicud ) ) THEN DEALLOCATE(grid%zmicud,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmicud. ') endif NULLIFY(grid%zmicud) ENDIF IF ( ASSOCIATED( grid%dsubcld2d ) ) THEN DEALLOCATE(grid%dsubcld2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dsubcld2d. ') endif NULLIFY(grid%dsubcld2d) ENDIF IF ( ASSOCIATED( grid%icwmrsh ) ) THEN DEALLOCATE(grid%icwmrsh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icwmrsh. ') endif NULLIFY(grid%icwmrsh) ENDIF IF ( ASSOCIATED( grid%uten_cu ) ) THEN DEALLOCATE(grid%uten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uten_cu. ') endif NULLIFY(grid%uten_cu) ENDIF IF ( ASSOCIATED( grid%plfc_cu ) ) THEN DEALLOCATE(grid%plfc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%plfc_cu. ') endif NULLIFY(grid%plfc_cu) ENDIF IF ( ASSOCIATED( grid%rcwp_cu ) ) THEN DEALLOCATE(grid%rcwp_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rcwp_cu. ') endif NULLIFY(grid%rcwp_cu) ENDIF IF ( ASSOCIATED( grid%thlu_emf_cu ) ) THEN DEALLOCATE(grid%thlu_emf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thlu_emf_cu. ') endif NULLIFY(grid%thlu_emf_cu) ENDIF IF ( ASSOCIATED( grid%diten_cu ) ) THEN DEALLOCATE(grid%diten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%diten_cu. ') endif NULLIFY(grid%diten_cu) ENDIF IF ( ASSOCIATED( grid%cquad_cu ) ) THEN DEALLOCATE(grid%cquad_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cquad_cu. ') endif NULLIFY(grid%cquad_cu) ENDIF IF ( ASSOCIATED( grid%exit_kinv1_cu ) ) THEN DEALLOCATE(grid%exit_kinv1_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_kinv1_cu. ') endif NULLIFY(grid%exit_kinv1_cu) ENDIF IF ( ASSOCIATED( grid%rh_old_mp ) ) THEN DEALLOCATE(grid%rh_old_mp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_old_mp. ') endif NULLIFY(grid%rh_old_mp) ENDIF IF ( ASSOCIATED( grid%nump ) ) THEN DEALLOCATE(grid%nump,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nump. ') endif NULLIFY(grid%nump) ENDIF IF ( ASSOCIATED( grid%t_grnd ) ) THEN DEALLOCATE(grid%t_grnd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_grnd. ') endif NULLIFY(grid%t_grnd) ENDIF IF ( ASSOCIATED( grid%h2ocan ) ) THEN DEALLOCATE(grid%h2ocan,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2ocan. ') endif NULLIFY(grid%h2ocan) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq1 ) ) THEN DEALLOCATE(grid%h2osoi_liq1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq1. ') endif NULLIFY(grid%h2osoi_liq1) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice_s3 ) ) THEN DEALLOCATE(grid%h2osoi_ice_s3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice_s3. ') endif NULLIFY(grid%h2osoi_ice_s3) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice10 ) ) THEN DEALLOCATE(grid%h2osoi_ice10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice10. ') endif NULLIFY(grid%h2osoi_ice10) ENDIF IF ( ASSOCIATED( grid%t_soisno7 ) ) THEN DEALLOCATE(grid%t_soisno7,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno7. ') endif NULLIFY(grid%t_soisno7) ENDIF IF ( ASSOCIATED( grid%snowrds4 ) ) THEN DEALLOCATE(grid%snowrds4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowrds4. ') endif NULLIFY(grid%snowrds4) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol1 ) ) THEN DEALLOCATE(grid%h2osoi_vol1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol1. ') endif NULLIFY(grid%h2osoi_vol1) ENDIF IF ( ASSOCIATED( grid%hfxsubgrid ) ) THEN DEALLOCATE(grid%hfxsubgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfxsubgrid. ') endif NULLIFY(grid%hfxsubgrid) ENDIF IF ( ASSOCIATED( grid%snl2d ) ) THEN DEALLOCATE(grid%snl2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snl2d. ') endif NULLIFY(grid%snl2d) ENDIF IF ( ASSOCIATED( grid%zi3d ) ) THEN DEALLOCATE(grid%zi3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zi3d. ') endif NULLIFY(grid%zi3d) ENDIF IF ( ASSOCIATED( grid%ssib_fh ) ) THEN DEALLOCATE(grid%ssib_fh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_fh. ') endif NULLIFY(grid%ssib_fh) ENDIF IF ( ASSOCIATED( grid%ssib_sdn ) ) THEN DEALLOCATE(grid%ssib_sdn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_sdn. ') endif NULLIFY(grid%ssib_sdn) ENDIF IF ( ASSOCIATED( grid%swe ) ) THEN DEALLOCATE(grid%swe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swe. ') endif NULLIFY(grid%swe) ENDIF IF ( ASSOCIATED( grid%flo1 ) ) THEN DEALLOCATE(grid%flo1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flo1. ') endif NULLIFY(grid%flo1) ENDIF IF ( ASSOCIATED( grid%flo2 ) ) THEN DEALLOCATE(grid%flo2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flo2. ') endif NULLIFY(grid%flo2) ENDIF IF ( ASSOCIATED( grid%flo3 ) ) THEN DEALLOCATE(grid%flo3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flo3. ') endif NULLIFY(grid%flo3) ENDIF IF ( ASSOCIATED( grid%flo4 ) ) THEN DEALLOCATE(grid%flo4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flo4. ') endif NULLIFY(grid%flo4) ENDIF IF ( ASSOCIATED( grid%chxy ) ) THEN DEALLOCATE(grid%chxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chxy. ') endif NULLIFY(grid%chxy) ENDIF IF ( ASSOCIATED( grid%snicexy ) ) THEN DEALLOCATE(grid%snicexy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snicexy. ') endif NULLIFY(grid%snicexy) ENDIF IF ( ASSOCIATED( grid%q2mvxy ) ) THEN DEALLOCATE(grid%q2mvxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2mvxy. ') endif NULLIFY(grid%q2mvxy) ENDIF IF ( ASSOCIATED( grid%etranxy ) ) THEN DEALLOCATE(grid%etranxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%etranxy. ') endif NULLIFY(grid%etranxy) ENDIF IF ( ASSOCIATED( grid%tgbxy ) ) THEN DEALLOCATE(grid%tgbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgbxy. ') endif NULLIFY(grid%tgbxy) ENDIF IF ( ASSOCIATED( grid%irbxy ) ) THEN DEALLOCATE(grid%irbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irbxy. ') endif NULLIFY(grid%irbxy) ENDIF IF ( ASSOCIATED( grid%acrech ) ) THEN DEALLOCATE(grid%acrech,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acrech. ') endif NULLIFY(grid%acrech) ENDIF IF ( ASSOCIATED( grid%fdepthxy ) ) THEN DEALLOCATE(grid%fdepthxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fdepthxy. ') endif NULLIFY(grid%fdepthxy) ENDIF IF ( ASSOCIATED( grid%qsubcxy ) ) THEN DEALLOCATE(grid%qsubcxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsubcxy. ') endif NULLIFY(grid%qsubcxy) ENDIF IF ( ASSOCIATED( grid%pahbxy ) ) THEN DEALLOCATE(grid%pahbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pahbxy. ') endif NULLIFY(grid%pahbxy) ENDIF IF ( ASSOCIATED( grid%acdripr ) ) THEN DEALLOCATE(grid%acdripr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acdripr. ') endif NULLIFY(grid%acdripr) ENDIF IF ( ASSOCIATED( grid%acecan ) ) THEN DEALLOCATE(grid%acecan,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acecan. ') endif NULLIFY(grid%acecan) ENDIF IF ( ASSOCIATED( grid%acsnmelt ) ) THEN DEALLOCATE(grid%acsnmelt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsnmelt. ') endif NULLIFY(grid%acsnmelt) ENDIF IF ( ASSOCIATED( grid%acpahb ) ) THEN DEALLOCATE(grid%acpahb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acpahb. ') endif NULLIFY(grid%acpahb) ENDIF IF ( ASSOCIATED( grid%acpahv ) ) THEN DEALLOCATE(grid%acpahv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acpahv. ') endif NULLIFY(grid%acpahv) ENDIF IF ( ASSOCIATED( grid%acc_ssoil ) ) THEN DEALLOCATE(grid%acc_ssoil,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_ssoil. ') endif NULLIFY(grid%acc_ssoil) ENDIF IF ( ASSOCIATED( grid%gddxy ) ) THEN DEALLOCATE(grid%gddxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%gddxy. ') endif NULLIFY(grid%gddxy) ENDIF IF ( ASSOCIATED( grid%mifract ) ) THEN DEALLOCATE(grid%mifract,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mifract. ') endif NULLIFY(grid%mifract) ENDIF IF ( ASSOCIATED( grid%irrsplh ) ) THEN DEALLOCATE(grid%irrsplh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irrsplh. ') endif NULLIFY(grid%irrsplh) ENDIF IF ( ASSOCIATED( grid%kext_ft_qs ) ) THEN DEALLOCATE(grid%kext_ft_qs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_ft_qs. ') endif NULLIFY(grid%kext_ft_qs) ENDIF IF ( ASSOCIATED( grid%vil ) ) THEN DEALLOCATE(grid%vil,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vil. ') endif NULLIFY(grid%vil) ENDIF IF ( ASSOCIATED( grid%afwa_mslp ) ) THEN DEALLOCATE(grid%afwa_mslp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_mslp. ') endif NULLIFY(grid%afwa_mslp) ENDIF IF ( ASSOCIATED( grid%afwa_totprecip ) ) THEN DEALLOCATE(grid%afwa_totprecip,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_totprecip. ') endif NULLIFY(grid%afwa_totprecip) ENDIF IF ( ASSOCIATED( grid%afwa_cin ) ) THEN DEALLOCATE(grid%afwa_cin,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_cin. ') endif NULLIFY(grid%afwa_cin) ENDIF IF ( ASSOCIATED( grid%tornado_mask ) ) THEN DEALLOCATE(grid%tornado_mask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tornado_mask. ') endif NULLIFY(grid%tornado_mask) ENDIF IF ( ASSOCIATED( grid%psfc_mean ) ) THEN DEALLOCATE(grid%psfc_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psfc_mean. ') endif NULLIFY(grid%psfc_mean) ENDIF IF ( ASSOCIATED( grid%lwupb_mean ) ) THEN DEALLOCATE(grid%lwupb_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupb_mean. ') endif NULLIFY(grid%lwupb_mean) ENDIF IF ( ASSOCIATED( grid%q2_diurn ) ) THEN DEALLOCATE(grid%q2_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2_diurn. ') endif NULLIFY(grid%q2_diurn) ENDIF IF ( ASSOCIATED( grid%lwdnt_diurn ) ) THEN DEALLOCATE(grid%lwdnt_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdnt_diurn. ') endif NULLIFY(grid%lwdnt_diurn) ENDIF IF ( ASSOCIATED( grid%swdnb_dtmp ) ) THEN DEALLOCATE(grid%swdnb_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnb_dtmp. ') endif NULLIFY(grid%swdnb_dtmp) ENDIF IF ( ASSOCIATED( grid%sctot ) ) THEN DEALLOCATE(grid%sctot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sctot. ') endif NULLIFY(grid%sctot) ENDIF IF ( ASSOCIATED( grid%pc_bxs ) ) THEN DEALLOCATE(grid%pc_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pc_bxs. ') endif NULLIFY(grid%pc_bxs) ENDIF IF ( ASSOCIATED( grid%pc_bxe ) ) THEN DEALLOCATE(grid%pc_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pc_bxe. ') endif NULLIFY(grid%pc_bxe) ENDIF IF ( ASSOCIATED( grid%pc_bys ) ) THEN DEALLOCATE(grid%pc_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pc_bys. ') endif NULLIFY(grid%pc_bys) ENDIF IF ( ASSOCIATED( grid%pc_bye ) ) THEN DEALLOCATE(grid%pc_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pc_bye. ') endif NULLIFY(grid%pc_bye) ENDIF IF ( ASSOCIATED( grid%p_wif_feb ) ) THEN DEALLOCATE(grid%p_wif_feb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_feb. ') endif NULLIFY(grid%p_wif_feb) ENDIF IF ( ASSOCIATED( grid%w_wif_jan ) ) THEN DEALLOCATE(grid%w_wif_jan,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_jan. ') endif NULLIFY(grid%w_wif_jan) ENDIF IF ( ASSOCIATED( grid%i_wif_now ) ) THEN DEALLOCATE(grid%i_wif_now,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_now. ') endif NULLIFY(grid%i_wif_now) ENDIF IF ( ASSOCIATED( grid%i_wif_dec ) ) THEN DEALLOCATE(grid%i_wif_dec,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_dec. ') endif NULLIFY(grid%i_wif_dec) ENDIF IF ( ASSOCIATED( grid%b_wif_nov ) ) THEN DEALLOCATE(grid%b_wif_nov,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_nov. ') endif NULLIFY(grid%b_wif_nov) ENDIF IF ( ASSOCIATED( grid%liqrain ) ) THEN DEALLOCATE(grid%liqrain,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%liqrain. ') endif NULLIFY(grid%liqrain) ENDIF IF ( ASSOCIATED( grid%wp_sum ) ) THEN DEALLOCATE(grid%wp_sum,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wp_sum. ') endif NULLIFY(grid%wp_sum) ENDIF IF ( ASSOCIATED( grid%tau_qc_tot ) ) THEN DEALLOCATE(grid%tau_qc_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_qc_tot. ') endif NULLIFY(grid%tau_qc_tot) ENDIF IF ( ASSOCIATED( grid%ts_iwp ) ) THEN DEALLOCATE(grid%ts_iwp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_iwp. ') endif NULLIFY(grid%ts_iwp) ENDIF IF ( ASSOCIATED( grid%ts_tau_qi ) ) THEN DEALLOCATE(grid%ts_tau_qi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_tau_qi. ') endif NULLIFY(grid%ts_tau_qi) ENDIF IF ( ASSOCIATED( grid%ts_swddni ) ) THEN DEALLOCATE(grid%ts_swddni,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swddni. ') endif NULLIFY(grid%ts_swddni) ENDIF IF ( ASSOCIATED( grid%td_pl ) ) THEN DEALLOCATE(grid%td_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%td_pl. ') endif NULLIFY(grid%td_pl) ENDIF IF ( ASSOCIATED( grid%rh_zl ) ) THEN DEALLOCATE(grid%rh_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_zl. ') endif NULLIFY(grid%rh_zl) ENDIF IF ( ASSOCIATED( grid%t_iau ) ) THEN DEALLOCATE(grid%t_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_iau. ') endif NULLIFY(grid%t_iau) ENDIF IF ( ASSOCIATED( grid%rqviauten ) ) THEN DEALLOCATE(grid%rqviauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqviauten. ') endif NULLIFY(grid%rqviauten) ENDIF END SUBROUTINE deallocs_0 !ENDOFREGISTRYGENERATEDINCLUDE