Commit 7bb8574b authored by Knut's avatar Knut

Merge remote-tracking branch 'origin/master' into output

parents 8086f337 6f873cc9
......@@ -133,26 +133,6 @@
call open_meteo_file(meteo_file)
if(iextr .eq. 1 .and. jextr .eq. 1) then
point_source = .true.
LEVEL3 'Assuming Point Source meteo forcing'
! if (on_grid .eq. .false. ) then
LEVEL3 'Setting on_grid to true'
on_grid=.true.
! end if
end if
if (met_lat(1) .gt. met_lat(2)) then
LEVEL3 'Reverting lat-axis and setting grid_scan to 0'
grid_scan = 0
x = met_lat(1)
do j=1,jextr/2
met_lat(j) = met_lat(jextr-j+1)
met_lat(jextr-j+1) = x
x = met_lat(j+1)
end do
end if
allocate(wrk(iextr,jextr),stat=err)
if (err /= 0) stop 'ncdf_meteo: Error allocating memory (wrk)'
wrk = 0.
......@@ -179,6 +159,17 @@
call to_rotated_lat_lon(southpole,olon,olat,rlon,rlat,x)
beta = x
end if
else
if (met_lat(1) .gt. met_lat(2)) then
LEVEL3 'Reverting lat-axis and setting grid_scan to 0'
grid_scan = 0
x = met_lat(1)
do j=1,jextr/2
met_lat(j) = met_lat(jextr-j+1)
met_lat(jextr-j+1) = x
x = met_lat(j+1)
end do
end if
end if
if ( .not. on_grid ) then
......
Markdown is supported
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