atmosphere_target_data.F90

Go to the documentation of this file.

 module atmosphere_target_data

 use esmf

 implicit none

 private

 integer, public                    :: lev_target
 integer, public                    :: levp1_target
 integer, public                    :: nvcoord_target

 real(esmf_kind_r8), allocatable, public :: vcoord_target(:,:)

 type(esmf_field), public               :: delp_target_grid
 type(esmf_field), public               :: dzdt_target_grid
 type(esmf_field), public               :: ps_target_grid
 type(esmf_field), public               :: temp_target_grid
 type(esmf_field), allocatable, public  :: tracers_target_grid(:)
 type(esmf_field), public               :: u_s_target_grid
 type(esmf_field), public               :: v_s_target_grid
 type(esmf_field), public               :: u_w_target_grid
 type(esmf_field), public               :: v_w_target_grid
 type(esmf_field), public               :: zh_target_grid
 type(esmf_field), public               :: qnifa_climo_target_grid
 type(esmf_field), public               :: qnwfa_climo_target_grid

 public :: cleanup_atmosphere_target_data

 contains

 subroutine cleanup_atmosphere_target_data

 use program_setup, only      : num_tracers

 implicit none

 integer                     :: i, rc

 print*,"- DESTROY TARGET GRID ATMOSPHERIC FIELDS."

 if (esmf_fieldiscreated(delp_target_grid)) call esmf_fielddestroy(delp_target_grid, rc=rc)
 if (esmf_fieldiscreated(dzdt_target_grid)) call esmf_fielddestroy(dzdt_target_grid, rc=rc)
 if (esmf_fieldiscreated(ps_target_grid))   call esmf_fielddestroy(ps_target_grid, rc=rc)
 if (esmf_fieldiscreated(temp_target_grid)) call esmf_fielddestroy(temp_target_grid, rc=rc)
 if (esmf_fieldiscreated(u_s_target_grid))  call esmf_fielddestroy(u_s_target_grid, rc=rc)
 if (esmf_fieldiscreated(v_s_target_grid)) call esmf_fielddestroy(v_s_target_grid, rc=rc)
 if (esmf_fieldiscreated(u_w_target_grid)) call esmf_fielddestroy(u_w_target_grid, rc=rc)
 if (esmf_fieldiscreated(v_w_target_grid)) call esmf_fielddestroy(v_w_target_grid, rc=rc)
 if (esmf_fieldiscreated(zh_target_grid))  call esmf_fielddestroy(zh_target_grid, rc=rc)

 do i = 1, num_tracers
   if (esmf_fieldiscreated(tracers_target_grid(i))) call esmf_fielddestroy(tracers_target_grid(i), rc=rc)
 enddo

 if (allocated (tracers_target_grid)) deallocate(tracers_target_grid)

 if (esmf_fieldiscreated(qnifa_climo_target_grid)) then
   call esmf_fielddestroy(qnifa_climo_target_grid, rc=rc)
 endif

 if (esmf_fieldiscreated(qnwfa_climo_target_grid)) then
   call esmf_fielddestroy(qnwfa_climo_target_grid, rc=rc)
 endif

 if (allocated (vcoord_target)) deallocate(vcoord_target)

 end subroutine cleanup_atmosphere_target_data

 end module atmosphere_target_data