!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs_9.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_9( grid ) USE module_wrf_error USE module_domain_type IMPLICIT NONE TYPE( domain ), POINTER :: grid INTEGER :: ierr IF ( ASSOCIATED( grid%traj_j ) ) THEN DEALLOCATE(grid%traj_j,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%traj_j. ') endif NULLIFY(grid%traj_j) ENDIF IF ( ASSOCIATED( grid%xlong_gc ) ) THEN DEALLOCATE(grid%xlong_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xlong_gc. ') endif NULLIFY(grid%xlong_gc) ENDIF IF ( ASSOCIATED( grid%lai12m ) ) THEN DEALLOCATE(grid%lai12m,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lai12m. ') endif NULLIFY(grid%lai12m) ENDIF IF ( ASSOCIATED( grid%qr_gc ) ) THEN DEALLOCATE(grid%qr_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qr_gc. ') endif NULLIFY(grid%qr_gc) ENDIF IF ( ASSOCIATED( grid%qntemp ) ) THEN DEALLOCATE(grid%qntemp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qntemp. ') endif NULLIFY(grid%qntemp) ENDIF IF ( ASSOCIATED( grid%ptrop ) ) THEN DEALLOCATE(grid%ptrop,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ptrop. ') endif NULLIFY(grid%ptrop) ENDIF IF ( ASSOCIATED( grid%u_bxs ) ) THEN DEALLOCATE(grid%u_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_bxs. ') endif NULLIFY(grid%u_bxs) ENDIF IF ( ASSOCIATED( grid%u_bxe ) ) THEN DEALLOCATE(grid%u_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_bxe. ') endif NULLIFY(grid%u_bxe) ENDIF IF ( ASSOCIATED( grid%u_bys ) ) THEN DEALLOCATE(grid%u_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_bys. ') endif NULLIFY(grid%u_bys) ENDIF IF ( ASSOCIATED( grid%u_bye ) ) THEN DEALLOCATE(grid%u_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_bye. ') endif NULLIFY(grid%u_bye) ENDIF IF ( ASSOCIATED( grid%v_bxs ) ) THEN DEALLOCATE(grid%v_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_bxs. ') endif NULLIFY(grid%v_bxs) ENDIF IF ( ASSOCIATED( grid%v_bxe ) ) THEN DEALLOCATE(grid%v_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_bxe. ') endif NULLIFY(grid%v_bxe) ENDIF IF ( ASSOCIATED( grid%v_bys ) ) THEN DEALLOCATE(grid%v_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_bys. ') endif NULLIFY(grid%v_bys) ENDIF IF ( ASSOCIATED( grid%v_bye ) ) THEN DEALLOCATE(grid%v_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_bye. ') endif NULLIFY(grid%v_bye) ENDIF IF ( ASSOCIATED( grid%ww ) ) THEN DEALLOCATE(grid%ww,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ww. ') endif NULLIFY(grid%ww) ENDIF IF ( ASSOCIATED( grid%ph_1 ) ) THEN DEALLOCATE(grid%ph_1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_1. ') endif NULLIFY(grid%ph_1) ENDIF IF ( ASSOCIATED( grid%ph_2 ) ) THEN DEALLOCATE(grid%ph_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ph_2. ') endif NULLIFY(grid%ph_2) ENDIF IF ( ASSOCIATED( grid%t_bxs ) ) THEN DEALLOCATE(grid%t_bxs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_bxs. ') endif NULLIFY(grid%t_bxs) ENDIF IF ( ASSOCIATED( grid%t_bxe ) ) THEN DEALLOCATE(grid%t_bxe,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_bxe. ') endif NULLIFY(grid%t_bxe) ENDIF IF ( ASSOCIATED( grid%t_bys ) ) THEN DEALLOCATE(grid%t_bys,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_bys. ') endif NULLIFY(grid%t_bys) ENDIF IF ( ASSOCIATED( grid%t_bye ) ) THEN DEALLOCATE(grid%t_bye,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_bye. ') endif NULLIFY(grid%t_bye) ENDIF IF ( ASSOCIATED( grid%qv_upstream_x_tend ) ) THEN DEALLOCATE(grid%qv_upstream_x_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qv_upstream_x_tend. ') endif NULLIFY(grid%qv_upstream_x_tend) ENDIF IF ( ASSOCIATED( grid%v_upstream_x_tend ) ) THEN DEALLOCATE(grid%v_upstream_x_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_upstream_x_tend. ') endif NULLIFY(grid%v_upstream_x_tend) ENDIF IF ( ASSOCIATED( grid%u_largescale_tend ) ) THEN DEALLOCATE(grid%u_largescale_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_largescale_tend. ') endif NULLIFY(grid%u_largescale_tend) ENDIF IF ( ASSOCIATED( grid%q_soil_forcing_tend ) ) THEN DEALLOCATE(grid%q_soil_forcing_tend,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q_soil_forcing_tend. ') endif NULLIFY(grid%q_soil_forcing_tend) ENDIF IF ( ASSOCIATED( grid%mub ) ) THEN DEALLOCATE(grid%mub,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mub. ') endif NULLIFY(grid%mub) ENDIF IF ( ASSOCIATED( grid%l_diss ) ) THEN DEALLOCATE(grid%l_diss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%l_diss. ') endif NULLIFY(grid%l_diss) ENDIF IF ( ASSOCIATED( grid%fnp ) ) THEN DEALLOCATE(grid%fnp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fnp. ') endif NULLIFY(grid%fnp) ENDIF IF ( ASSOCIATED( grid%th2 ) ) THEN DEALLOCATE(grid%th2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%th2. ') endif NULLIFY(grid%th2) ENDIF IF ( ASSOCIATED( grid%dx2d ) ) THEN DEALLOCATE(grid%dx2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dx2d. ') endif NULLIFY(grid%dx2d) ENDIF IF ( ASSOCIATED( grid%imask_xystag ) ) THEN DEALLOCATE(grid%imask_xystag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%imask_xystag. ') endif NULLIFY(grid%imask_xystag) ENDIF IF ( ASSOCIATED( grid%rimi ) ) THEN DEALLOCATE(grid%rimi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rimi. ') endif NULLIFY(grid%rimi) ENDIF IF ( ASSOCIATED( grid%re_snow_gsfc ) ) THEN DEALLOCATE(grid%re_snow_gsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%re_snow_gsfc. ') endif NULLIFY(grid%re_snow_gsfc) ENDIF IF ( ASSOCIATED( grid%soil_layers ) ) THEN DEALLOCATE(grid%soil_layers,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soil_layers. ') endif NULLIFY(grid%soil_layers) ENDIF IF ( ASSOCIATED( grid%st007028 ) ) THEN DEALLOCATE(grid%st007028,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%st007028. ') endif NULLIFY(grid%st007028) ENDIF IF ( ASSOCIATED( grid%soilm160 ) ) THEN DEALLOCATE(grid%soilm160,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilm160. ') endif NULLIFY(grid%soilm160) ENDIF IF ( ASSOCIATED( grid%soilw300 ) ) THEN DEALLOCATE(grid%soilw300,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilw300. ') endif NULLIFY(grid%soilw300) ENDIF IF ( ASSOCIATED( grid%topostdv ) ) THEN DEALLOCATE(grid%topostdv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%topostdv. ') endif NULLIFY(grid%topostdv) ENDIF IF ( ASSOCIATED( grid%soilcbot ) ) THEN DEALLOCATE(grid%soilcbot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcbot. ') endif NULLIFY(grid%soilcbot) ENDIF IF ( ASSOCIATED( grid%ts_psfc ) ) THEN DEALLOCATE(grid%ts_psfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_psfc. ') endif NULLIFY(grid%ts_psfc) ENDIF IF ( ASSOCIATED( grid%ts_w_profile ) ) THEN DEALLOCATE(grid%ts_w_profile,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_w_profile. ') endif NULLIFY(grid%ts_w_profile) ENDIF IF ( ASSOCIATED( grid%hgt_urb2d ) ) THEN DEALLOCATE(grid%hgt_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%hgt_urb2d. ') endif NULLIFY(grid%hgt_urb2d) ENDIF IF ( ASSOCIATED( grid%icedepth ) ) THEN DEALLOCATE(grid%icedepth,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%icedepth. ') endif NULLIFY(grid%icedepth) ENDIF IF ( ASSOCIATED( grid%udrunoff ) ) THEN DEALLOCATE(grid%udrunoff,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%udrunoff. ') endif NULLIFY(grid%udrunoff) ENDIF IF ( ASSOCIATED( grid%snowh ) ) THEN DEALLOCATE(grid%snowh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowh. ') endif NULLIFY(grid%snowh) ENDIF IF ( ASSOCIATED( grid%uoce ) ) THEN DEALLOCATE(grid%uoce,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uoce. ') endif NULLIFY(grid%uoce) ENDIF IF ( ASSOCIATED( grid%dfi_w ) ) THEN DEALLOCATE(grid%dfi_w,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_w. ') endif NULLIFY(grid%dfi_w) ENDIF IF ( ASSOCIATED( grid%dfi_snowh ) ) THEN DEALLOCATE(grid%dfi_snowh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_snowh. ') endif NULLIFY(grid%dfi_snowh) ENDIF IF ( ASSOCIATED( grid%xxxr_urb2d ) ) THEN DEALLOCATE(grid%xxxr_urb2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xxxr_urb2d. ') endif NULLIFY(grid%xxxr_urb2d) ENDIF IF ( ASSOCIATED( grid%smr_urb3d ) ) THEN DEALLOCATE(grid%smr_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smr_urb3d. ') endif NULLIFY(grid%smr_urb3d) ENDIF IF ( ASSOCIATED( grid%tw1_urb4d ) ) THEN DEALLOCATE(grid%tw1_urb4d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tw1_urb4d. ') endif NULLIFY(grid%tw1_urb4d) ENDIF IF ( ASSOCIATED( grid%sfvent_urb3d ) ) THEN DEALLOCATE(grid%sfvent_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sfvent_urb3d. ') endif NULLIFY(grid%sfvent_urb3d) ENDIF IF ( ASSOCIATED( grid%qgr_urb3d ) ) THEN DEALLOCATE(grid%qgr_urb3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qgr_urb3d. ') endif NULLIFY(grid%qgr_urb3d) ENDIF IF ( ASSOCIATED( grid%cmc_sfcdif ) ) THEN DEALLOCATE(grid%cmc_sfcdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cmc_sfcdif. ') endif NULLIFY(grid%cmc_sfcdif) ENDIF IF ( ASSOCIATED( grid%rhosnf ) ) THEN DEALLOCATE(grid%rhosnf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rhosnf. ') endif NULLIFY(grid%rhosnf) ENDIF IF ( ASSOCIATED( grid%alswnirdif ) ) THEN DEALLOCATE(grid%alswnirdif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%alswnirdif. ') endif NULLIFY(grid%alswnirdif) ENDIF IF ( ASSOCIATED( grid%wsat_px ) ) THEN DEALLOCATE(grid%wsat_px,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wsat_px. ') endif NULLIFY(grid%wsat_px) ENDIF IF ( ASSOCIATED( grid%wstar_ysu ) ) THEN DEALLOCATE(grid%wstar_ysu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wstar_ysu. ') endif NULLIFY(grid%wstar_ysu) ENDIF IF ( ASSOCIATED( grid%qsfc ) ) THEN DEALLOCATE(grid%qsfc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qsfc. ') endif NULLIFY(grid%qsfc) ENDIF IF ( ASSOCIATED( grid%rc_mf ) ) THEN DEALLOCATE(grid%rc_mf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rc_mf. ') endif NULLIFY(grid%rc_mf) ENDIF IF ( ASSOCIATED( grid%qlup_temf ) ) THEN DEALLOCATE(grid%qlup_temf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qlup_temf. ') endif NULLIFY(grid%qlup_temf) ENDIF IF ( ASSOCIATED( grid%dqke ) ) THEN DEALLOCATE(grid%dqke,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dqke. ') endif NULLIFY(grid%dqke) ENDIF IF ( ASSOCIATED( grid%edmf_qc ) ) THEN DEALLOCATE(grid%edmf_qc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%edmf_qc. ') endif NULLIFY(grid%edmf_qc) ENDIF IF ( ASSOCIATED( grid%dtaux3d ) ) THEN DEALLOCATE(grid%dtaux3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dtaux3d. ') endif NULLIFY(grid%dtaux3d) ENDIF IF ( ASSOCIATED( grid%ol3 ) ) THEN DEALLOCATE(grid%ol3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol3. ') endif NULLIFY(grid%ol3) ENDIF IF ( ASSOCIATED( grid%dusfcg_bl ) ) THEN DEALLOCATE(grid%dusfcg_bl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dusfcg_bl. ') endif NULLIFY(grid%dusfcg_bl) ENDIF IF ( ASSOCIATED( grid%ol1ls ) ) THEN DEALLOCATE(grid%ol1ls,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol1ls. ') endif NULLIFY(grid%ol1ls) ENDIF IF ( ASSOCIATED( grid%ol3ss ) ) THEN DEALLOCATE(grid%ol3ss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ol3ss. ') endif NULLIFY(grid%ol3ss) ENDIF IF ( ASSOCIATED( grid%b_q_bep ) ) THEN DEALLOCATE(grid%b_q_bep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_q_bep. ') endif NULLIFY(grid%b_q_bep) ENDIF IF ( ASSOCIATED( grid%wv_tur ) ) THEN DEALLOCATE(grid%wv_tur,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wv_tur. ') endif NULLIFY(grid%wv_tur) ENDIF IF ( ASSOCIATED( grid%czmean ) ) THEN DEALLOCATE(grid%czmean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%czmean. ') endif NULLIFY(grid%czmean) ENDIF IF ( ASSOCIATED( grid%aerod ) ) THEN DEALLOCATE(grid%aerod,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerod. ') endif NULLIFY(grid%aerod) ENDIF IF ( ASSOCIATED( grid%f_rain_phy ) ) THEN DEALLOCATE(grid%f_rain_phy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%f_rain_phy. ') endif NULLIFY(grid%f_rain_phy) ENDIF IF ( ASSOCIATED( grid%om_sini ) ) THEN DEALLOCATE(grid%om_sini,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%om_sini. ') endif NULLIFY(grid%om_sini) ENDIF IF ( ASSOCIATED( grid%cldfratend_cup ) ) THEN DEALLOCATE(grid%cldfratend_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfratend_cup. ') endif NULLIFY(grid%cldfratend_cup) ENDIF IF ( ASSOCIATED( grid%mfdn_ent_cup ) ) THEN DEALLOCATE(grid%mfdn_ent_cup,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%mfdn_ent_cup. ') endif NULLIFY(grid%mfdn_ent_cup) ENDIF IF ( ASSOCIATED( grid%msfv ) ) THEN DEALLOCATE(grid%msfv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%msfv. ') endif NULLIFY(grid%msfv) ENDIF IF ( ASSOCIATED( grid%ht ) ) THEN DEALLOCATE(grid%ht,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ht. ') endif NULLIFY(grid%ht) ENDIF IF ( ASSOCIATED( grid%dfi_tsk ) ) THEN DEALLOCATE(grid%dfi_tsk,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dfi_tsk. ') endif NULLIFY(grid%dfi_tsk) ENDIF IF ( ASSOCIATED( grid%physf ) ) THEN DEALLOCATE(grid%physf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%physf. ') endif NULLIFY(grid%physf) ENDIF IF ( ASSOCIATED( grid%precr3d ) ) THEN DEALLOCATE(grid%precr3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%precr3d. ') endif NULLIFY(grid%precr3d) ENDIF IF ( ASSOCIATED( grid%rvshten ) ) THEN DEALLOCATE(grid%rvshten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rvshten. ') endif NULLIFY(grid%rvshten) ENDIF IF ( ASSOCIATED( grid%cldareaa ) ) THEN DEALLOCATE(grid%cldareaa,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldareaa. ') endif NULLIFY(grid%cldareaa) ENDIF IF ( ASSOCIATED( grid%radsave ) ) THEN DEALLOCATE(grid%radsave,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%radsave. ') endif NULLIFY(grid%radsave) ENDIF IF ( ASSOCIATED( grid%rqvcuten ) ) THEN DEALLOCATE(grid%rqvcuten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqvcuten. ') endif NULLIFY(grid%rqvcuten) ENDIF IF ( ASSOCIATED( grid%rainnc ) ) THEN DEALLOCATE(grid%rainnc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rainnc. ') endif NULLIFY(grid%rainnc) ENDIF IF ( ASSOCIATED( grid%snowncv ) ) THEN DEALLOCATE(grid%snowncv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowncv. ') endif NULLIFY(grid%snowncv) ENDIF IF ( ASSOCIATED( grid%di3d_2 ) ) THEN DEALLOCATE(grid%di3d_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%di3d_2. ') endif NULLIFY(grid%di3d_2) ENDIF IF ( ASSOCIATED( grid%nca ) ) THEN DEALLOCATE(grid%nca,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%nca. ') endif NULLIFY(grid%nca) ENDIF IF ( ASSOCIATED( grid%apr_mc ) ) THEN DEALLOCATE(grid%apr_mc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%apr_mc. ') endif NULLIFY(grid%apr_mc) ENDIF IF ( ASSOCIATED( grid%kbcon_deep ) ) THEN DEALLOCATE(grid%kbcon_deep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kbcon_deep. ') endif NULLIFY(grid%kbcon_deep) ENDIF IF ( ASSOCIATED( grid%raincv_a ) ) THEN DEALLOCATE(grid%raincv_a,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%raincv_a. ') endif NULLIFY(grid%raincv_a) ENDIF IF ( ASSOCIATED( grid%ccn_cu ) ) THEN DEALLOCATE(grid%ccn_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn_cu. ') endif NULLIFY(grid%ccn_cu) ENDIF IF ( ASSOCIATED( grid%ccn4_gs ) ) THEN DEALLOCATE(grid%ccn4_gs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ccn4_gs. ') endif NULLIFY(grid%ccn4_gs) ENDIF IF ( ASSOCIATED( grid%rthratenlwc ) ) THEN DEALLOCATE(grid%rthratenlwc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rthratenlwc. ') endif NULLIFY(grid%rthratenlwc) ENDIF IF ( ASSOCIATED( grid%swdownc2 ) ) THEN DEALLOCATE(grid%swdownc2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdownc2. ') endif NULLIFY(grid%swdownc2) ENDIF IF ( ASSOCIATED( grid%swddif ) ) THEN DEALLOCATE(grid%swddif,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swddif. ') endif NULLIFY(grid%swddif) ENDIF IF ( ASSOCIATED( grid%aerasy2d ) ) THEN DEALLOCATE(grid%aerasy2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%aerasy2d. ') endif NULLIFY(grid%aerasy2d) ENDIF IF ( ASSOCIATED( grid%tq2min ) ) THEN DEALLOCATE(grid%tq2min,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tq2min. ') endif NULLIFY(grid%tq2min) ENDIF IF ( ASSOCIATED( grid%spduv10max ) ) THEN DEALLOCATE(grid%spduv10max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%spduv10max. ') endif NULLIFY(grid%spduv10max) ENDIF IF ( ASSOCIATED( grid%raincvmean ) ) THEN DEALLOCATE(grid%raincvmean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%raincvmean. ') endif NULLIFY(grid%raincvmean) ENDIF IF ( ASSOCIATED( grid%acswdnbc ) ) THEN DEALLOCATE(grid%acswdnbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acswdnbc. ') endif NULLIFY(grid%acswdnbc) ENDIF IF ( ASSOCIATED( grid%i_acswdntc ) ) THEN DEALLOCATE(grid%i_acswdntc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_acswdntc. ') endif NULLIFY(grid%i_acswdntc) ENDIF IF ( ASSOCIATED( grid%i_aclwdnbc ) ) THEN DEALLOCATE(grid%i_aclwdnbc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_aclwdnbc. ') endif NULLIFY(grid%i_aclwdnbc) ENDIF IF ( ASSOCIATED( grid%swdnbcln ) ) THEN DEALLOCATE(grid%swdnbcln,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swdnbcln. ') endif NULLIFY(grid%swdnbcln) ENDIF IF ( ASSOCIATED( grid%lwdnbcln ) ) THEN DEALLOCATE(grid%lwdnbcln,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwdnbcln. ') endif NULLIFY(grid%lwdnbcln) ENDIF IF ( ASSOCIATED( grid%emiss ) ) THEN DEALLOCATE(grid%emiss,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%emiss. ') endif NULLIFY(grid%emiss) ENDIF IF ( ASSOCIATED( grid%flx4 ) ) THEN DEALLOCATE(grid%flx4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flx4. ') endif NULLIFY(grid%flx4) ENDIF IF ( ASSOCIATED( grid%snowc_mosaic ) ) THEN DEALLOCATE(grid%snowc_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowc_mosaic. ') endif NULLIFY(grid%snowc_mosaic) ENDIF IF ( ASSOCIATED( grid%grdflx_mosaic ) ) THEN DEALLOCATE(grid%grdflx_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grdflx_mosaic. ') endif NULLIFY(grid%grdflx_mosaic) ENDIF IF ( ASSOCIATED( grid%tgl_urb3d_mosaic ) ) THEN DEALLOCATE(grid%tgl_urb3d_mosaic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tgl_urb3d_mosaic. ') endif NULLIFY(grid%tgl_urb3d_mosaic) ENDIF IF ( ASSOCIATED( grid%cka ) ) THEN DEALLOCATE(grid%cka,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cka. ') endif NULLIFY(grid%cka) ENDIF IF ( ASSOCIATED( grid%qfx ) ) THEN DEALLOCATE(grid%qfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qfx. ') endif NULLIFY(grid%qfx) ENDIF IF ( ASSOCIATED( grid%soilt1 ) ) THEN DEALLOCATE(grid%soilt1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilt1. ') endif NULLIFY(grid%soilt1) ENDIF IF ( ASSOCIATED( grid%soiltb ) ) THEN DEALLOCATE(grid%soiltb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soiltb. ') endif NULLIFY(grid%soiltb) ENDIF IF ( ASSOCIATED( grid%xkhv ) ) THEN DEALLOCATE(grid%xkhv,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xkhv. ') endif NULLIFY(grid%xkhv) ENDIF IF ( ASSOCIATED( grid%rqvndgdten ) ) THEN DEALLOCATE(grid%rqvndgdten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rqvndgdten. ') endif NULLIFY(grid%rqvndgdten) ENDIF IF ( ASSOCIATED( grid%q2_ndg_old ) ) THEN DEALLOCATE(grid%q2_ndg_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%q2_ndg_old. ') endif NULLIFY(grid%q2_ndg_old) ENDIF IF ( ASSOCIATED( grid%sn_ndg_new ) ) THEN DEALLOCATE(grid%sn_ndg_new,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sn_ndg_new. ') endif NULLIFY(grid%sn_ndg_new) ENDIF IF ( ASSOCIATED( grid%dpsdt ) ) THEN DEALLOCATE(grid%dpsdt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%dpsdt. ') endif NULLIFY(grid%dpsdt) ENDIF IF ( ASSOCIATED( grid%w_colmean ) ) THEN DEALLOCATE(grid%w_colmean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_colmean. ') endif NULLIFY(grid%w_colmean) ENDIF IF ( ASSOCIATED( grid%t0ml ) ) THEN DEALLOCATE(grid%t0ml,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t0ml. ') endif NULLIFY(grid%t0ml) ENDIF IF ( ASSOCIATED( grid%track_rh ) ) THEN DEALLOCATE(grid%track_rh,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%track_rh. ') endif NULLIFY(grid%track_rh) ENDIF IF ( ASSOCIATED( grid%cldtopz ) ) THEN DEALLOCATE(grid%cldtopz,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldtopz. ') endif NULLIFY(grid%cldtopz) ENDIF IF ( ASSOCIATED( grid%athblten ) ) THEN DEALLOCATE(grid%athblten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%athblten. ') endif NULLIFY(grid%athblten) ENDIF IF ( ASSOCIATED( grid%haildtacttime ) ) THEN DEALLOCATE(grid%haildtacttime,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%haildtacttime. ') endif NULLIFY(grid%haildtacttime) ENDIF IF ( ASSOCIATED( grid%rv_xxx ) ) THEN DEALLOCATE(grid%rv_xxx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rv_xxx. ') endif NULLIFY(grid%rv_xxx) ENDIF IF ( ASSOCIATED( grid%avg_fuel_frac ) ) THEN DEALLOCATE(grid%avg_fuel_frac,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avg_fuel_frac. ') endif NULLIFY(grid%avg_fuel_frac) ENDIF IF ( ASSOCIATED( grid%lfn_2 ) ) THEN DEALLOCATE(grid%lfn_2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lfn_2. ') endif NULLIFY(grid%lfn_2) ENDIF IF ( ASSOCIATED( grid%fcanqfx ) ) THEN DEALLOCATE(grid%fcanqfx,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fcanqfx. ') endif NULLIFY(grid%fcanqfx) ENDIF IF ( ASSOCIATED( grid%t2_old ) ) THEN DEALLOCATE(grid%t2_old,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t2_old. ') endif NULLIFY(grid%t2_old) ENDIF IF ( ASSOCIATED( grid%iboros ) ) THEN DEALLOCATE(grid%iboros,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%iboros. ') endif NULLIFY(grid%iboros) ENDIF IF ( ASSOCIATED( grid%fs_count_landed_hist ) ) THEN DEALLOCATE(grid%fs_count_landed_hist,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_count_landed_hist. ') endif NULLIFY(grid%fs_count_landed_hist) ENDIF IF ( ASSOCIATED( grid%fs_p_diam ) ) THEN DEALLOCATE(grid%fs_p_diam,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fs_p_diam. ') endif NULLIFY(grid%fs_p_diam) ENDIF IF ( ASSOCIATED( grid%avgflx_dfd1 ) ) THEN DEALLOCATE(grid%avgflx_dfd1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%avgflx_dfd1. ') endif NULLIFY(grid%avgflx_dfd1) ENDIF IF ( ASSOCIATED( grid%field_sf ) ) THEN DEALLOCATE(grid%field_sf,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%field_sf. ') endif NULLIFY(grid%field_sf) ENDIF IF ( ASSOCIATED( grid%rand_imag ) ) THEN DEALLOCATE(grid%rand_imag,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rand_imag. ') endif NULLIFY(grid%rand_imag) ENDIF IF ( ASSOCIATED( grid%sp_amp2 ) ) THEN DEALLOCATE(grid%sp_amp2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sp_amp2. ') endif NULLIFY(grid%sp_amp2) ENDIF IF ( ASSOCIATED( grid%sppt_amp ) ) THEN DEALLOCATE(grid%sppt_amp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%sppt_amp. ') endif NULLIFY(grid%sppt_amp) ENDIF IF ( ASSOCIATED( grid%rand_imag_yyy ) ) THEN DEALLOCATE(grid%rand_imag_yyy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rand_imag_yyy. ') endif NULLIFY(grid%rand_imag_yyy) ENDIF IF ( ASSOCIATED( grid%timescale_mult3d ) ) THEN DEALLOCATE(grid%timescale_mult3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%timescale_mult3d. ') endif NULLIFY(grid%timescale_mult3d) ENDIF IF ( ASSOCIATED( grid%zmdt ) ) THEN DEALLOCATE(grid%zmdt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmdt. ') endif NULLIFY(grid%zmdt) ENDIF IF ( ASSOCIATED( grid%zmeiheat ) ) THEN DEALLOCATE(grid%zmeiheat,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmeiheat. ') endif NULLIFY(grid%zmeiheat) ENDIF IF ( ASSOCIATED( grid%zmvpgu ) ) THEN DEALLOCATE(grid%zmvpgu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%zmvpgu. ') endif NULLIFY(grid%zmvpgu) ENDIF IF ( ASSOCIATED( grid%eu3d ) ) THEN DEALLOCATE(grid%eu3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%eu3d. ') endif NULLIFY(grid%eu3d) ENDIF IF ( ASSOCIATED( grid%cldfrash ) ) THEN DEALLOCATE(grid%cldfrash,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfrash. ') endif NULLIFY(grid%cldfrash) ENDIF IF ( ASSOCIATED( grid%vflx_cu ) ) THEN DEALLOCATE(grid%vflx_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%vflx_cu. ') endif NULLIFY(grid%vflx_cu) ENDIF IF ( ASSOCIATED( grid%wlcl_cu ) ) THEN DEALLOCATE(grid%wlcl_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wlcl_cu. ') endif NULLIFY(grid%wlcl_cu) ENDIF IF ( ASSOCIATED( grid%cbmflimit_cu ) ) THEN DEALLOCATE(grid%cbmflimit_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cbmflimit_cu. ') endif NULLIFY(grid%cbmflimit_cu) ENDIF IF ( ASSOCIATED( grid%uu_cu ) ) THEN DEALLOCATE(grid%uu_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%uu_cu. ') endif NULLIFY(grid%uu_cu) ENDIF IF ( ASSOCIATED( grid%fer_cu ) ) THEN DEALLOCATE(grid%fer_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fer_cu. ') endif NULLIFY(grid%fer_cu) ENDIF IF ( ASSOCIATED( grid%xc_cu ) ) THEN DEALLOCATE(grid%xc_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%xc_cu. ') endif NULLIFY(grid%xc_cu) ENDIF IF ( ASSOCIATED( grid%exit_drycore_cu ) ) THEN DEALLOCATE(grid%exit_drycore_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%exit_drycore_cu. ') endif NULLIFY(grid%exit_drycore_cu) ENDIF IF ( ASSOCIATED( grid%limit_cbmf_cu ) ) THEN DEALLOCATE(grid%limit_cbmf_cu,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%limit_cbmf_cu. ') endif NULLIFY(grid%limit_cbmf_cu) ENDIF IF ( ASSOCIATED( grid%cldfral ) ) THEN DEALLOCATE(grid%cldfral,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%cldfral. ') endif NULLIFY(grid%cldfral) ENDIF IF ( ASSOCIATED( grid%wtc ) ) THEN DEALLOCATE(grid%wtc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wtc. ') endif NULLIFY(grid%wtc) ENDIF IF ( ASSOCIATED( grid%fsi24 ) ) THEN DEALLOCATE(grid%fsi24,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%fsi24. ') endif NULLIFY(grid%fsi24) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq_s3 ) ) THEN DEALLOCATE(grid%h2osoi_liq_s3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq_s3. ') endif NULLIFY(grid%h2osoi_liq_s3) ENDIF IF ( ASSOCIATED( grid%h2osoi_liq10 ) ) THEN DEALLOCATE(grid%h2osoi_liq10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_liq10. ') endif NULLIFY(grid%h2osoi_liq10) ENDIF IF ( ASSOCIATED( grid%h2osoi_ice7 ) ) THEN DEALLOCATE(grid%h2osoi_ice7,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_ice7. ') endif NULLIFY(grid%h2osoi_ice7) ENDIF IF ( ASSOCIATED( grid%t_soisno4 ) ) THEN DEALLOCATE(grid%t_soisno4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_soisno4. ') endif NULLIFY(grid%t_soisno4) ENDIF IF ( ASSOCIATED( grid%snowrds1 ) ) THEN DEALLOCATE(grid%snowrds1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%snowrds1. ') endif NULLIFY(grid%snowrds1) ENDIF IF ( ASSOCIATED( grid%t_lake8 ) ) THEN DEALLOCATE(grid%t_lake8,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%t_lake8. ') endif NULLIFY(grid%t_lake8) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol10 ) ) THEN DEALLOCATE(grid%h2osoi_vol10,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol10. ') endif NULLIFY(grid%h2osoi_vol10) ENDIF IF ( ASSOCIATED( grid%savedtke12d ) ) THEN DEALLOCATE(grid%savedtke12d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%savedtke12d. ') endif NULLIFY(grid%savedtke12d) ENDIF IF ( ASSOCIATED( grid%h2osoi_vol3d ) ) THEN DEALLOCATE(grid%h2osoi_vol3d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%h2osoi_vol3d. ') endif NULLIFY(grid%h2osoi_vol3d) ENDIF IF ( ASSOCIATED( grid%ssib_ect ) ) THEN DEALLOCATE(grid%ssib_ect,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_ect. ') endif NULLIFY(grid%ssib_ect) ENDIF IF ( ASSOCIATED( grid%ssib_z00 ) ) THEN DEALLOCATE(grid%ssib_z00,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ssib_z00. ') endif NULLIFY(grid%ssib_z00) ENDIF IF ( ASSOCIATED( grid%bto1 ) ) THEN DEALLOCATE(grid%bto1,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bto1. ') endif NULLIFY(grid%bto1) ENDIF IF ( ASSOCIATED( grid%bto2 ) ) THEN DEALLOCATE(grid%bto2,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bto2. ') endif NULLIFY(grid%bto2) ENDIF IF ( ASSOCIATED( grid%bto3 ) ) THEN DEALLOCATE(grid%bto3,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bto3. ') endif NULLIFY(grid%bto3) ENDIF IF ( ASSOCIATED( grid%bto4 ) ) THEN DEALLOCATE(grid%bto4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bto4. ') endif NULLIFY(grid%bto4) ENDIF IF ( ASSOCIATED( grid%eahxy ) ) THEN DEALLOCATE(grid%eahxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%eahxy. ') endif NULLIFY(grid%eahxy) ENDIF IF ( ASSOCIATED( grid%wtxy ) ) THEN DEALLOCATE(grid%wtxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%wtxy. ') endif NULLIFY(grid%wtxy) ENDIF IF ( ASSOCIATED( grid%taussxy ) ) THEN DEALLOCATE(grid%taussxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%taussxy. ') endif NULLIFY(grid%taussxy) ENDIF IF ( ASSOCIATED( grid%runsbxy ) ) THEN DEALLOCATE(grid%runsbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%runsbxy. ') endif NULLIFY(grid%runsbxy) ENDIF IF ( ASSOCIATED( grid%bgapxy ) ) THEN DEALLOCATE(grid%bgapxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%bgapxy. ') endif NULLIFY(grid%bgapxy) ENDIF IF ( ASSOCIATED( grid%ghbxy ) ) THEN DEALLOCATE(grid%ghbxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ghbxy. ') endif NULLIFY(grid%ghbxy) ENDIF IF ( ASSOCIATED( grid%smcwtdxy ) ) THEN DEALLOCATE(grid%smcwtdxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%smcwtdxy. ') endif NULLIFY(grid%smcwtdxy) ENDIF IF ( ASSOCIATED( grid%qthrorxy ) ) THEN DEALLOCATE(grid%qthrorxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qthrorxy. ') endif NULLIFY(grid%qthrorxy) ENDIF IF ( ASSOCIATED( grid%pahxy ) ) THEN DEALLOCATE(grid%pahxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%pahxy. ') endif NULLIFY(grid%pahxy) ENDIF IF ( ASSOCIATED( grid%soilcl4 ) ) THEN DEALLOCATE(grid%soilcl4,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%soilcl4. ') endif NULLIFY(grid%soilcl4) ENDIF IF ( ASSOCIATED( grid%acrainlsm ) ) THEN DEALLOCATE(grid%acrainlsm,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acrainlsm. ') endif NULLIFY(grid%acrainlsm) ENDIF IF ( ASSOCIATED( grid%acfrzc ) ) THEN DEALLOCATE(grid%acfrzc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acfrzc. ') endif NULLIFY(grid%acfrzc) ENDIF IF ( ASSOCIATED( grid%acshb ) ) THEN DEALLOCATE(grid%acshb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acshb. ') endif NULLIFY(grid%acshb) ENDIF IF ( ASSOCIATED( grid%acshc ) ) THEN DEALLOCATE(grid%acshc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acshc. ') endif NULLIFY(grid%acshc) ENDIF IF ( ASSOCIATED( grid%accanhs ) ) THEN DEALLOCATE(grid%accanhs,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%accanhs. ') endif NULLIFY(grid%accanhs) ENDIF IF ( ASSOCIATED( grid%acc_etranxy ) ) THEN DEALLOCATE(grid%acc_etranxy,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%acc_etranxy. ') endif NULLIFY(grid%acc_etranxy) ENDIF IF ( ASSOCIATED( grid%qtdrain ) ) THEN DEALLOCATE(grid%qtdrain,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qtdrain. ') endif NULLIFY(grid%qtdrain) ENDIF IF ( ASSOCIATED( grid%irmivol ) ) THEN DEALLOCATE(grid%irmivol,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%irmivol. ') endif NULLIFY(grid%irmivol) ENDIF IF ( ASSOCIATED( grid%kext_ft_qic ) ) THEN DEALLOCATE(grid%kext_ft_qic,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%kext_ft_qic. ') endif NULLIFY(grid%kext_ft_qic) ENDIF IF ( ASSOCIATED( grid%grpl_flx_max ) ) THEN DEALLOCATE(grid%grpl_flx_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%grpl_flx_max. ') endif NULLIFY(grid%grpl_flx_max) ENDIF IF ( ASSOCIATED( grid%qicing_sm_max ) ) THEN DEALLOCATE(grid%qicing_sm_max,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%qicing_sm_max. ') endif NULLIFY(grid%qicing_sm_max) ENDIF IF ( ASSOCIATED( grid%afwa_llturbmdt ) ) THEN DEALLOCATE(grid%afwa_llturbmdt,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_llturbmdt. ') endif NULLIFY(grid%afwa_llturbmdt) ENDIF IF ( ASSOCIATED( grid%afwa_cloud ) ) THEN DEALLOCATE(grid%afwa_cloud,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_cloud. ') endif NULLIFY(grid%afwa_cloud) ENDIF IF ( ASSOCIATED( grid%afwa_hail ) ) THEN DEALLOCATE(grid%afwa_hail,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%afwa_hail. ') endif NULLIFY(grid%afwa_hail) ENDIF IF ( ASSOCIATED( grid%lh_mean ) ) THEN DEALLOCATE(grid%lh_mean,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lh_mean. ') endif NULLIFY(grid%lh_mean) ENDIF IF ( ASSOCIATED( grid%tsk_diurn ) ) THEN DEALLOCATE(grid%tsk_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tsk_diurn. ') endif NULLIFY(grid%tsk_diurn) ENDIF IF ( ASSOCIATED( grid%swupt_diurn ) ) THEN DEALLOCATE(grid%swupt_diurn,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%swupt_diurn. ') endif NULLIFY(grid%swupt_diurn) ENDIF IF ( ASSOCIATED( grid%v10_dtmp ) ) THEN DEALLOCATE(grid%v10_dtmp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v10_dtmp. ') endif NULLIFY(grid%v10_dtmp) ENDIF IF ( ASSOCIATED( grid%rscghis_2d ) ) THEN DEALLOCATE(grid%rscghis_2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rscghis_2d. ') endif NULLIFY(grid%rscghis_2d) ENDIF IF ( ASSOCIATED( grid%flshi ) ) THEN DEALLOCATE(grid%flshi,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%flshi. ') endif NULLIFY(grid%flshi) ENDIF IF ( ASSOCIATED( grid%field_u_tend_perturb ) ) THEN DEALLOCATE(grid%field_u_tend_perturb,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%field_u_tend_perturb. ') endif NULLIFY(grid%field_u_tend_perturb) ENDIF IF ( ASSOCIATED( grid%c4f ) ) THEN DEALLOCATE(grid%c4f,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%c4f. ') endif NULLIFY(grid%c4f) ENDIF IF ( ASSOCIATED( grid%p_wif_gc ) ) THEN DEALLOCATE(grid%p_wif_gc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_gc. ') endif NULLIFY(grid%p_wif_gc) ENDIF IF ( ASSOCIATED( grid%p_wif_nov ) ) THEN DEALLOCATE(grid%p_wif_nov,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%p_wif_nov. ') endif NULLIFY(grid%p_wif_nov) ENDIF IF ( ASSOCIATED( grid%w_wif_oct ) ) THEN DEALLOCATE(grid%w_wif_oct,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%w_wif_oct. ') endif NULLIFY(grid%w_wif_oct) ENDIF IF ( ASSOCIATED( grid%i_wif_sep ) ) THEN DEALLOCATE(grid%i_wif_sep,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%i_wif_sep. ') endif NULLIFY(grid%i_wif_sep) ENDIF IF ( ASSOCIATED( grid%b_wif_aug ) ) THEN DEALLOCATE(grid%b_wif_aug,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%b_wif_aug. ') endif NULLIFY(grid%b_wif_aug) ENDIF IF ( ASSOCIATED( grid%speed ) ) THEN DEALLOCATE(grid%speed,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%speed. ') endif NULLIFY(grid%speed) ENDIF IF ( ASSOCIATED( grid%lwp ) ) THEN DEALLOCATE(grid%lwp,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%lwp. ') endif NULLIFY(grid%lwp) ENDIF IF ( ASSOCIATED( grid%tau_qc ) ) THEN DEALLOCATE(grid%tau_qc,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%tau_qc. ') endif NULLIFY(grid%tau_qc) ENDIF IF ( ASSOCIATED( grid%ts_cldfrac2d ) ) THEN DEALLOCATE(grid%ts_cldfrac2d,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_cldfrac2d. ') endif NULLIFY(grid%ts_cldfrac2d) ENDIF IF ( ASSOCIATED( grid%ts_re_qc_tot ) ) THEN DEALLOCATE(grid%ts_re_qc_tot,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_re_qc_tot. ') endif NULLIFY(grid%ts_re_qc_tot) ENDIF IF ( ASSOCIATED( grid%ts_sza ) ) THEN DEALLOCATE(grid%ts_sza,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%ts_sza. ') endif NULLIFY(grid%ts_sza) ENDIF IF ( ASSOCIATED( grid%rh_pl ) ) THEN DEALLOCATE(grid%rh_pl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rh_pl. ') endif NULLIFY(grid%rh_pl) ENDIF IF ( ASSOCIATED( grid%u_zl ) ) THEN DEALLOCATE(grid%u_zl,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%u_zl. ') endif NULLIFY(grid%u_zl) ENDIF IF ( ASSOCIATED( grid%v_iau ) ) THEN DEALLOCATE(grid%v_iau,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%v_iau. ') endif NULLIFY(grid%v_iau) ENDIF IF ( ASSOCIATED( grid%rviauten ) ) THEN DEALLOCATE(grid%rviauten,STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal ( & 'frame/module_domain.f: Failed to deallocate grid%rviauten. ') endif NULLIFY(grid%rviauten) ENDIF END SUBROUTINE deallocs_9 !ENDOFREGISTRYGENERATEDINCLUDE