Ignore:
Timestamp:
Aug 23, 2019 4:06:14 PM (2 years ago)
Author:
suehring
Message:

Enable limitation of Obukhov length so that it does not become zero; to read input data from netcdf in init_3d_model use provided module variables instead of defining local ones; tests updated because changes in Obukhov lengths causes small differences during the initial phase of the run

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r4182 r4186  
    2525! -----------------
    2626! $Id$
     27! Minor formatting adjustments
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! Corrected "Former revisions" section
    2831!
     
    50575060
    50585061#if defined( __netcdf4_parallel )
    5059 !      if __netcdf4_parallel is defined, parrallel NetCDF will be used unconditionally
     5062!
     5063!--    If __netcdf4_parallel is defined, parrallel NetCDF will be used
     5064!--    unconditionally
    50605065       nc_stat = NF90_OPEN( filename, IOR( NF90_WRITE, NF90_MPIIO ), id,  &
    50615066                            COMM = comm2d, INFO = MPI_INFO_NULL )
    5062        IF(nc_stat /= NF90_NOERR )  THEN                                       !possible NetCDF 3 file
    5063            nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
    5064            collective_read = .FALSE.
     5067!
     5068!--    Check for possible Netcdf 3 file.
     5069       IF( nc_stat /= NF90_NOERR )  THEN
     5070          nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
     5071          collective_read = .FALSE.
    50655072       ELSE
    5066            collective_read = .TRUE.
    5067        END IF
     5073          collective_read = .TRUE.
     5074       ENDIF
    50685075#else
    50695076!      All MPI processes open und read
Note: See TracChangeset for help on using the changeset viewer.