Changeset a9cf4b1 in flexpart.git for src/timemanager_mpi.f90


Ignore:
Timestamp:
Apr 5, 2018, 12:30:54 PM (6 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
3f149cc
Parents:
8fcfd08
Message:

Made enabling netCDF output during compilation optional

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/timemanager_mpi.f90

    rb1e0742 ra9cf4b1  
    102102  use com_mod
    103103  use mpi_mod
     104#ifdef USE_NCF
    104105  use netcdf_output_mod, only: concoutput_netcdf,concoutput_nest_netcdf,&
    105106       &concoutput_surf_netcdf,concoutput_surf_nest_netcdf
     107#endif
    106108
    107109  implicit none
     
    481483            if (lroot) then
    482484              if (lnetcdfout.eq.1) then
     485#ifdef USE_NCF
    483486                call concoutput_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,&
    484487                     &drygridtotalunc)
     488#endif
    485489              else
    486490                call concoutput(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc)
     
    494498            if (lroot) then
    495499              if (lnetcdfout.eq.1) then
     500#ifdef USE_NCF
    496501                call concoutput_surf_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,&
    497502                     &drygridtotalunc)
     503#endif
    498504              else
    499505                call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc)
     
    513519            call mpif_tm_reduce_grid_nest
    514520 
    515            if (mp_measure_time) call mpif_mtime('iotime',0)
     521            if (mp_measure_time) call mpif_mtime('iotime',0)
    516522
    517523            if (lnetcdfout.eq.0) then
     
    526532              else  ! :TODO: check for zeroing in the netcdf module
    527533                call concoutput_surf_nest(itime,outnum)
    528 
    529534              end if
    530 
    531535            else
    532 
     536#ifdef USE_NCF
    533537              if (surf_only.ne.1) then
    534538                if (lroot) then             
     
    544548                end if
    545549              endif
    546 
    547 
     550#endif
    548551            end if
    549552          end if
    550          
    551 
    552553          outnum=0.
    553554        endif
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG