Commit a1114354 authored by Espen Sollum's avatar Espen Sollum
Browse files

Removing 4D arrays from readwind

parent a0a53511
......@@ -112,7 +112,7 @@
real(kind=4) :: plev1,pmean,tv,fu,hlev1,ff10m,fflev1
logical :: hflswitch,strswitch
integer :: indj,n
integer :: indj
!***************************************************************************************************
......@@ -377,7 +377,7 @@
itime=i !selected right file and record....
time_interval=wftime(indj+1)-wftime(indj-1) !for calculating time derivative of pressure see below
!c-------- finish operation of finding the time --------------
print *,wfname(indj),wftime(indj),itime,n !write diagnostic to file for test reason by, by mc
print *,wfname(indj),wftime(indj),itime !write diagnostic to file for test reason by, by mc
!c---------------- Inquiring about varnames and real fields ---------------------
nvar_exp_in_meteo_field=1
......
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