Changes in src/timemanager.f90 [fe32dca:a9cf4b1] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager.f90
rfe32dca ra9cf4b1 101 101 use par_mod 102 102 use com_mod 103 #ifdef USE_NCF 103 104 use netcdf_output_mod, only: concoutput_netcdf,concoutput_nest_netcdf,& 104 105 &concoutput_surf_netcdf,concoutput_surf_nest_netcdf 106 #endif 105 107 106 108 implicit none … … 389 391 if (surf_only.ne.1) then 390 392 if (lnetcdfout.eq.1) then 393 #ifdef USE_NCF 391 394 call concoutput_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 395 #endif 392 396 else 393 397 call concoutput(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) … … 399 403 write(*,*) 'system clock',count_clock - count_clock0 400 404 endif 401 if (lnetcdfout.eq.1) then 405 if (lnetcdfout.eq.1) then 406 #ifdef USE_NCF 402 407 call concoutput_surf_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 408 #endif 403 409 else 404 410 call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) … … 419 425 endif 420 426 else 427 #ifdef USE_NCF 421 428 if (surf_only.ne.1) then 422 429 call concoutput_nest_netcdf(itime,outnum) … … 424 431 call concoutput_surf_nest_netcdf(itime,outnum) 425 432 endif 433 #endif 426 434 endif 427 435 endif
Note: See TracChangeset
for help on using the changeset viewer.