Changeset a9cf4b1 in flexpart.git for src/timemanager_mpi.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_mpi.f90
rb1e0742 ra9cf4b1 102 102 use com_mod 103 103 use mpi_mod 104 #ifdef USE_NCF 104 105 use netcdf_output_mod, only: concoutput_netcdf,concoutput_nest_netcdf,& 105 106 &concoutput_surf_netcdf,concoutput_surf_nest_netcdf 107 #endif 106 108 107 109 implicit none … … 481 483 if (lroot) then 482 484 if (lnetcdfout.eq.1) then 485 #ifdef USE_NCF 483 486 call concoutput_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,& 484 487 &drygridtotalunc) 488 #endif 485 489 else 486 490 call concoutput(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) … … 494 498 if (lroot) then 495 499 if (lnetcdfout.eq.1) then 500 #ifdef USE_NCF 496 501 call concoutput_surf_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,& 497 502 &drygridtotalunc) 503 #endif 498 504 else 499 505 call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) … … 513 519 call mpif_tm_reduce_grid_nest 514 520 515 if (mp_measure_time) call mpif_mtime('iotime',0)521 if (mp_measure_time) call mpif_mtime('iotime',0) 516 522 517 523 if (lnetcdfout.eq.0) then … … 526 532 else ! :TODO: check for zeroing in the netcdf module 527 533 call concoutput_surf_nest(itime,outnum) 528 529 534 end if 530 531 535 else 532 536 #ifdef USE_NCF 533 537 if (surf_only.ne.1) then 534 538 if (lroot) then … … 544 548 end if 545 549 endif 546 547 550 #endif 548 551 end if 549 552 end if 550 551 552 553 outnum=0. 553 554 endif
Note: See TracChangeset
for help on using the changeset viewer.