Commit 5124093c authored by dingwell's avatar dingwell
Browse files

Clean-up

parent fadc01f1
......@@ -620,23 +620,6 @@
end do
end do
! now use dumarray_pp to store 1/density for stress calculation below
! if(sfc_option .eq. sfc_option_wrf) then
! varname = 'ALT'
! lendim_exp(3) = nuvz-add_sfc_level
! lendim_max(3) = nwzmax
! call read_ncwrfout_1realfield( ierr, idiagaa, fnamenc, &
! varname, dumarray_pp(0,0,kbgn), &
! itime, &
! ndims, ndims_exp, ndims_max, &
! lendim, lendim_exp, lendim_max )
! if (ierr .ne. 0) then
! write(*,9100) 'error doing ncread of ALT', fnamenc
! stop
! end if
! end if
! temperature - read perturbation potential temperature,
! add 300. (base value), then add and convert
......
......@@ -592,22 +592,6 @@
end do
end do
! AD: sfc_option_wrf is no longer supported
! now use dumarray_pp to store 1/density for stress calculation below
! if(sfc_option .eq. sfc_option_wrf) then
! varname = 'ALT'
! lendim_exp(3) = nuvz-1
! lendim_max(3) = nwzmax
! call read_ncwrfout_1realfield( ierr, idiagaa, fnamenc, &
! varname, dumarray_pp(0,0,kbgn), &
! itime, &
! ndims, ndims_exp, ndims_max, &
! lendim, lendim_exp, lendim_max )
! if (ierr .ne. 0) then
! write(*,9100) l, 'error doing ncread of ALT', fnamenc
! stop
! end if
! end if
! temperature - read perturbation potential temperature,
! add t00 (base value), then add and convert
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment