Changeset a9cf4b1 in flexpart.git for src/timemanager.f90
- Timestamp:
- Apr 5, 2018, 12:30:54 PM (6 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 3f149cc
- Parents:
- 8fcfd08
- 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.