Commit 0d730615 authored by dingwell's avatar dingwell
Browse files

Removed old ALT from readwind_nests.f90

Also fixed option_verbose=10 in readinput.f90
parent b13d183c
......@@ -234,8 +234,8 @@ subroutine readinput
read(unitcommand,*) iouttype
read(unitcommand,*) ncnumrec
read(unitcommand,*) option_verbose
write(*,*) "option_verbose=",option_verbose
option_verbose=10
ifine=max(ifine,1)
......
......@@ -592,23 +592,22 @@
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
! 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