Opened 6 years ago

Last modified 6 years ago

#206 new Defect

header binary file is not created when the flexpart is compiled without the netcdf module — at Version 1

Reported by: camelia Owned by:
Priority: major Milestone: FLEXPART 10
Component: FP coding/compilation Version: FLEXPART 9.0.2
Keywords: Cc:

Description (last modified by pesei)

Missing in the FLEXPART.f90 the option in which flexpart is compiled without the netcdf module.

I fixed this problem by changed the lines 358 - 376 with:

#ifdef USE_NCF
  if (lnetcdfout.eq.1) then 
    call writeheader_netcdf(lnest=.false.)
  else 
!    call writeheader
    goto 10
  end if

  if (nested_output.eq.1) then
    if (lnetcdfout.eq.1) then
      call writeheader_netcdf(lnest=.true.)
    else
!      call writeheader_nest
      goto 11
    endif
  endif
#endif

  if (verbosity.gt.0) then
    print*,'call writeheader'
  endif

10  call writeheader

11  if (nested_output.eq.1) then
     call writeheader_nest
  endif

Another option could be to declare the variable "lnetcdfout" outside of netcdf module in FLEXPART.f90 and it to be included as parameter in the command file

Change History (1)

comment:1 Changed 6 years ago by pesei

  • Description modified (diff)
Note: See TracTickets for help on using tickets.
hosted by ZAMG