!STARTOFREGISTRYGENERATEDINCLUDE 'inc/deallocs.inc'
!
! 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.
!
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
ENDIF
IF ( ASSOCIATED( grid%lu_mask ) ) THEN
DEALLOCATE(grid%lu_mask,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%lu_mask. ')
endif
ENDIF
IF ( ASSOCIATED( grid%znu ) ) THEN
DEALLOCATE(grid%znu,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%znu. ')
endif
ENDIF
IF ( ASSOCIATED( grid%znw ) ) THEN
DEALLOCATE(grid%znw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%znw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%zs ) ) THEN
DEALLOCATE(grid%zs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%zs. ')
endif
ENDIF
IF ( ASSOCIATED( grid%dzs ) ) THEN
DEALLOCATE(grid%dzs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%dzs. ')
endif
ENDIF
IF ( ASSOCIATED( grid%u_1 ) ) THEN
DEALLOCATE(grid%u_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%u_2 ) ) THEN
DEALLOCATE(grid%u_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_2. ')
endif
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%u_btxs ) ) THEN
DEALLOCATE(grid%u_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_btxs. ')
endif
NULLIFY(grid%u_btxs)
ENDIF
IF ( ASSOCIATED( grid%u_btxe ) ) THEN
DEALLOCATE(grid%u_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_btxe. ')
endif
NULLIFY(grid%u_btxe)
ENDIF
IF ( ASSOCIATED( grid%u_btys ) ) THEN
DEALLOCATE(grid%u_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_btys. ')
endif
NULLIFY(grid%u_btys)
ENDIF
IF ( ASSOCIATED( grid%u_btye ) ) THEN
DEALLOCATE(grid%u_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_btye. ')
endif
NULLIFY(grid%u_btye)
ENDIF
IF ( ASSOCIATED( grid%ru ) ) THEN
DEALLOCATE(grid%ru,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ru. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ru_m ) ) THEN
DEALLOCATE(grid%ru_m,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ru_m. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ru_tend ) ) THEN
DEALLOCATE(grid%ru_tend,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ru_tend. ')
endif
ENDIF
IF ( ASSOCIATED( grid%v_1 ) ) THEN
DEALLOCATE(grid%v_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%v_2 ) ) THEN
DEALLOCATE(grid%v_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_2. ')
endif
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%v_btxs ) ) THEN
DEALLOCATE(grid%v_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_btxs. ')
endif
NULLIFY(grid%v_btxs)
ENDIF
IF ( ASSOCIATED( grid%v_btxe ) ) THEN
DEALLOCATE(grid%v_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_btxe. ')
endif
NULLIFY(grid%v_btxe)
ENDIF
IF ( ASSOCIATED( grid%v_btys ) ) THEN
DEALLOCATE(grid%v_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_btys. ')
endif
NULLIFY(grid%v_btys)
ENDIF
IF ( ASSOCIATED( grid%v_btye ) ) THEN
DEALLOCATE(grid%v_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_btye. ')
endif
NULLIFY(grid%v_btye)
ENDIF
IF ( ASSOCIATED( grid%rv ) ) THEN
DEALLOCATE(grid%rv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%rv_m ) ) THEN
DEALLOCATE(grid%rv_m,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rv_m. ')
endif
ENDIF
IF ( ASSOCIATED( grid%rv_tend ) ) THEN
DEALLOCATE(grid%rv_tend,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rv_tend. ')
endif
ENDIF
IF ( ASSOCIATED( grid%w_1 ) ) THEN
DEALLOCATE(grid%w_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%w_2 ) ) THEN
DEALLOCATE(grid%w_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%w_bxs ) ) THEN
DEALLOCATE(grid%w_bxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_bxs. ')
endif
NULLIFY(grid%w_bxs)
ENDIF
IF ( ASSOCIATED( grid%w_bxe ) ) THEN
DEALLOCATE(grid%w_bxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_bxe. ')
endif
NULLIFY(grid%w_bxe)
ENDIF
IF ( ASSOCIATED( grid%w_bys ) ) THEN
DEALLOCATE(grid%w_bys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_bys. ')
endif
NULLIFY(grid%w_bys)
ENDIF
IF ( ASSOCIATED( grid%w_bye ) ) THEN
DEALLOCATE(grid%w_bye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_bye. ')
endif
NULLIFY(grid%w_bye)
ENDIF
IF ( ASSOCIATED( grid%w_btxs ) ) THEN
DEALLOCATE(grid%w_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_btxs. ')
endif
NULLIFY(grid%w_btxs)
ENDIF
IF ( ASSOCIATED( grid%w_btxe ) ) THEN
DEALLOCATE(grid%w_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_btxe. ')
endif
NULLIFY(grid%w_btxe)
ENDIF
IF ( ASSOCIATED( grid%w_btys ) ) THEN
DEALLOCATE(grid%w_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_btys. ')
endif
NULLIFY(grid%w_btys)
ENDIF
IF ( ASSOCIATED( grid%w_btye ) ) THEN
DEALLOCATE(grid%w_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%w_btye. ')
endif
NULLIFY(grid%w_btye)
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
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
ENDIF
IF ( ASSOCIATED( grid%ph_bxs ) ) THEN
DEALLOCATE(grid%ph_bxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_bxs. ')
endif
NULLIFY(grid%ph_bxs)
ENDIF
IF ( ASSOCIATED( grid%ph_bxe ) ) THEN
DEALLOCATE(grid%ph_bxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_bxe. ')
endif
NULLIFY(grid%ph_bxe)
ENDIF
IF ( ASSOCIATED( grid%ph_bys ) ) THEN
DEALLOCATE(grid%ph_bys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_bys. ')
endif
NULLIFY(grid%ph_bys)
ENDIF
IF ( ASSOCIATED( grid%ph_bye ) ) THEN
DEALLOCATE(grid%ph_bye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_bye. ')
endif
NULLIFY(grid%ph_bye)
ENDIF
IF ( ASSOCIATED( grid%ph_btxs ) ) THEN
DEALLOCATE(grid%ph_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_btxs. ')
endif
NULLIFY(grid%ph_btxs)
ENDIF
IF ( ASSOCIATED( grid%ph_btxe ) ) THEN
DEALLOCATE(grid%ph_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_btxe. ')
endif
NULLIFY(grid%ph_btxe)
ENDIF
IF ( ASSOCIATED( grid%ph_btys ) ) THEN
DEALLOCATE(grid%ph_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_btys. ')
endif
NULLIFY(grid%ph_btys)
ENDIF
IF ( ASSOCIATED( grid%ph_btye ) ) THEN
DEALLOCATE(grid%ph_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ph_btye. ')
endif
NULLIFY(grid%ph_btye)
ENDIF
IF ( ASSOCIATED( grid%phb ) ) THEN
DEALLOCATE(grid%phb,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%phb. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%php ) ) THEN
DEALLOCATE(grid%php,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%php. ')
endif
ENDIF
IF ( ASSOCIATED( grid%t_1 ) ) THEN
DEALLOCATE(grid%t_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%t_2 ) ) THEN
DEALLOCATE(grid%t_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_2. ')
endif
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%t_btxs ) ) THEN
DEALLOCATE(grid%t_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_btxs. ')
endif
NULLIFY(grid%t_btxs)
ENDIF
IF ( ASSOCIATED( grid%t_btxe ) ) THEN
DEALLOCATE(grid%t_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_btxe. ')
endif
NULLIFY(grid%t_btxe)
ENDIF
IF ( ASSOCIATED( grid%t_btys ) ) THEN
DEALLOCATE(grid%t_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_btys. ')
endif
NULLIFY(grid%t_btys)
ENDIF
IF ( ASSOCIATED( grid%t_btye ) ) THEN
DEALLOCATE(grid%t_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_btye. ')
endif
NULLIFY(grid%t_btye)
ENDIF
IF ( ASSOCIATED( grid%t_init ) ) THEN
DEALLOCATE(grid%t_init,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t_init. ')
endif
ENDIF
IF ( ASSOCIATED( grid%mu_1 ) ) THEN
DEALLOCATE(grid%mu_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%mu_2 ) ) THEN
DEALLOCATE(grid%mu_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%mu_bxs ) ) THEN
DEALLOCATE(grid%mu_bxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_bxs. ')
endif
NULLIFY(grid%mu_bxs)
ENDIF
IF ( ASSOCIATED( grid%mu_bxe ) ) THEN
DEALLOCATE(grid%mu_bxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_bxe. ')
endif
NULLIFY(grid%mu_bxe)
ENDIF
IF ( ASSOCIATED( grid%mu_bys ) ) THEN
DEALLOCATE(grid%mu_bys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_bys. ')
endif
NULLIFY(grid%mu_bys)
ENDIF
IF ( ASSOCIATED( grid%mu_bye ) ) THEN
DEALLOCATE(grid%mu_bye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_bye. ')
endif
NULLIFY(grid%mu_bye)
ENDIF
IF ( ASSOCIATED( grid%mu_btxs ) ) THEN
DEALLOCATE(grid%mu_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_btxs. ')
endif
NULLIFY(grid%mu_btxs)
ENDIF
IF ( ASSOCIATED( grid%mu_btxe ) ) THEN
DEALLOCATE(grid%mu_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_btxe. ')
endif
NULLIFY(grid%mu_btxe)
ENDIF
IF ( ASSOCIATED( grid%mu_btys ) ) THEN
DEALLOCATE(grid%mu_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_btys. ')
endif
NULLIFY(grid%mu_btys)
ENDIF
IF ( ASSOCIATED( grid%mu_btye ) ) THEN
DEALLOCATE(grid%mu_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu_btye. ')
endif
NULLIFY(grid%mu_btye)
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
ENDIF
IF ( ASSOCIATED( grid%mu0 ) ) THEN
DEALLOCATE(grid%mu0,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mu0. ')
endif
ENDIF
IF ( ASSOCIATED( grid%mudf ) ) THEN
DEALLOCATE(grid%mudf,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mudf. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%muv ) ) THEN
DEALLOCATE(grid%muv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%muv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%mut ) ) THEN
DEALLOCATE(grid%mut,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mut. ')
endif
ENDIF
IF ( ASSOCIATED( grid%muts ) ) THEN
DEALLOCATE(grid%muts,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%muts. ')
endif
ENDIF
IF ( ASSOCIATED( grid%p ) ) THEN
DEALLOCATE(grid%p,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%p. ')
endif
ENDIF
IF ( ASSOCIATED( grid%al ) ) THEN
DEALLOCATE(grid%al,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%al. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%alb ) ) THEN
DEALLOCATE(grid%alb,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%alb. ')
endif
ENDIF
IF ( ASSOCIATED( grid%zx ) ) THEN
DEALLOCATE(grid%zx,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%zx. ')
endif
ENDIF
IF ( ASSOCIATED( grid%zy ) ) THEN
DEALLOCATE(grid%zy,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%zy. ')
endif
ENDIF
IF ( ASSOCIATED( grid%rdz ) ) THEN
DEALLOCATE(grid%rdz,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rdz. ')
endif
ENDIF
IF ( ASSOCIATED( grid%rdzw ) ) THEN
DEALLOCATE(grid%rdzw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rdzw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%pb ) ) THEN
DEALLOCATE(grid%pb,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%pb. ')
endif
ENDIF
IF ( ASSOCIATED( grid%fnm ) ) THEN
DEALLOCATE(grid%fnm,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%fnm. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%rdnw ) ) THEN
DEALLOCATE(grid%rdnw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rdnw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%rdn ) ) THEN
DEALLOCATE(grid%rdn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rdn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%dnw ) ) THEN
DEALLOCATE(grid%dnw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%dnw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%dn ) ) THEN
DEALLOCATE(grid%dn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%dn. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%z ) ) THEN
DEALLOCATE(grid%z,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%z. ')
endif
ENDIF
IF ( ASSOCIATED( grid%z_at_w ) ) THEN
DEALLOCATE(grid%z_at_w,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%z_at_w. ')
endif
ENDIF
IF ( ASSOCIATED( grid%p_hyd ) ) THEN
DEALLOCATE(grid%p_hyd,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%p_hyd. ')
endif
ENDIF
IF ( ASSOCIATED( grid%p_hyd_w ) ) THEN
DEALLOCATE(grid%p_hyd_w,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%p_hyd_w. ')
endif
ENDIF
IF ( ASSOCIATED( grid%q2 ) ) THEN
DEALLOCATE(grid%q2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%q2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%t2 ) ) THEN
DEALLOCATE(grid%t2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%t2. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%psfc ) ) THEN
DEALLOCATE(grid%psfc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%psfc. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%u10 ) ) THEN
DEALLOCATE(grid%u10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%v10 ) ) THEN
DEALLOCATE(grid%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%imask_nostag ) ) THEN
DEALLOCATE(grid%imask_nostag,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%imask_nostag. ')
endif
ENDIF
IF ( ASSOCIATED( grid%imask_xstag ) ) THEN
DEALLOCATE(grid%imask_xstag,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%imask_xstag. ')
endif
ENDIF
IF ( ASSOCIATED( grid%imask_ystag ) ) THEN
DEALLOCATE(grid%imask_ystag,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%imask_ystag. ')
endif
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
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
ENDIF
IF ( ASSOCIATED( grid%moist_bxs ) ) THEN
DEALLOCATE(grid%moist_bxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_bxs. ')
endif
NULLIFY(grid%moist_bxs)
ENDIF
IF ( ASSOCIATED( grid%moist_bxe ) ) THEN
DEALLOCATE(grid%moist_bxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_bxe. ')
endif
NULLIFY(grid%moist_bxe)
ENDIF
IF ( ASSOCIATED( grid%moist_bys ) ) THEN
DEALLOCATE(grid%moist_bys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_bys. ')
endif
NULLIFY(grid%moist_bys)
ENDIF
IF ( ASSOCIATED( grid%moist_bye ) ) THEN
DEALLOCATE(grid%moist_bye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_bye. ')
endif
NULLIFY(grid%moist_bye)
ENDIF
IF ( ASSOCIATED( grid%moist_btxs ) ) THEN
DEALLOCATE(grid%moist_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_btxs. ')
endif
NULLIFY(grid%moist_btxs)
ENDIF
IF ( ASSOCIATED( grid%moist_btxe ) ) THEN
DEALLOCATE(grid%moist_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_btxe. ')
endif
NULLIFY(grid%moist_btxe)
ENDIF
IF ( ASSOCIATED( grid%moist_btys ) ) THEN
DEALLOCATE(grid%moist_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_btys. ')
endif
NULLIFY(grid%moist_btys)
ENDIF
IF ( ASSOCIATED( grid%moist_btye ) ) THEN
DEALLOCATE(grid%moist_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%moist_btye. ')
endif
NULLIFY(grid%moist_btye)
ENDIF
IF ( ASSOCIATED( grid%scalar ) ) THEN
DEALLOCATE(grid%scalar,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%scalar. ')
endif
ENDIF
IF ( ASSOCIATED( grid%scalar_bxs ) ) THEN
DEALLOCATE(grid%scalar_bxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%scalar_bxs. ')
endif
NULLIFY(grid%scalar_bxs)
ENDIF
IF ( ASSOCIATED( grid%scalar_bxe ) ) THEN
DEALLOCATE(grid%scalar_bxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%scalar_bxe. ')
endif
NULLIFY(grid%scalar_bxe)
ENDIF
IF ( ASSOCIATED( grid%scalar_bys ) ) THEN
DEALLOCATE(grid%scalar_bys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%scalar_bys. ')
endif
NULLIFY(grid%scalar_bys)
ENDIF
IF ( ASSOCIATED( grid%scalar_bye ) ) THEN
DEALLOCATE(grid%scalar_bye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%scalar_bye. ')
endif
NULLIFY(grid%scalar_bye)
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%fcx ) ) THEN
DEALLOCATE(grid%fcx,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%fcx. ')
endif
ENDIF
IF ( ASSOCIATED( grid%gcx ) ) THEN
DEALLOCATE(grid%gcx,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%gcx. ')
endif
ENDIF
IF ( ASSOCIATED( grid%smois ) ) THEN
DEALLOCATE(grid%smois,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%smois. ')
endif
ENDIF
IF ( ASSOCIATED( grid%sh2o ) ) THEN
DEALLOCATE(grid%sh2o,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%sh2o. ')
endif
ENDIF
IF ( ASSOCIATED( grid%smcrel ) ) THEN
DEALLOCATE(grid%smcrel,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%smcrel. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xice ) ) THEN
DEALLOCATE(grid%xice,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xice. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ivgtyp ) ) THEN
DEALLOCATE(grid%ivgtyp,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ivgtyp. ')
endif
ENDIF
IF ( ASSOCIATED( grid%isltyp ) ) THEN
DEALLOCATE(grid%isltyp,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%isltyp. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vegfra ) ) THEN
DEALLOCATE(grid%vegfra,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vegfra. ')
endif
ENDIF
IF ( ASSOCIATED( grid%snow ) ) THEN
DEALLOCATE(grid%snow,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%snow. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%htop ) ) THEN
DEALLOCATE(grid%htop,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%htop. ')
endif
ENDIF
IF ( ASSOCIATED( grid%hbot ) ) THEN
DEALLOCATE(grid%hbot,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%hbot. ')
endif
ENDIF
IF ( ASSOCIATED( grid%tslb ) ) THEN
DEALLOCATE(grid%tslb,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tslb. ')
endif
ENDIF
IF ( ASSOCIATED( grid%msft ) ) THEN
DEALLOCATE(grid%msft,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msft. ')
endif
ENDIF
IF ( ASSOCIATED( grid%msfu ) ) THEN
DEALLOCATE(grid%msfu,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msfu. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%msftx ) ) THEN
DEALLOCATE(grid%msftx,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msftx. ')
endif
ENDIF
IF ( ASSOCIATED( grid%msfty ) ) THEN
DEALLOCATE(grid%msfty,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msfty. ')
endif
ENDIF
IF ( ASSOCIATED( grid%msfux ) ) THEN
DEALLOCATE(grid%msfux,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msfux. ')
endif
ENDIF
IF ( ASSOCIATED( grid%msfuy ) ) THEN
DEALLOCATE(grid%msfuy,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msfuy. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%msfvx_inv ) ) THEN
DEALLOCATE(grid%msfvx_inv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msfvx_inv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%msfvy ) ) THEN
DEALLOCATE(grid%msfvy,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%msfvy. ')
endif
ENDIF
IF ( ASSOCIATED( grid%f ) ) THEN
DEALLOCATE(grid%f,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%f. ')
endif
ENDIF
IF ( ASSOCIATED( grid%e ) ) THEN
DEALLOCATE(grid%e,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%e. ')
endif
ENDIF
IF ( ASSOCIATED( grid%sina ) ) THEN
DEALLOCATE(grid%sina,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%sina. ')
endif
ENDIF
IF ( ASSOCIATED( grid%cosa ) ) THEN
DEALLOCATE(grid%cosa,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%cosa. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%ht_fine ) ) THEN
DEALLOCATE(grid%ht_fine,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ht_fine. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ht_int ) ) THEN
DEALLOCATE(grid%ht_int,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ht_int. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ht_input ) ) THEN
DEALLOCATE(grid%ht_input,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ht_input. ')
endif
ENDIF
IF ( ASSOCIATED( grid%tsk ) ) THEN
DEALLOCATE(grid%tsk,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tsk. ')
endif
ENDIF
IF ( ASSOCIATED( grid%u_base ) ) THEN
DEALLOCATE(grid%u_base,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%u_base. ')
endif
ENDIF
IF ( ASSOCIATED( grid%v_base ) ) THEN
DEALLOCATE(grid%v_base,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%v_base. ')
endif
ENDIF
IF ( ASSOCIATED( grid%qv_base ) ) THEN
DEALLOCATE(grid%qv_base,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%qv_base. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%rainc ) ) THEN
DEALLOCATE(grid%rainc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rainc. ')
endif
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
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
ENDIF
IF ( ASSOCIATED( grid%rainncv ) ) THEN
DEALLOCATE(grid%rainncv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%rainncv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xlat ) ) THEN
DEALLOCATE(grid%xlat,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xlat. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xlong ) ) THEN
DEALLOCATE(grid%xlong,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xlong. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xlat_u ) ) THEN
DEALLOCATE(grid%xlat_u,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xlat_u. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%xlat_v ) ) THEN
DEALLOCATE(grid%xlat_v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xlat_v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xlong_v ) ) THEN
DEALLOCATE(grid%xlong_v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xlong_v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%albedo ) ) THEN
DEALLOCATE(grid%albedo,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%albedo. ')
endif
ENDIF
IF ( ASSOCIATED( grid%clat ) ) THEN
DEALLOCATE(grid%clat,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%clat. ')
endif
ENDIF
IF ( ASSOCIATED( grid%albbck ) ) THEN
DEALLOCATE(grid%albbck,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%albbck. ')
endif
ENDIF
IF ( ASSOCIATED( grid%embck ) ) THEN
DEALLOCATE(grid%embck,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%embck. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%snotime ) ) THEN
DEALLOCATE(grid%snotime,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%snotime. ')
endif
ENDIF
IF ( ASSOCIATED( grid%noahres ) ) THEN
DEALLOCATE(grid%noahres,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%noahres. ')
endif
ENDIF
IF ( ASSOCIATED( grid%cldefi ) ) THEN
DEALLOCATE(grid%cldefi,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%cldefi. ')
endif
ENDIF
IF ( ASSOCIATED( grid%tmn ) ) THEN
DEALLOCATE(grid%tmn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tmn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xland ) ) THEN
DEALLOCATE(grid%xland,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xland. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%znt ) ) THEN
DEALLOCATE(grid%znt,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%znt. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ust ) ) THEN
DEALLOCATE(grid%ust,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ust. ')
endif
ENDIF
IF ( ASSOCIATED( grid%mol ) ) THEN
DEALLOCATE(grid%mol,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%mol. ')
endif
ENDIF
IF ( ASSOCIATED( grid%pblh ) ) THEN
DEALLOCATE(grid%pblh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%pblh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%hfx ) ) THEN
DEALLOCATE(grid%hfx,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%hfx. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%regime ) ) THEN
DEALLOCATE(grid%regime,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%regime. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_u_1 ) ) THEN
DEALLOCATE(grid%a_u_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_u_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_u_2 ) ) THEN
DEALLOCATE(grid%a_u_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_u_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_u_1 ) ) THEN
DEALLOCATE(grid%g_u_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_u_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_u_2 ) ) THEN
DEALLOCATE(grid%g_u_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_u_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_v_1 ) ) THEN
DEALLOCATE(grid%a_v_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_v_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_v_2 ) ) THEN
DEALLOCATE(grid%a_v_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_v_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_v_1 ) ) THEN
DEALLOCATE(grid%g_v_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_v_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_v_2 ) ) THEN
DEALLOCATE(grid%g_v_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_v_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_w_1 ) ) THEN
DEALLOCATE(grid%a_w_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_w_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_w_2 ) ) THEN
DEALLOCATE(grid%a_w_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_w_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_w_1 ) ) THEN
DEALLOCATE(grid%g_w_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_w_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_w_2 ) ) THEN
DEALLOCATE(grid%g_w_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_w_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_ph_1 ) ) THEN
DEALLOCATE(grid%a_ph_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_ph_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_ph_2 ) ) THEN
DEALLOCATE(grid%a_ph_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_ph_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_ph_1 ) ) THEN
DEALLOCATE(grid%g_ph_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_ph_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_ph_2 ) ) THEN
DEALLOCATE(grid%g_ph_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_ph_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_t_1 ) ) THEN
DEALLOCATE(grid%a_t_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_t_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_t_2 ) ) THEN
DEALLOCATE(grid%a_t_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_t_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_t_1 ) ) THEN
DEALLOCATE(grid%g_t_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_t_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_t_2 ) ) THEN
DEALLOCATE(grid%g_t_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_t_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_mu_1 ) ) THEN
DEALLOCATE(grid%a_mu_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_mu_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_mu_2 ) ) THEN
DEALLOCATE(grid%a_mu_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_mu_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_mu_1 ) ) THEN
DEALLOCATE(grid%g_mu_1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_mu_1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_mu_2 ) ) THEN
DEALLOCATE(grid%g_mu_2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_mu_2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_p ) ) THEN
DEALLOCATE(grid%a_p,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_p. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_p ) ) THEN
DEALLOCATE(grid%g_p,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_p. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_z ) ) THEN
DEALLOCATE(grid%a_z,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_z. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_z ) ) THEN
DEALLOCATE(grid%g_z,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_z. ')
endif
ENDIF
IF ( ASSOCIATED( grid%kma_a ) ) THEN
DEALLOCATE(grid%kma_a,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%kma_a. ')
endif
ENDIF
IF ( ASSOCIATED( grid%kma_b ) ) THEN
DEALLOCATE(grid%kma_b,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%kma_b. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_moist ) ) THEN
DEALLOCATE(grid%a_moist,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_moist. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_moist ) ) THEN
DEALLOCATE(grid%g_moist,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_moist. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_h_diabatic ) ) THEN
DEALLOCATE(grid%g_h_diabatic,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_h_diabatic. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_h_diabatic ) ) THEN
DEALLOCATE(grid%a_h_diabatic,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_h_diabatic. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_rainc ) ) THEN
DEALLOCATE(grid%g_rainc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_rainc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_rainc ) ) THEN
DEALLOCATE(grid%a_rainc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_rainc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_rainnc ) ) THEN
DEALLOCATE(grid%g_rainnc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_rainnc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_rainnc ) ) THEN
DEALLOCATE(grid%a_rainnc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_rainnc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_raincv ) ) THEN
DEALLOCATE(grid%g_raincv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_raincv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_raincv ) ) THEN
DEALLOCATE(grid%a_raincv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_raincv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_rainncv ) ) THEN
DEALLOCATE(grid%g_rainncv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_rainncv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_rainncv ) ) THEN
DEALLOCATE(grid%a_rainncv,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_rainncv. ')
endif
ENDIF
IF ( ASSOCIATED( grid%dummy ) ) THEN
DEALLOCATE(grid%dummy,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%dummy. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v1 ) ) THEN
DEALLOCATE(grid%vv%v1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v2 ) ) THEN
DEALLOCATE(grid%vv%v2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v3 ) ) THEN
DEALLOCATE(grid%vv%v3,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v3. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v4 ) ) THEN
DEALLOCATE(grid%vv%v4,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v4. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v5 ) ) THEN
DEALLOCATE(grid%vv%v5,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v5. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v6 ) ) THEN
DEALLOCATE(grid%vv%v6,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v6. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v7 ) ) THEN
DEALLOCATE(grid%vv%v7,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v7. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v8 ) ) THEN
DEALLOCATE(grid%vv%v8,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v8. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v9 ) ) THEN
DEALLOCATE(grid%vv%v9,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v9. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v10 ) ) THEN
DEALLOCATE(grid%vv%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%v11 ) ) THEN
DEALLOCATE(grid%vv%v11,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%v11. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv%alpha ) ) THEN
DEALLOCATE(grid%vv%alpha,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv%alpha. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v1 ) ) THEN
DEALLOCATE(grid%vv6%v1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v2 ) ) THEN
DEALLOCATE(grid%vv6%v2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v3 ) ) THEN
DEALLOCATE(grid%vv6%v3,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v3. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v4 ) ) THEN
DEALLOCATE(grid%vv6%v4,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v4. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v5 ) ) THEN
DEALLOCATE(grid%vv6%v5,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v5. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v6 ) ) THEN
DEALLOCATE(grid%vv6%v6,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v6. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v7 ) ) THEN
DEALLOCATE(grid%vv6%v7,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v7. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v8 ) ) THEN
DEALLOCATE(grid%vv6%v8,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v8. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v9 ) ) THEN
DEALLOCATE(grid%vv6%v9,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v9. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v10 ) ) THEN
DEALLOCATE(grid%vv6%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%v11 ) ) THEN
DEALLOCATE(grid%vv6%v11,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%v11. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vv6%alpha ) ) THEN
DEALLOCATE(grid%vv6%alpha,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vv6%alpha. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v1 ) ) THEN
DEALLOCATE(grid%vp%v1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v2 ) ) THEN
DEALLOCATE(grid%vp%v2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v3 ) ) THEN
DEALLOCATE(grid%vp%v3,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v3. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v4 ) ) THEN
DEALLOCATE(grid%vp%v4,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v4. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v5 ) ) THEN
DEALLOCATE(grid%vp%v5,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v5. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v6 ) ) THEN
DEALLOCATE(grid%vp%v6,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v6. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v7 ) ) THEN
DEALLOCATE(grid%vp%v7,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v7. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v8 ) ) THEN
DEALLOCATE(grid%vp%v8,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v8. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v9 ) ) THEN
DEALLOCATE(grid%vp%v9,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v9. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v10 ) ) THEN
DEALLOCATE(grid%vp%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%v11 ) ) THEN
DEALLOCATE(grid%vp%v11,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%v11. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp%alpha ) ) THEN
DEALLOCATE(grid%vp%alpha,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp%alpha. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v1 ) ) THEN
DEALLOCATE(grid%vp6%v1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v2 ) ) THEN
DEALLOCATE(grid%vp6%v2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v3 ) ) THEN
DEALLOCATE(grid%vp6%v3,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v3. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v4 ) ) THEN
DEALLOCATE(grid%vp6%v4,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v4. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v5 ) ) THEN
DEALLOCATE(grid%vp6%v5,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v5. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v6 ) ) THEN
DEALLOCATE(grid%vp6%v6,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v6. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v7 ) ) THEN
DEALLOCATE(grid%vp6%v7,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v7. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v8 ) ) THEN
DEALLOCATE(grid%vp6%v8,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v8. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v9 ) ) THEN
DEALLOCATE(grid%vp6%v9,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v9. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v10 ) ) THEN
DEALLOCATE(grid%vp6%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%v11 ) ) THEN
DEALLOCATE(grid%vp6%v11,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%v11. ')
endif
ENDIF
IF ( ASSOCIATED( grid%vp6%alpha ) ) THEN
DEALLOCATE(grid%vp6%alpha,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%vp6%alpha. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ep%v1 ) ) THEN
DEALLOCATE(grid%ep%v1,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ep%v1. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ep%v2 ) ) THEN
DEALLOCATE(grid%ep%v2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ep%v2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ep%v3 ) ) THEN
DEALLOCATE(grid%ep%v3,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ep%v3. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ep%v4 ) ) THEN
DEALLOCATE(grid%ep%v4,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ep%v4. ')
endif
ENDIF
IF ( ASSOCIATED( grid%ep%v5 ) ) THEN
DEALLOCATE(grid%ep%v5,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%ep%v5. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%grid_box_area ) ) THEN
DEALLOCATE(grid%xb%grid_box_area,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%grid_box_area. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%map_factor ) ) THEN
DEALLOCATE(grid%xb%map_factor,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%map_factor. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%u ) ) THEN
DEALLOCATE(grid%xb%u,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%u. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%v ) ) THEN
DEALLOCATE(grid%xb%v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%w ) ) THEN
DEALLOCATE(grid%xb%w,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%w. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%t ) ) THEN
DEALLOCATE(grid%xb%t,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%t. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%p ) ) THEN
DEALLOCATE(grid%xb%p,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%p. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%q ) ) THEN
DEALLOCATE(grid%xb%q,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%q. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qrn ) ) THEN
DEALLOCATE(grid%xb%qrn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qrn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qcw ) ) THEN
DEALLOCATE(grid%xb%qcw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qcw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qci ) ) THEN
DEALLOCATE(grid%xb%qci,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qci. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qsn ) ) THEN
DEALLOCATE(grid%xb%qsn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qsn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qgr ) ) THEN
DEALLOCATE(grid%xb%qgr,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qgr. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qt ) ) THEN
DEALLOCATE(grid%xb%qt,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qt. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%delt ) ) THEN
DEALLOCATE(grid%xb%delt,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%delt. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%xb_p_x ) ) THEN
DEALLOCATE(grid%xb%xb_p_x,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%xb_p_x. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%xb_p_y ) ) THEN
DEALLOCATE(grid%xb%xb_p_y,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%xb_p_y. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%h ) ) THEN
DEALLOCATE(grid%xb%h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%hf ) ) THEN
DEALLOCATE(grid%xb%hf,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%hf. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%wh ) ) THEN
DEALLOCATE(grid%xb%wh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%wh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%rho ) ) THEN
DEALLOCATE(grid%xb%rho,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%rho. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%rh ) ) THEN
DEALLOCATE(grid%xb%rh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%rh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%es ) ) THEN
DEALLOCATE(grid%xb%es,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%es. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%qs ) ) THEN
DEALLOCATE(grid%xb%qs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%qs. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%td ) ) THEN
DEALLOCATE(grid%xb%td,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%td. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%vertical_inner_product ) ) THEN
DEALLOCATE(grid%xb%vertical_inner_product,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%vertical_inner_product. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%ref ) ) THEN
DEALLOCATE(grid%xb%ref,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%ref. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%reflog ) ) THEN
DEALLOCATE(grid%xb%reflog,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%reflog. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%rough ) ) THEN
DEALLOCATE(grid%xb%rough,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%rough. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%ztd ) ) THEN
DEALLOCATE(grid%xb%ztd,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%ztd. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tpw ) ) THEN
DEALLOCATE(grid%xb%tpw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tpw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%slp ) ) THEN
DEALLOCATE(grid%xb%slp,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%slp. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%speed ) ) THEN
DEALLOCATE(grid%xb%speed,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%speed. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb19v ) ) THEN
DEALLOCATE(grid%xb%tb19v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb19v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb19h ) ) THEN
DEALLOCATE(grid%xb%tb19h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb19h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb22v ) ) THEN
DEALLOCATE(grid%xb%tb22v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb22v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb37v ) ) THEN
DEALLOCATE(grid%xb%tb37v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb37v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb37h ) ) THEN
DEALLOCATE(grid%xb%tb37h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb37h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb85v ) ) THEN
DEALLOCATE(grid%xb%tb85v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb85v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tb85h ) ) THEN
DEALLOCATE(grid%xb%tb85h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tb85h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%cori ) ) THEN
DEALLOCATE(grid%xb%cori,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%cori. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tgrn ) ) THEN
DEALLOCATE(grid%xb%tgrn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tgrn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%lat ) ) THEN
DEALLOCATE(grid%xb%lat,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%lat. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%lon ) ) THEN
DEALLOCATE(grid%xb%lon,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%lon. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%terr ) ) THEN
DEALLOCATE(grid%xb%terr,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%terr. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%psac ) ) THEN
DEALLOCATE(grid%xb%psac,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%psac. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%lanu ) ) THEN
DEALLOCATE(grid%xb%lanu,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%lanu. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%snow ) ) THEN
DEALLOCATE(grid%xb%snow,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%snow. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%xland ) ) THEN
DEALLOCATE(grid%xb%xland,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%xland. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%landmask ) ) THEN
DEALLOCATE(grid%xb%landmask,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%landmask. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%u10 ) ) THEN
DEALLOCATE(grid%xb%u10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%u10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%v10 ) ) THEN
DEALLOCATE(grid%xb%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%t2 ) ) THEN
DEALLOCATE(grid%xb%t2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%t2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%q2 ) ) THEN
DEALLOCATE(grid%xb%q2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%q2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%psfc ) ) THEN
DEALLOCATE(grid%xb%psfc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%psfc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tsk ) ) THEN
DEALLOCATE(grid%xb%tsk,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tsk. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%smois ) ) THEN
DEALLOCATE(grid%xb%smois,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%smois. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%tslb ) ) THEN
DEALLOCATE(grid%xb%tslb,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%tslb. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%xice ) ) THEN
DEALLOCATE(grid%xb%xice,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%xice. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%ivgtyp ) ) THEN
DEALLOCATE(grid%xb%ivgtyp,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%ivgtyp. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%isltyp ) ) THEN
DEALLOCATE(grid%xb%isltyp,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%isltyp. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%vegfra ) ) THEN
DEALLOCATE(grid%xb%vegfra,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%vegfra. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%snowh ) ) THEN
DEALLOCATE(grid%xb%snowh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%snowh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%regime ) ) THEN
DEALLOCATE(grid%xb%regime,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%regime. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%znu ) ) THEN
DEALLOCATE(grid%xb%znu,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%znu. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%znw ) ) THEN
DEALLOCATE(grid%xb%znw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%znw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%dn ) ) THEN
DEALLOCATE(grid%xb%dn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%dn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%dnw ) ) THEN
DEALLOCATE(grid%xb%dnw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%dnw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%sigmah ) ) THEN
DEALLOCATE(grid%xb%sigmah,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%sigmah. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%sigmaf ) ) THEN
DEALLOCATE(grid%xb%sigmaf,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%sigmaf. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%coefx ) ) THEN
DEALLOCATE(grid%xb%coefx,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%coefx. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%coefy ) ) THEN
DEALLOCATE(grid%xb%coefy,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%coefy. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%coefz ) ) THEN
DEALLOCATE(grid%xb%coefz,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%coefz. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%kma_a ) ) THEN
DEALLOCATE(grid%xb%kma_a,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%kma_a. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xb%kma_b ) ) THEN
DEALLOCATE(grid%xb%kma_b,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xb%kma_b. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%u ) ) THEN
DEALLOCATE(grid%xa%u,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%u. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%v ) ) THEN
DEALLOCATE(grid%xa%v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%w ) ) THEN
DEALLOCATE(grid%xa%w,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%w. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%t ) ) THEN
DEALLOCATE(grid%xa%t,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%t. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%q ) ) THEN
DEALLOCATE(grid%xa%q,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%q. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%p ) ) THEN
DEALLOCATE(grid%xa%p,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%p. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%geoh ) ) THEN
DEALLOCATE(grid%xa%geoh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%geoh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%rh ) ) THEN
DEALLOCATE(grid%xa%rh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%rh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%rho ) ) THEN
DEALLOCATE(grid%xa%rho,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%rho. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%wh ) ) THEN
DEALLOCATE(grid%xa%wh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%wh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%grad_p_x ) ) THEN
DEALLOCATE(grid%xa%grad_p_x,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%grad_p_x. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%grad_p_y ) ) THEN
DEALLOCATE(grid%xa%grad_p_y,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%grad_p_y. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%qrn ) ) THEN
DEALLOCATE(grid%xa%qrn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%qrn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%qcw ) ) THEN
DEALLOCATE(grid%xa%qcw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%qcw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%qci ) ) THEN
DEALLOCATE(grid%xa%qci,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%qci. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%qsn ) ) THEN
DEALLOCATE(grid%xa%qsn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%qsn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%qgr ) ) THEN
DEALLOCATE(grid%xa%qgr,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%qgr. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%qt ) ) THEN
DEALLOCATE(grid%xa%qt,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%qt. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tgrn ) ) THEN
DEALLOCATE(grid%xa%tgrn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tgrn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%psfc ) ) THEN
DEALLOCATE(grid%xa%psfc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%psfc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%mu ) ) THEN
DEALLOCATE(grid%xa%mu,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%mu. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%u10 ) ) THEN
DEALLOCATE(grid%xa%u10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%u10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%v10 ) ) THEN
DEALLOCATE(grid%xa%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%t2 ) ) THEN
DEALLOCATE(grid%xa%t2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%t2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%q2 ) ) THEN
DEALLOCATE(grid%xa%q2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%q2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%ref ) ) THEN
DEALLOCATE(grid%xa%ref,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%ref. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%ztd ) ) THEN
DEALLOCATE(grid%xa%ztd,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%ztd. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tpw ) ) THEN
DEALLOCATE(grid%xa%tpw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tpw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%speed ) ) THEN
DEALLOCATE(grid%xa%speed,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%speed. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb19v ) ) THEN
DEALLOCATE(grid%xa%tb19v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb19v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb19h ) ) THEN
DEALLOCATE(grid%xa%tb19h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb19h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb22v ) ) THEN
DEALLOCATE(grid%xa%tb22v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb22v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb37v ) ) THEN
DEALLOCATE(grid%xa%tb37v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb37v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb37h ) ) THEN
DEALLOCATE(grid%xa%tb37h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb37h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb85v ) ) THEN
DEALLOCATE(grid%xa%tb85v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb85v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xa%tb85h ) ) THEN
DEALLOCATE(grid%xa%tb85h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xa%tb85h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%u ) ) THEN
DEALLOCATE(grid%x6a%u,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%u. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%v ) ) THEN
DEALLOCATE(grid%x6a%v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%w ) ) THEN
DEALLOCATE(grid%x6a%w,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%w. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%t ) ) THEN
DEALLOCATE(grid%x6a%t,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%t. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%q ) ) THEN
DEALLOCATE(grid%x6a%q,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%q. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%p ) ) THEN
DEALLOCATE(grid%x6a%p,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%p. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%geoh ) ) THEN
DEALLOCATE(grid%x6a%geoh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%geoh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%rh ) ) THEN
DEALLOCATE(grid%x6a%rh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%rh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%rho ) ) THEN
DEALLOCATE(grid%x6a%rho,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%rho. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%wh ) ) THEN
DEALLOCATE(grid%x6a%wh,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%wh. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%grad_p_x ) ) THEN
DEALLOCATE(grid%x6a%grad_p_x,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%grad_p_x. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%grad_p_y ) ) THEN
DEALLOCATE(grid%x6a%grad_p_y,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%grad_p_y. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%qrn ) ) THEN
DEALLOCATE(grid%x6a%qrn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%qrn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%qcw ) ) THEN
DEALLOCATE(grid%x6a%qcw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%qcw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%qci ) ) THEN
DEALLOCATE(grid%x6a%qci,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%qci. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%qsn ) ) THEN
DEALLOCATE(grid%x6a%qsn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%qsn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%qgr ) ) THEN
DEALLOCATE(grid%x6a%qgr,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%qgr. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%qt ) ) THEN
DEALLOCATE(grid%x6a%qt,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%qt. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tgrn ) ) THEN
DEALLOCATE(grid%x6a%tgrn,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tgrn. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%psfc ) ) THEN
DEALLOCATE(grid%x6a%psfc,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%psfc. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%mu ) ) THEN
DEALLOCATE(grid%x6a%mu,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%mu. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%u10 ) ) THEN
DEALLOCATE(grid%x6a%u10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%u10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%v10 ) ) THEN
DEALLOCATE(grid%x6a%v10,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%v10. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%t2 ) ) THEN
DEALLOCATE(grid%x6a%t2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%t2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%q2 ) ) THEN
DEALLOCATE(grid%x6a%q2,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%q2. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%ref ) ) THEN
DEALLOCATE(grid%x6a%ref,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%ref. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%ztd ) ) THEN
DEALLOCATE(grid%x6a%ztd,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%ztd. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tpw ) ) THEN
DEALLOCATE(grid%x6a%tpw,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tpw. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%speed ) ) THEN
DEALLOCATE(grid%x6a%speed,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%speed. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb19v ) ) THEN
DEALLOCATE(grid%x6a%tb19v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb19v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb19h ) ) THEN
DEALLOCATE(grid%x6a%tb19h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb19h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb22v ) ) THEN
DEALLOCATE(grid%x6a%tb22v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb22v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb37v ) ) THEN
DEALLOCATE(grid%x6a%tb37v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb37v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb37h ) ) THEN
DEALLOCATE(grid%x6a%tb37h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb37h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb85v ) ) THEN
DEALLOCATE(grid%x6a%tb85v,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb85v. ')
endif
ENDIF
IF ( ASSOCIATED( grid%x6a%tb85h ) ) THEN
DEALLOCATE(grid%x6a%tb85h,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%x6a%tb85h. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%vxy ) ) THEN
DEALLOCATE(grid%xp%vxy,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%vxy. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%v1z ) ) THEN
DEALLOCATE(grid%xp%v1z,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%v1z. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%v1x ) ) THEN
DEALLOCATE(grid%xp%v1x,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%v1x. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%v1y ) ) THEN
DEALLOCATE(grid%xp%v1y,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%v1y. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%v2z ) ) THEN
DEALLOCATE(grid%xp%v2z,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%v2z. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%v2x ) ) THEN
DEALLOCATE(grid%xp%v2x,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%v2x. ')
endif
ENDIF
IF ( ASSOCIATED( grid%xp%v2y ) ) THEN
DEALLOCATE(grid%xp%v2y,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%xp%v2y. ')
endif
ENDIF
IF ( ASSOCIATED( grid%a_scalar ) ) THEN
DEALLOCATE(grid%a_scalar,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%a_scalar. ')
endif
ENDIF
IF ( ASSOCIATED( grid%g_scalar ) ) THEN
DEALLOCATE(grid%g_scalar,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%g_scalar. ')
endif
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
ENDIF
IF ( ASSOCIATED( grid%sst ) ) THEN
DEALLOCATE(grid%sst,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%sst. ')
endif
ENDIF
IF ( ASSOCIATED( grid%chem ) ) THEN
DEALLOCATE(grid%chem,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%chem. ')
endif
ENDIF
IF ( ASSOCIATED( grid%tracer ) ) THEN
DEALLOCATE(grid%tracer,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer. ')
endif
ENDIF
IF ( ASSOCIATED( grid%tracer_bxs ) ) THEN
DEALLOCATE(grid%tracer_bxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_bxs. ')
endif
NULLIFY(grid%tracer_bxs)
ENDIF
IF ( ASSOCIATED( grid%tracer_bxe ) ) THEN
DEALLOCATE(grid%tracer_bxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_bxe. ')
endif
NULLIFY(grid%tracer_bxe)
ENDIF
IF ( ASSOCIATED( grid%tracer_bys ) ) THEN
DEALLOCATE(grid%tracer_bys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_bys. ')
endif
NULLIFY(grid%tracer_bys)
ENDIF
IF ( ASSOCIATED( grid%tracer_bye ) ) THEN
DEALLOCATE(grid%tracer_bye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_bye. ')
endif
NULLIFY(grid%tracer_bye)
ENDIF
IF ( ASSOCIATED( grid%tracer_btxs ) ) THEN
DEALLOCATE(grid%tracer_btxs,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_btxs. ')
endif
NULLIFY(grid%tracer_btxs)
ENDIF
IF ( ASSOCIATED( grid%tracer_btxe ) ) THEN
DEALLOCATE(grid%tracer_btxe,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_btxe. ')
endif
NULLIFY(grid%tracer_btxe)
ENDIF
IF ( ASSOCIATED( grid%tracer_btys ) ) THEN
DEALLOCATE(grid%tracer_btys,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_btys. ')
endif
NULLIFY(grid%tracer_btys)
ENDIF
IF ( ASSOCIATED( grid%tracer_btye ) ) THEN
DEALLOCATE(grid%tracer_btye,STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal ( &
'frame/module_domain.f: Failed to deallocate grid%tracer_btye. ')
endif
NULLIFY(grid%tracer_btye)
ENDIF
!ENDOFREGISTRYGENERATEDINCLUDE