Changeset 7a8a51c in flexpart.git for src/timemanager.f90
- Timestamp:
- Jun 7, 2019, 1:12:26 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- e5421fd, 3d7eebf
- Parents:
- 0a98afe (diff), 6741557 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager.f90
r0a94e13 r2eefa58 408 408 #endif 409 409 else 410 if (linversionout.eq.1) then 411 call concoutput_inversion(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 412 if (verbosity.eq.1) then 413 print*,'called concoutput_inversion' 414 call system_clock(count_clock) 415 write(*,*) 'system clock',count_clock - count_clock0 416 endif 417 else 410 418 call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc) 419 endif 411 420 if (verbosity.eq.1) then 412 421 print*,'called concoutput_surf ' … … 422 431 call concoutput_nest(itime,outnum) 423 432 else 433 if(linversionout.eq.1) then 434 call concoutput_inversion_nest(itime,outnum) 435 else 424 436 call concoutput_surf_nest(itime,outnum) 437 endif 425 438 endif 426 439 else … … 739 752 if (ipout.eq.2) call partoutput(itime) ! dump particle positions 740 753 741 if (linit_cond.ge.1) call initial_cond_output(itime) ! dump initial cond. field 754 if (linit_cond.ge.1) then 755 if(linversionout.eq.1) then 756 call initial_cond_output_inversion(itime) ! dump initial cond. field 757 else 758 call initial_cond_output(itime) ! dump initial cond. fielf 759 endif 760 endif 742 761 743 762 !close(104)
Note: See TracChangeset
for help on using the changeset viewer.