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