!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_2.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_2( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%lu_index ) ) THEN DEALLOCATE(grid%lu_index,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lu_index. ') endif NULLIFY(grid%lu_index) ENDIF IF ( ASSOCIATED( grid%v_gc ) ) THEN DEALLOCATE(grid%v_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_gc. ') endif NULLIFY(grid%v_gc) ENDIF IF ( ASSOCIATED( grid%tavgsfc ) ) THEN DEALLOCATE(grid%tavgsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tavgsfc. ') endif NULLIFY(grid%tavgsfc) ENDIF IF ( ASSOCIATED( grid%pdhs ) ) THEN DEALLOCATE(grid%pdhs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pdhs. ') endif NULLIFY(grid%pdhs) ENDIF IF ( ASSOCIATED( grid%qh_gc ) ) THEN DEALLOCATE(grid%qh_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qh_gc. ') endif NULLIFY(grid%qh_gc) ENDIF IF ( ASSOCIATED( grid%t_min_p ) ) THEN DEALLOCATE(grid%t_min_p,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_min_p. ') endif NULLIFY(grid%t_min_p) ENDIF IF ( ASSOCIATED( grid%utrop ) ) THEN DEALLOCATE(grid%utrop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%utrop. ') endif NULLIFY(grid%utrop) ENDIF IF ( ASSOCIATED( grid%ww_m ) ) THEN DEALLOCATE(grid%ww_m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ww_m. ') endif NULLIFY(grid%ww_m) ENDIF IF ( ASSOCIATED( grid%ph0 ) ) THEN DEALLOCATE(grid%ph0,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph0. ') endif NULLIFY(grid%ph0) ENDIF IF ( ASSOCIATED( grid%ql_upstream_y ) ) THEN DEALLOCATE(grid%ql_upstream_y,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ql_upstream_y. ') endif NULLIFY(grid%ql_upstream_y) ENDIF IF ( ASSOCIATED( grid%th_largescale ) ) THEN DEALLOCATE(grid%th_largescale,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_largescale. ') endif NULLIFY(grid%th_largescale) ENDIF IF ( ASSOCIATED( grid%tau_x ) ) THEN DEALLOCATE(grid%tau_x,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_x. ') endif NULLIFY(grid%tau_x) ENDIF IF ( ASSOCIATED( grid%muu ) ) THEN DEALLOCATE(grid%muu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%muu. ') endif NULLIFY(grid%muu) ENDIF IF ( ASSOCIATED( grid%ht_coarse ) ) THEN DEALLOCATE(grid%ht_coarse,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_coarse. ') endif NULLIFY(grid%ht_coarse) ENDIF IF ( ASSOCIATED( grid%alt ) ) THEN DEALLOCATE(grid%alt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%alt. ') endif NULLIFY(grid%alt) ENDIF IF ( ASSOCIATED( grid%rho ) ) THEN DEALLOCATE(grid%rho,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rho. ') endif NULLIFY(grid%rho) ENDIF IF ( ASSOCIATED( grid%t_base ) ) THEN DEALLOCATE(grid%t_base,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_base. ') endif NULLIFY(grid%t_base) ENDIF IF ( ASSOCIATED( grid%uratx ) ) THEN DEALLOCATE(grid%uratx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uratx. ') endif NULLIFY(grid%uratx) ENDIF IF ( ASSOCIATED( grid%moist ) ) THEN DEALLOCATE(grid%moist,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%moist. ') endif NULLIFY(grid%moist) ENDIF IF ( ASSOCIATED( grid%qnbcbb2d ) ) THEN DEALLOCATE(grid%qnbcbb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qnbcbb2d. ') endif NULLIFY(grid%qnbcbb2d) ENDIF IF ( ASSOCIATED( grid%dfi_re_snow ) ) THEN DEALLOCATE(grid%dfi_re_snow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_re_snow. ') endif NULLIFY(grid%dfi_re_snow) ENDIF IF ( ASSOCIATED( grid%scalar_btxs ) ) THEN DEALLOCATE(grid%scalar_btxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%scalar_btxs. ') endif NULLIFY(grid%scalar_btxs) ENDIF IF ( ASSOCIATED( grid%scalar_btxe ) ) THEN DEALLOCATE(grid%scalar_btxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%scalar_btxe. ') endif NULLIFY(grid%scalar_btxe) ENDIF IF ( ASSOCIATED( grid%scalar_btys ) ) THEN DEALLOCATE(grid%scalar_btys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%scalar_btys. ') endif NULLIFY(grid%scalar_btys) ENDIF IF ( ASSOCIATED( grid%scalar_btye ) ) THEN DEALLOCATE(grid%scalar_btye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%scalar_btye. ') endif NULLIFY(grid%scalar_btye) ENDIF IF ( ASSOCIATED( grid%soilt ) ) THEN DEALLOCATE(grid%soilt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt. ') endif NULLIFY(grid%soilt) ENDIF IF ( ASSOCIATED( grid%sm040100 ) ) THEN DEALLOCATE(grid%sm040100,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm040100. ') endif NULLIFY(grid%sm040100) ENDIF IF ( ASSOCIATED( grid%sw100200 ) ) THEN DEALLOCATE(grid%sw100200,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sw100200. ') endif NULLIFY(grid%sw100200) ENDIF IF ( ASSOCIATED( grid%st010200 ) ) THEN DEALLOCATE(grid%st010200,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st010200. ') endif NULLIFY(grid%st010200) ENDIF IF ( ASSOCIATED( grid%shdmax ) ) THEN DEALLOCATE(grid%shdmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%shdmax. ') endif NULLIFY(grid%shdmax) ENDIF IF ( ASSOCIATED( grid%irr_rand_field ) ) THEN DEALLOCATE(grid%irr_rand_field,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irr_rand_field. ') endif NULLIFY(grid%irr_rand_field) ENDIF IF ( ASSOCIATED( grid%ts_tsk ) ) THEN DEALLOCATE(grid%ts_tsk,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_tsk. ') endif NULLIFY(grid%ts_tsk) ENDIF IF ( ASSOCIATED( grid%dzr ) ) THEN DEALLOCATE(grid%dzr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dzr. ') endif NULLIFY(grid%dzr) ENDIF IF ( ASSOCIATED( grid%z0_urb2d ) ) THEN DEALLOCATE(grid%z0_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z0_urb2d. ') endif NULLIFY(grid%z0_urb2d) ENDIF IF ( ASSOCIATED( grid%smstot ) ) THEN DEALLOCATE(grid%smstot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smstot. ') endif NULLIFY(grid%smstot) ENDIF IF ( ASSOCIATED( grid%grdflx ) ) THEN DEALLOCATE(grid%grdflx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grdflx. ') endif NULLIFY(grid%grdflx) ENDIF IF ( ASSOCIATED( grid%dfi_al ) ) THEN DEALLOCATE(grid%dfi_al,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_al. ') endif NULLIFY(grid%dfi_al) ENDIF IF ( ASSOCIATED( grid%dfi_pb ) ) THEN DEALLOCATE(grid%dfi_pb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_pb. ') endif NULLIFY(grid%dfi_pb) ENDIF IF ( ASSOCIATED( grid%tr_urb2d ) ) THEN DEALLOCATE(grid%tr_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tr_urb2d. ') endif NULLIFY(grid%tr_urb2d) ENDIF IF ( ASSOCIATED( grid%drelr_urb2d ) ) THEN DEALLOCATE(grid%drelr_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%drelr_urb2d. ') endif NULLIFY(grid%drelr_urb2d) ENDIF IF ( ASSOCIATED( grid%lh_urb2d ) ) THEN DEALLOCATE(grid%lh_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh_urb2d. ') endif NULLIFY(grid%lh_urb2d) ENDIF IF ( ASSOCIATED( grid%tw1lev_urb3d ) ) THEN DEALLOCATE(grid%tw1lev_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tw1lev_urb3d. ') endif NULLIFY(grid%tw1lev_urb3d) ENDIF IF ( ASSOCIATED( grid%sfw2_urb3d ) ) THEN DEALLOCATE(grid%sfw2_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfw2_urb3d. ') endif NULLIFY(grid%sfw2_urb3d) ENDIF IF ( ASSOCIATED( grid%lfrv_urb3d ) ) THEN DEALLOCATE(grid%lfrv_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfrv_urb3d. ') endif NULLIFY(grid%lfrv_urb3d) ENDIF IF ( ASSOCIATED( grid%ecobsc ) ) THEN DEALLOCATE(grid%ecobsc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ecobsc. ') endif NULLIFY(grid%ecobsc) ENDIF IF ( ASSOCIATED( grid%swvisdir ) ) THEN DEALLOCATE(grid%swvisdir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swvisdir. ') endif NULLIFY(grid%swvisdir) ENDIF IF ( ASSOCIATED( grid%t2obs ) ) THEN DEALLOCATE(grid%t2obs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2obs. ') endif NULLIFY(grid%t2obs) ENDIF IF ( ASSOCIATED( grid%exch_m ) ) THEN DEALLOCATE(grid%exch_m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exch_m. ') endif NULLIFY(grid%exch_m) ENDIF IF ( ASSOCIATED( grid%v10e ) ) THEN DEALLOCATE(grid%v10e,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10e. ') endif NULLIFY(grid%v10e) ENDIF IF ( ASSOCIATED( grid%thv_up ) ) THEN DEALLOCATE(grid%thv_up,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%thv_up. ') endif NULLIFY(grid%thv_up) ENDIF IF ( ASSOCIATED( grid%qf_temf ) ) THEN DEALLOCATE(grid%qf_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qf_temf. ') endif NULLIFY(grid%qf_temf) ENDIF IF ( ASSOCIATED( grid%cfm_temf ) ) THEN DEALLOCATE(grid%cfm_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cfm_temf. ') endif NULLIFY(grid%cfm_temf) ENDIF IF ( ASSOCIATED( grid%sm3d ) ) THEN DEALLOCATE(grid%sm3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sm3d. ') endif NULLIFY(grid%sm3d) ENDIF IF ( ASSOCIATED( grid%maxmf ) ) THEN DEALLOCATE(grid%maxmf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%maxmf. ') endif NULLIFY(grid%maxmf) ENDIF IF ( ASSOCIATED( grid%oc12d ) ) THEN DEALLOCATE(grid%oc12d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oc12d. ') endif NULLIFY(grid%oc12d) ENDIF IF ( ASSOCIATED( grid%dtauy3d_bl ) ) THEN DEALLOCATE(grid%dtauy3d_bl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtauy3d_bl. ') endif NULLIFY(grid%dtauy3d_bl) ENDIF IF ( ASSOCIATED( grid%dvsfcg_fd ) ) THEN DEALLOCATE(grid%dvsfcg_fd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dvsfcg_fd. ') endif NULLIFY(grid%dvsfcg_fd) ENDIF IF ( ASSOCIATED( grid%oc12dss ) ) THEN DEALLOCATE(grid%oc12dss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%oc12dss. ') endif NULLIFY(grid%oc12dss) ENDIF IF ( ASSOCIATED( grid%a_v_bep ) ) THEN DEALLOCATE(grid%a_v_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%a_v_bep. ') endif NULLIFY(grid%a_v_bep) ENDIF IF ( ASSOCIATED( grid%vl_bep ) ) THEN DEALLOCATE(grid%vl_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vl_bep. ') endif NULLIFY(grid%vl_bep) ENDIF IF ( ASSOCIATED( grid%htopr ) ) THEN DEALLOCATE(grid%htopr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%htopr. ') endif NULLIFY(grid%htopr) ENDIF IF ( ASSOCIATED( grid%ncfrst ) ) THEN DEALLOCATE(grid%ncfrst,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ncfrst. ') endif NULLIFY(grid%ncfrst) ENDIF IF ( ASSOCIATED( grid%aerovar ) ) THEN DEALLOCATE(grid%aerovar,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerovar. ') endif NULLIFY(grid%aerovar) ENDIF IF ( ASSOCIATED( grid%om_depth ) ) THEN DEALLOCATE(grid%om_depth,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_depth. ') endif NULLIFY(grid%om_depth) ENDIF IF ( ASSOCIATED( grid%sigmaez ) ) THEN DEALLOCATE(grid%sigmaez,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sigmaez. ') endif NULLIFY(grid%sigmaez) ENDIF IF ( ASSOCIATED( grid%qndrop_ic_cup ) ) THEN DEALLOCATE(grid%qndrop_ic_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qndrop_ic_cup. ') endif NULLIFY(grid%qndrop_ic_cup) ENDIF IF ( ASSOCIATED( grid%lnterms ) ) THEN DEALLOCATE(grid%lnterms,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lnterms. ') endif NULLIFY(grid%lnterms) ENDIF IF ( ASSOCIATED( grid%msfvx ) ) THEN DEALLOCATE(grid%msfvx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msfvx. ') endif NULLIFY(grid%msfvx) ENDIF IF ( ASSOCIATED( grid%ht_shad ) ) THEN DEALLOCATE(grid%ht_shad,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht_shad. ') endif NULLIFY(grid%ht_shad) ENDIF IF ( ASSOCIATED( grid%z_base ) ) THEN DEALLOCATE(grid%z_base,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%z_base. ') endif NULLIFY(grid%z_base) ENDIF IF ( ASSOCIATED( grid%acphyss ) ) THEN DEALLOCATE(grid%acphyss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acphyss. ') endif NULLIFY(grid%acphyss) ENDIF IF ( ASSOCIATED( grid%tswdn ) ) THEN DEALLOCATE(grid%tswdn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tswdn. ') endif NULLIFY(grid%tswdn) ENDIF IF ( ASSOCIATED( grid%rqsshten ) ) THEN DEALLOCATE(grid%rqsshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqsshten. ') endif NULLIFY(grid%rqsshten) ENDIF IF ( ASSOCIATED( grid%cldliqb ) ) THEN DEALLOCATE(grid%cldliqb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldliqb. ') endif NULLIFY(grid%cldliqb) ENDIF IF ( ASSOCIATED( grid%xtime1 ) ) THEN DEALLOCATE(grid%xtime1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xtime1. ') endif NULLIFY(grid%xtime1) ENDIF IF ( ASSOCIATED( grid%rqcncuten ) ) THEN DEALLOCATE(grid%rqcncuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqcncuten. ') endif NULLIFY(grid%rqcncuten) ENDIF IF ( ASSOCIATED( grid%raincv ) ) THEN DEALLOCATE(grid%raincv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%raincv. ') endif NULLIFY(grid%raincv) ENDIF IF ( ASSOCIATED( grid%th_old ) ) THEN DEALLOCATE(grid%th_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th_old. ') endif NULLIFY(grid%th_old) ENDIF IF ( ASSOCIATED( grid%rhopo3d_3 ) ) THEN DEALLOCATE(grid%rhopo3d_3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rhopo3d_3. ') endif NULLIFY(grid%rhopo3d_3) ENDIF IF ( ASSOCIATED( grid%udr_kf ) ) THEN DEALLOCATE(grid%udr_kf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%udr_kf. ') endif NULLIFY(grid%udr_kf) ENDIF IF ( ASSOCIATED( grid%apr_capmi ) ) THEN DEALLOCATE(grid%apr_capmi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_capmi. ') endif NULLIFY(grid%apr_capmi) ENDIF IF ( ASSOCIATED( grid%cugd_qvten ) ) THEN DEALLOCATE(grid%cugd_qvten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cugd_qvten. ') endif NULLIFY(grid%cugd_qvten) ENDIF IF ( ASSOCIATED( grid%qi_cu ) ) THEN DEALLOCATE(grid%qi_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qi_cu. ') endif NULLIFY(grid%qi_cu) ENDIF IF ( ASSOCIATED( grid%efig ) ) THEN DEALLOCATE(grid%efig,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%efig. ') endif NULLIFY(grid%efig) ENDIF IF ( ASSOCIATED( grid%qi_bl ) ) THEN DEALLOCATE(grid%qi_bl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qi_bl. ') endif NULLIFY(grid%qi_bl) ENDIF IF ( ASSOCIATED( grid%ccldfra ) ) THEN DEALLOCATE(grid%ccldfra,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccldfra. ') endif NULLIFY(grid%ccldfra) ENDIF IF ( ASSOCIATED( grid%swddir ) ) THEN DEALLOCATE(grid%swddir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddir. ') endif NULLIFY(grid%swddir) ENDIF IF ( ASSOCIATED( grid%bb ) ) THEN DEALLOCATE(grid%bb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bb. ') endif NULLIFY(grid%bb) ENDIF IF ( ASSOCIATED( grid%t2max ) ) THEN DEALLOCATE(grid%t2max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2max. ') endif NULLIFY(grid%t2max) ENDIF IF ( ASSOCIATED( grid%skintempmax ) ) THEN DEALLOCATE(grid%skintempmax,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%skintempmax. ') endif NULLIFY(grid%skintempmax) ENDIF IF ( ASSOCIATED( grid%u10std ) ) THEN DEALLOCATE(grid%u10std,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10std. ') endif NULLIFY(grid%u10std) ENDIF IF ( ASSOCIATED( grid%acswupt ) ) THEN DEALLOCATE(grid%acswupt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswupt. ') endif NULLIFY(grid%acswupt) ENDIF IF ( ASSOCIATED( grid%aclwupb ) ) THEN DEALLOCATE(grid%aclwupb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aclwupb. ') endif NULLIFY(grid%aclwupb) ENDIF IF ( ASSOCIATED( grid%i_aclwupt ) ) THEN DEALLOCATE(grid%i_aclwupt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwupt. ') endif NULLIFY(grid%i_aclwupt) ENDIF IF ( ASSOCIATED( grid%swdntc ) ) THEN DEALLOCATE(grid%swdntc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdntc. ') endif NULLIFY(grid%swdntc) ENDIF IF ( ASSOCIATED( grid%lwdntc ) ) THEN DEALLOCATE(grid%lwdntc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdntc. ') endif NULLIFY(grid%lwdntc) ENDIF IF ( ASSOCIATED( grid%xlong_u ) ) THEN DEALLOCATE(grid%xlong_u,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xlong_u. ') endif NULLIFY(grid%xlong_u) ENDIF IF ( ASSOCIATED( grid%rublten ) ) THEN DEALLOCATE(grid%rublten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rublten. ') endif NULLIFY(grid%rublten) ENDIF IF ( ASSOCIATED( grid%qsfc_mosaic ) ) THEN DEALLOCATE(grid%qsfc_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsfc_mosaic. ') endif NULLIFY(grid%qsfc_mosaic) ENDIF IF ( ASSOCIATED( grid%znt_mosaic ) ) THEN DEALLOCATE(grid%znt_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%znt_mosaic. ') endif NULLIFY(grid%znt_mosaic) ENDIF IF ( ASSOCIATED( grid%tc_urb2d_mosaic ) ) THEN DEALLOCATE(grid%tc_urb2d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tc_urb2d_mosaic. ') endif NULLIFY(grid%tc_urb2d_mosaic) ENDIF IF ( ASSOCIATED( grid%mosaic_cat_index ) ) THEN DEALLOCATE(grid%mosaic_cat_index,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mosaic_cat_index. ') endif NULLIFY(grid%mosaic_cat_index) ENDIF IF ( ASSOCIATED( grid%tlag ) ) THEN DEALLOCATE(grid%tlag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tlag. ') endif NULLIFY(grid%tlag) ENDIF IF ( ASSOCIATED( grid%flhc ) ) THEN DEALLOCATE(grid%flhc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flhc. ') endif NULLIFY(grid%flhc) ENDIF IF ( ASSOCIATED( grid%snowc ) ) THEN DEALLOCATE(grid%snowc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowc. ') endif NULLIFY(grid%snowc) ENDIF IF ( ASSOCIATED( grid%defor22 ) ) THEN DEALLOCATE(grid%defor22,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%defor22. ') endif NULLIFY(grid%defor22) ENDIF IF ( ASSOCIATED( grid%u10_ndg_new ) ) THEN DEALLOCATE(grid%u10_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u10_ndg_new. ') endif NULLIFY(grid%u10_ndg_new) ENDIF IF ( ASSOCIATED( grid%psl_ndg_new ) ) THEN DEALLOCATE(grid%psl_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%psl_ndg_new. ') endif NULLIFY(grid%psl_ndg_new) ENDIF IF ( ASSOCIATED( grid%hfx_both ) ) THEN DEALLOCATE(grid%hfx_both,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hfx_both. ') endif NULLIFY(grid%hfx_both) ENDIF IF ( ASSOCIATED( grid%w_up_max ) ) THEN DEALLOCATE(grid%w_up_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_up_max. ') endif NULLIFY(grid%w_up_max) ENDIF IF ( ASSOCIATED( grid%tmoml ) ) THEN DEALLOCATE(grid%tmoml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tmoml. ') endif NULLIFY(grid%tmoml) ENDIF IF ( ASSOCIATED( grid%track_qrain ) ) THEN DEALLOCATE(grid%track_qrain,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_qrain. ') endif NULLIFY(grid%track_qrain) ENDIF IF ( ASSOCIATED( grid%aqvcuten ) ) THEN DEALLOCATE(grid%aqvcuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aqvcuten. ') endif NULLIFY(grid%aqvcuten) ENDIF IF ( ASSOCIATED( grid%athratensw ) ) THEN DEALLOCATE(grid%athratensw,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%athratensw. ') endif NULLIFY(grid%athratensw) ENDIF IF ( ASSOCIATED( grid%hailcast_dhail4 ) ) THEN DEALLOCATE(grid%hailcast_dhail4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hailcast_dhail4. ') endif NULLIFY(grid%hailcast_dhail4) ENDIF IF ( ASSOCIATED( grid%cg_flashcount ) ) THEN DEALLOCATE(grid%cg_flashcount,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cg_flashcount. ') endif NULLIFY(grid%cg_flashcount) ENDIF IF ( ASSOCIATED( grid%iccg_in_num ) ) THEN DEALLOCATE(grid%iccg_in_num,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iccg_in_num. ') endif NULLIFY(grid%iccg_in_num) ENDIF IF ( ASSOCIATED( grid%fourd_xxx ) ) THEN DEALLOCATE(grid%fourd_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fourd_xxx. ') endif NULLIFY(grid%fourd_xxx) ENDIF IF ( ASSOCIATED( grid%nfuel_cat ) ) THEN DEALLOCATE(grid%nfuel_cat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nfuel_cat. ') endif NULLIFY(grid%nfuel_cat) ENDIF IF ( ASSOCIATED( grid%uah ) ) THEN DEALLOCATE(grid%uah,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uah. ') endif NULLIFY(grid%uah) ENDIF IF ( ASSOCIATED( grid%fuel_frac ) ) THEN DEALLOCATE(grid%fuel_frac,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fuel_frac. ') endif NULLIFY(grid%fuel_frac) ENDIF IF ( ASSOCIATED( grid%fmc_g ) ) THEN DEALLOCATE(grid%fmc_g,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fmc_g. ') endif NULLIFY(grid%fmc_g) ENDIF IF ( ASSOCIATED( grid%bbb ) ) THEN DEALLOCATE(grid%bbb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bbb. ') endif NULLIFY(grid%bbb) ENDIF IF ( ASSOCIATED( grid%fs_p_id ) ) THEN DEALLOCATE(grid%fs_p_id,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_id. ') endif NULLIFY(grid%fs_p_id) ENDIF IF ( ASSOCIATED( grid%avgflx_rvm ) ) THEN DEALLOCATE(grid%avgflx_rvm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_rvm. ') endif NULLIFY(grid%avgflx_rvm) ENDIF IF ( ASSOCIATED( grid%efu1 ) ) THEN DEALLOCATE(grid%efu1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%efu1. ') endif NULLIFY(grid%efu1) ENDIF IF ( ASSOCIATED( grid%rt_tendf_stoch ) ) THEN DEALLOCATE(grid%rt_tendf_stoch,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rt_tendf_stoch. ') endif NULLIFY(grid%rt_tendf_stoch) ENDIF IF ( ASSOCIATED( grid%sptforcs ) ) THEN DEALLOCATE(grid%sptforcs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sptforcs. ') endif NULLIFY(grid%sptforcs) ENDIF IF ( ASSOCIATED( grid%spforcs4 ) ) THEN DEALLOCATE(grid%spforcs4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spforcs4. ') endif NULLIFY(grid%spforcs4) ENDIF IF ( ASSOCIATED( grid%iseedarr_rand_pert ) ) THEN DEALLOCATE(grid%iseedarr_rand_pert,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iseedarr_rand_pert. ') endif NULLIFY(grid%iseedarr_rand_pert) ENDIF IF ( ASSOCIATED( grid%sp_amp3d ) ) THEN DEALLOCATE(grid%sp_amp3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sp_amp3d. ') endif NULLIFY(grid%sp_amp3d) ENDIF IF ( ASSOCIATED( grid%wpert2d ) ) THEN DEALLOCATE(grid%wpert2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wpert2d. ') endif NULLIFY(grid%wpert2d) ENDIF IF ( ASSOCIATED( grid%fzsntzm ) ) THEN DEALLOCATE(grid%fzsntzm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fzsntzm. ') endif NULLIFY(grid%fzsntzm) ENDIF IF ( ASSOCIATED( grid%cape ) ) THEN DEALLOCATE(grid%cape,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cape. ') endif NULLIFY(grid%cape) ENDIF IF ( ASSOCIATED( grid%zmicvd ) ) THEN DEALLOCATE(grid%zmicvd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmicvd. ') endif NULLIFY(grid%zmicvd) ENDIF IF ( ASSOCIATED( grid%jt2d ) ) THEN DEALLOCATE(grid%jt2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%jt2d. ') endif NULLIFY(grid%jt2d) ENDIF IF ( ASSOCIATED( grid%rprdsh ) ) THEN DEALLOCATE(grid%rprdsh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rprdsh. ') endif NULLIFY(grid%rprdsh) ENDIF IF ( ASSOCIATED( grid%qvten_cu ) ) THEN DEALLOCATE(grid%qvten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qvten_cu. ') endif NULLIFY(grid%qvten_cu) ENDIF IF ( ASSOCIATED( grid%ppen_cu ) ) THEN DEALLOCATE(grid%ppen_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ppen_cu. ') endif NULLIFY(grid%ppen_cu) ENDIF IF ( ASSOCIATED( grid%riwp_cu ) ) THEN DEALLOCATE(grid%riwp_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%riwp_cu. ') endif NULLIFY(grid%riwp_cu) ENDIF IF ( ASSOCIATED( grid%vu_emf_cu ) ) THEN DEALLOCATE(grid%vu_emf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vu_emf_cu. ') endif NULLIFY(grid%vu_emf_cu) ENDIF IF ( ASSOCIATED( grid%qsten_cu ) ) THEN DEALLOCATE(grid%qsten_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsten_cu. ') endif NULLIFY(grid%qsten_cu) ENDIF IF ( ASSOCIATED( grid%bogtop_cu ) ) THEN DEALLOCATE(grid%bogtop_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bogtop_cu. ') endif NULLIFY(grid%bogtop_cu) ENDIF IF ( ASSOCIATED( grid%limit_shcu_cu ) ) THEN DEALLOCATE(grid%limit_shcu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_shcu_cu. ') endif NULLIFY(grid%limit_shcu_cu) ENDIF IF ( ASSOCIATED( grid%cldfra_old_mp ) ) THEN DEALLOCATE(grid%cldfra_old_mp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfra_old_mp. ') endif NULLIFY(grid%cldfra_old_mp) ENDIF IF ( ASSOCIATED( grid%sabg ) ) THEN DEALLOCATE(grid%sabg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sabg. ') endif NULLIFY(grid%sabg) ENDIF IF ( ASSOCIATED( grid%t_veg24 ) ) THEN DEALLOCATE(grid%t_veg24,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_veg24. ') endif NULLIFY(grid%t_veg24) ENDIF IF ( ASSOCIATED( grid%t2m_max ) ) THEN DEALLOCATE(grid%t2m_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2m_max. ') endif NULLIFY(grid%t2m_max) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq3 ) ) THEN DEALLOCATE(grid%h2osoi_liq3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq3. ') endif NULLIFY(grid%h2osoi_liq3) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice_s5 ) ) THEN DEALLOCATE(grid%h2osoi_ice_s5,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice_s5. ') endif NULLIFY(grid%h2osoi_ice_s5) ENDIF IF ( ASSOCIATED( grid%t_soisno_s2 ) ) THEN DEALLOCATE(grid%t_soisno_s2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno_s2. ') endif NULLIFY(grid%t_soisno_s2) ENDIF IF ( ASSOCIATED( grid%t_soisno9 ) ) THEN DEALLOCATE(grid%t_soisno9,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno9. ') endif NULLIFY(grid%t_soisno9) ENDIF IF ( ASSOCIATED( grid%t_lake1 ) ) THEN DEALLOCATE(grid%t_lake1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake1. ') endif NULLIFY(grid%t_lake1) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol3 ) ) THEN DEALLOCATE(grid%h2osoi_vol3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol3. ') endif NULLIFY(grid%h2osoi_vol3) ENDIF IF ( ASSOCIATED( grid%q2subgrid ) ) THEN DEALLOCATE(grid%q2subgrid,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2subgrid. ') endif NULLIFY(grid%q2subgrid) ENDIF IF ( ASSOCIATED( grid%t_lake3d ) ) THEN DEALLOCATE(grid%t_lake3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake3d. ') endif NULLIFY(grid%t_lake3d) ENDIF IF ( ASSOCIATED( grid%csol3d ) ) THEN DEALLOCATE(grid%csol3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%csol3d. ') endif NULLIFY(grid%csol3d) ENDIF IF ( ASSOCIATED( grid%ssibxdd ) ) THEN DEALLOCATE(grid%ssibxdd,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssibxdd. ') endif NULLIFY(grid%ssibxdd) ENDIF IF ( ASSOCIATED( grid%ssib_ldn ) ) THEN DEALLOCATE(grid%ssib_ldn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_ldn. ') endif NULLIFY(grid%ssib_ldn) ENDIF IF ( ASSOCIATED( grid%snowdepth ) ) THEN DEALLOCATE(grid%snowdepth,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowdepth. ') endif NULLIFY(grid%snowdepth) ENDIF IF ( ASSOCIATED( grid%blo1 ) ) THEN DEALLOCATE(grid%blo1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%blo1. ') endif NULLIFY(grid%blo1) ENDIF IF ( ASSOCIATED( grid%blo2 ) ) THEN DEALLOCATE(grid%blo2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%blo2. ') endif NULLIFY(grid%blo2) ENDIF IF ( ASSOCIATED( grid%blo3 ) ) THEN DEALLOCATE(grid%blo3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%blo3. ') endif NULLIFY(grid%blo3) ENDIF IF ( ASSOCIATED( grid%blo4 ) ) THEN DEALLOCATE(grid%blo4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%blo4. ') endif NULLIFY(grid%blo4) ENDIF IF ( ASSOCIATED( grid%sneqvoxy ) ) THEN DEALLOCATE(grid%sneqvoxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sneqvoxy. ') endif NULLIFY(grid%sneqvoxy) ENDIF IF ( ASSOCIATED( grid%lfmassxy ) ) THEN DEALLOCATE(grid%lfmassxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfmassxy. ') endif NULLIFY(grid%lfmassxy) ENDIF IF ( ASSOCIATED( grid%tradxy ) ) THEN DEALLOCATE(grid%tradxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tradxy. ') endif NULLIFY(grid%tradxy) ENDIF IF ( ASSOCIATED( grid%firaxy ) ) THEN DEALLOCATE(grid%firaxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%firaxy. ') endif NULLIFY(grid%firaxy) ENDIF IF ( ASSOCIATED( grid%chbxy ) ) THEN DEALLOCATE(grid%chbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%chbxy. ') endif NULLIFY(grid%chbxy) ENDIF IF ( ASSOCIATED( grid%evcxy ) ) THEN DEALLOCATE(grid%evcxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%evcxy. ') endif NULLIFY(grid%evcxy) ENDIF IF ( ASSOCIATED( grid%qrfxy ) ) THEN DEALLOCATE(grid%qrfxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qrfxy. ') endif NULLIFY(grid%qrfxy) ENDIF IF ( ASSOCIATED( grid%rechclim ) ) THEN DEALLOCATE(grid%rechclim,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rechclim. ') endif NULLIFY(grid%rechclim) ENDIF IF ( ASSOCIATED( grid%qevacxy ) ) THEN DEALLOCATE(grid%qevacxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qevacxy. ') endif NULLIFY(grid%qevacxy) ENDIF IF ( ASSOCIATED( grid%fpicexy ) ) THEN DEALLOCATE(grid%fpicexy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fpicexy. ') endif NULLIFY(grid%fpicexy) ENDIF IF ( ASSOCIATED( grid%acevac ) ) THEN DEALLOCATE(grid%acevac,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acevac. ') endif NULLIFY(grid%acevac) ENDIF IF ( ASSOCIATED( grid%acedir ) ) THEN DEALLOCATE(grid%acedir,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acedir. ') endif NULLIFY(grid%acedir) ENDIF IF ( ASSOCIATED( grid%acsnsub ) ) THEN DEALLOCATE(grid%acsnsub,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acsnsub. ') endif NULLIFY(grid%acsnsub) ENDIF IF ( ASSOCIATED( grid%acirg ) ) THEN DEALLOCATE(grid%acirg,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acirg. ') endif NULLIFY(grid%acirg) ENDIF IF ( ASSOCIATED( grid%acswuplsm ) ) THEN DEALLOCATE(grid%acswuplsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswuplsm. ') endif NULLIFY(grid%acswuplsm) ENDIF IF ( ASSOCIATED( grid%acc_qseva ) ) THEN DEALLOCATE(grid%acc_qseva,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_qseva. ') endif NULLIFY(grid%acc_qseva) ENDIF IF ( ASSOCIATED( grid%planting ) ) THEN DEALLOCATE(grid%planting,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%planting. ') endif NULLIFY(grid%planting) ENDIF IF ( ASSOCIATED( grid%irnumsi ) ) THEN DEALLOCATE(grid%irnumsi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irnumsi. ') endif NULLIFY(grid%irnumsi) ENDIF IF ( ASSOCIATED( grid%kext_qic ) ) THEN DEALLOCATE(grid%kext_qic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_qic. ') endif NULLIFY(grid%kext_qic) ENDIF IF ( ASSOCIATED( grid%height ) ) THEN DEALLOCATE(grid%height,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%height. ') endif NULLIFY(grid%height) ENDIF IF ( ASSOCIATED( grid%echotop ) ) THEN DEALLOCATE(grid%echotop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%echotop. ') endif NULLIFY(grid%echotop) ENDIF IF ( ASSOCIATED( grid%afwa_wchill ) ) THEN DEALLOCATE(grid%afwa_wchill,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_wchill. ') endif NULLIFY(grid%afwa_wchill) ENDIF IF ( ASSOCIATED( grid%afwa_snow ) ) THEN DEALLOCATE(grid%afwa_snow,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_snow. ') endif NULLIFY(grid%afwa_snow) ENDIF IF ( ASSOCIATED( grid%afwa_cin_mu ) ) THEN DEALLOCATE(grid%afwa_cin_mu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_cin_mu. ') endif NULLIFY(grid%afwa_cin_mu) ENDIF IF ( ASSOCIATED( grid%pmsl_mean ) ) THEN DEALLOCATE(grid%pmsl_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pmsl_mean. ') endif NULLIFY(grid%pmsl_mean) ENDIF IF ( ASSOCIATED( grid%swupt_mean ) ) THEN DEALLOCATE(grid%swupt_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupt_mean. ') endif NULLIFY(grid%swupt_mean) ENDIF IF ( ASSOCIATED( grid%v10_diurn ) ) THEN DEALLOCATE(grid%v10_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10_diurn. ') endif NULLIFY(grid%v10_diurn) ENDIF IF ( ASSOCIATED( grid%lwupb_dtmp ) ) THEN DEALLOCATE(grid%lwupb_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwupb_dtmp. ') endif NULLIFY(grid%lwupb_dtmp) ENDIF IF ( ASSOCIATED( grid%elecx ) ) THEN DEALLOCATE(grid%elecx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%elecx. ') endif NULLIFY(grid%elecx) ENDIF IF ( ASSOCIATED( grid%c1h ) ) THEN DEALLOCATE(grid%c1h,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c1h. ') endif NULLIFY(grid%c1h) ENDIF IF ( ASSOCIATED( grid%p_wif_apr ) ) THEN DEALLOCATE(grid%p_wif_apr,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_apr. ') endif NULLIFY(grid%p_wif_apr) ENDIF IF ( ASSOCIATED( grid%w_wif_mar ) ) THEN DEALLOCATE(grid%w_wif_mar,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_mar. ') endif NULLIFY(grid%w_wif_mar) ENDIF IF ( ASSOCIATED( grid%i_wif_feb ) ) THEN DEALLOCATE(grid%i_wif_feb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_feb. ') endif NULLIFY(grid%i_wif_feb) ENDIF IF ( ASSOCIATED( grid%b_wif_jan ) ) THEN DEALLOCATE(grid%b_wif_jan,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_jan. ') endif NULLIFY(grid%b_wif_jan) ENDIF IF ( ASSOCIATED( grid%potential_t ) ) THEN DEALLOCATE(grid%potential_t,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%potential_t. ') endif NULLIFY(grid%potential_t) ENDIF IF ( ASSOCIATED( grid%iwp_tot ) ) THEN DEALLOCATE(grid%iwp_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iwp_tot. ') endif NULLIFY(grid%iwp_tot) ENDIF IF ( ASSOCIATED( grid%cbaseht ) ) THEN DEALLOCATE(grid%cbaseht,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cbaseht. ') endif NULLIFY(grid%cbaseht) ENDIF IF ( ASSOCIATED( grid%ts_wp_sum ) ) THEN DEALLOCATE(grid%ts_wp_sum,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_wp_sum. ') endif NULLIFY(grid%ts_wp_sum) ENDIF IF ( ASSOCIATED( grid%ts_tau_qc_tot ) ) THEN DEALLOCATE(grid%ts_tau_qc_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_tau_qc_tot. ') endif NULLIFY(grid%ts_tau_qc_tot) ENDIF IF ( ASSOCIATED( grid%ts_swdownc ) ) THEN DEALLOCATE(grid%ts_swdownc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_swdownc. ') endif NULLIFY(grid%ts_swdownc) ENDIF IF ( ASSOCIATED( grid%s_zl ) ) THEN DEALLOCATE(grid%s_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%s_zl. ') endif NULLIFY(grid%s_zl) ENDIF IF ( ASSOCIATED( grid%qv_iau ) ) THEN DEALLOCATE(grid%qv_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_iau. ') endif NULLIFY(grid%qv_iau) ENDIF IF ( ASSOCIATED( grid%rqriauten ) ) THEN DEALLOCATE(grid%rqriauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqriauten. ') endif NULLIFY(grid%rqriauten) ENDIF IF ( ASSOCIATED( grid%landmask ) ) THEN DEALLOCATE(grid%landmask,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%landmask. ') endif NULLIFY(grid%landmask) ENDIF END SUBROUTINE deallocs_2 !ENDOFREGISTRYGENERATEDINCLUDE